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

Fix a bug of simulation keys

Browse source 
* exwm-input.el (exwm-input--on-KeyPress-line-mode)
(exwm-input--on-KeyPress-char-mode): Force events to be added to
`this-command-keys'.
(exwm-input-send-next-key): The read event can now be (t . EVENT).
This commit is contained in:
Chris Feng 2016-07-12 11:55:02 +08:00
parent 4a1b177bce
commit 9c8e95b376
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
exwm-input.el
View file

@ -294,7 +294,9 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.")
(memq event exwm-input--simulation-prefix-keys))) (memq event exwm-input--simulation-prefix-keys)))
(setq mode xcb:Allow:AsyncKeyboard) (setq mode xcb:Allow:AsyncKeyboard)
(unless minibuffer-window (setq exwm-input--during-key-sequence t)) (unless minibuffer-window (setq exwm-input--during-key-sequence t))
(push event unread-command-events)) ;; Feed this event to command loop. Also force it to be added to
;; `this-command-keys'.
(push (cons t event) unread-command-events))
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:AllowEvents (make-instance 'xcb:AllowEvents
:mode (or mode xcb:Allow:ReplayKeyboard) :mode (or mode xcb:Allow:ReplayKeyboard)
@ -317,7 +319,9 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.")
(setq exwm-input--temp-line-mode t (setq exwm-input--temp-line-mode t
exwm-input--during-key-sequence t) exwm-input--during-key-sequence t)
(exwm-input--grab-keyboard)) ;grab keyboard temporarily (exwm-input--grab-keyboard)) ;grab keyboard temporarily
(push event unread-command-events)))) ;; Feed this event to command loop. Also force it to be added to
;; `this-command-keys'.
(push (cons t event) unread-command-events))))
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:AllowEvents (make-instance 'xcb:AllowEvents
:mode xcb:Allow:AsyncKeyboard :mode xcb:Allow:AsyncKeyboard
@ -443,6 +447,8 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.")
(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 exwm-input--during-key-sequence nil) (setq exwm-input--during-key-sequence nil)
(setq keys (vconcat keys (vector key))) (setq keys (vconcat keys (vector key)))