[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 8a54504: Handle (t . EVENT) format events in exwm-
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 8a54504: Handle (t . EVENT) format events in exwm-xim |
Date: |
Sun, 9 Jun 2019 06:55:39 -0400 (EDT) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/exwm 8a54504: Handle (t . EVENT) format events in exwm-xim,
Chris Feng <=