mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update the workarounds for `unread-command-events'

Browse source 
* exwm-input.el (exwm-input--unread-event): Update the note.
(exwm-input-send-next-key): Remove the workaround.
This commit is contained in:
Chris Feng 2017-11-09 01:17:58 +08:00
parent dea874e240
commit 088818fedb
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
exwm-input.el
View file

@ -397,10 +397,8 @@ This value should always be overwritten.")
(when (called-interactively-p 'any) (when (called-interactively-p 'any)
(exwm-input--update-global-prefix-keys))) (exwm-input--update-global-prefix-keys)))
;; FIXME: Putting (t . EVENT) into `unread-command-events' does not really work ;; Putting (t . EVENT) into `unread-command-events' does not really work
;; as documented in Emacs 24. Since inserting a conventional EVENT does ;; as documented for Emacs < 27.
;; add it into (this-command-keys) there, we use `unread-command-events'
;; differently on Emacs 24 and 25.
(eval-and-compile (eval-and-compile
(if (< emacs-major-version 27) (if (< emacs-major-version 27)
(defsubst exwm-input--unread-event (event) (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)" (setq key (read-key (format "Send key: %s (%d/%d)"
(key-description keys) (key-description keys)
(1+ i) times))) (1+ i) times)))
(when (and (listp key) (eq (car key) t))
(setq key (cdr key)))
(unless (listp key) (throw 'break nil))))) (unless (listp key) (throw 'break nil)))))
(setq keys (vconcat keys (vector key))) (setq keys (vconcat keys (vector key)))
(exwm-input--fake-key key)))) (exwm-input--fake-key key))))