about summary refs log tree commit diff
path: root/exwm-xim.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2019-06-09T00·00+0000
committerChris Feng <chris.w.feng@gmail.com>2019-06-09T00·00+0000
commit8a54504152220e660b7df33dacda3b58b7532563 (patch)
tree129ff2fa9a1f8442f6260b3cb3049720cd365313 /exwm-xim.el
parent75833e0c53fa92d9b7c7f6ab78e206df6e07f9b9 (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.el6
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)