[elpa] externals/exwm 8a54504: Handle (t . EVENT) format events in exwm-xim

[Chris Feng]

branch: externals/exwm
commit 8a54504152220e660b7df33dacda3b58b7532563
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Handle (t . EVENT) format events in exwm-xim
    
    * exwm-xim.el (exwm-xim--handle-forward-event-request): Ditto.
---
 exwm-xim.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/exwm-xim.el b/exwm-xim.el
index f6cd529..344f8c6 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)