about summary refs log tree commit diff
path: root/exwm-input.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2017-11-08T17·17+0800
committerChris Feng <chris.w.feng@gmail.com>2017-11-08T17·17+0800
commit088818fedbc7293a5d35e0a7962f4ebebf859b92 (patch)
treea32cea520b9ce0f9fc9b9a14e03c1d50e399fe52 /exwm-input.el
parentdea874e240896762183e90d9aecb38ff95bbc62f (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.
Diffstat (limited to 'exwm-input.el')
-rw-r--r--exwm-input.el8
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))))