From 8a54504152220e660b7df33dacda3b58b7532563 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 9 Jun 2019 00:00:00 +0000 Subject: 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(-) (limited to 'exwm-xim.el') 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) -- cgit 1.4.1