diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2019-06-09T00·00+0000 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2019-06-09T00·00+0000 |
| commit | 8a54504152220e660b7df33dacda3b58b7532563 (patch) | |
| tree | 129ff2fa9a1f8442f6260b3cb3049720cd365313 /exwm-xim.el | |
| parent | 75833e0c53fa92d9b7c7f6ab78e206df6e07f9b9 (diff) | |
Handle (t . EVENT) format events in exwm-xim
* exwm-xim.el (exwm-xim--handle-forward-event-request): Ditto.
Diffstat (limited to 'exwm-xim.el')
| -rw-r--r-- | exwm-xim.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/exwm-xim.el b/exwm-xim.el index f6cd5299be37..344f8c64cdd4 100644 --- a/exwm-xim.el +++ b/exwm-xim.el @@ -546,7 +546,11 @@ The actual XIM request is in client message data or a property." (logand state (lognot (cdr keysym))))))) (while (or (slot-value req 'event) unread-command-events) (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) ;; `list' is the default method. (eq im-func #'list) |