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

  • Select an option

    Learn more about clone URLs
  • Save aaronjensen/5fd6521acd7add2a8be5 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
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