diff options
author | Chris Feng <chris.w.feng@gmail.com> | 2017-11-08T17·17+0800 |
---|---|---|
committer | Chris Feng <chris.w.feng@gmail.com> | 2017-11-08T17·17+0800 |
commit | 088818fedbc7293a5d35e0a7962f4ebebf859b92 (patch) | |
tree | a32cea520b9ce0f9fc9b9a14e03c1d50e399fe52 | |
parent | dea874e240896762183e90d9aecb38ff95bbc62f (diff) |
Update the workarounds for `unread-command-events'
* exwm-input.el (exwm-input--unread-event): Update the note. (exwm-input-send-next-key): Remove the workaround.
-rw-r--r-- | exwm-input.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/exwm-input.el b/exwm-input.el index bee2ac6450d5..3a817be4cd6e 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -397,10 +397,8 @@ This value should always be overwritten.") (when (called-interactively-p 'any) (exwm-input--update-global-prefix-keys))) -;; FIXME: Putting (t . EVENT) into `unread-command-events' does not really work -;; as documented in Emacs 24. Since inserting a conventional EVENT does -;; add it into (this-command-keys) there, we use `unread-command-events' -;; differently on Emacs 24 and 25. +;; Putting (t . EVENT) into `unread-command-events' does not really work +;; as documented for Emacs < 27. (eval-and-compile (if (< emacs-major-version 27) (defsubst exwm-input--unread-event (event) @@ -635,8 +633,6 @@ This value should always be overwritten.") (setq key (read-key (format "Send key: %s (%d/%d)" (key-description keys) (1+ i) times))) - (when (and (listp key) (eq (car key) t)) - (setq key (cdr key))) (unless (listp key) (throw 'break nil))))) (setq keys (vconcat keys (vector key))) (exwm-input--fake-key key)))) |