Skip to content

Instantly share code, notes, and snippets.

@aaronjensen

aaronjensen/slow-read-event.el

Last active March 11, 2016 15:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aaronjensen/5fd6521acd7add2a8be5 to your computer and use it in GitHub Desktop.
Save aaronjensen/5fd6521acd7add2a8be5 to your computer and use it in GitHub Desktop.
Download ZIP
slow emacs read-event
Raw
slow-read-event.el
;; Related to https://github.com/syl20bnr/spacemacs/issues/5413#issue-139406121
;; Before wtf Thu Mar 10 08:44:37 2016
;; After redisplay Thu Mar 10 08:44:37 2016
;; read-event nil
;; After wtf Thu Mar 10 08:44:47 2016
(defun wtf ()
(interactive)
(message "Before wtf %s" (current-time-string))
(redisplay)
(message "After redisplay %s" (current-time-string))
(message "read-event %s" (read-event nil t 0.001))
(message "After wtf %s" (current-time-string)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment