Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 13:07:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Handle (t . EVENT) format events in exwm-xim

Browse source 
* exwm-xim.el (exwm-xim--handle-forward-event-request): Ditto.
This commit is contained in:
Chris Feng 2019-06-09 00:00:00 +00:00
parent 75833e0c53
commit 8a54504152
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-xim.el
View file

@ -546,7 +546,11 @@ The actual XIM request is in client message data or a property."
(logand state (lognot (cdr keysym))))))) (logand state (lognot (cdr keysym)))))))
(while (or (slot-value req 'event) unread-command-events) (while (or (slot-value req 'event) unread-command-events)
(unless (slot-value req 'event) (unless (slot-value req 'event)
(setq event (pop unread-command-events))) (setq event (pop unread-command-events))
;; Handle events in (t . EVENT) format.
(when (and (consp event)
(eq (car event) t))
(setq event (cdr event))))
(if (or (not im-func) (if (or (not im-func)
;; `list' is the default method. ;; `list' is the default method.
(eq im-func #'list) (eq im-func #'list)