about summary refs log tree commit diff
diff options
context:
space:
mode:
-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)