branch: externals/xelb
commit 7c194e7a7fd18b1913133f7b450b6bb0b9dd300e
Author: Philip <pip...@gmail.com>
Commit: Philip <pip...@gmail.com>
Don't assume key events are numbers; they can be symbols.
* xcb-keysyms.el (xcb:keysyms:keysym->event): Don't die when
translating events like shift-KP7.
---
xcb-keysyms.el | 1 +
1 files changed, 1 insertions(+), 0 deletions(-)
diff --git a/xcb-keysyms.el b/xcb-keysyms.el
index ce6e65b..7f9e5e5 100644
--- a/xcb-keysyms.el
+++ b/xcb-keysyms.el
@@ -308,6 +308,7 @@ This function returns nil when it fails to convert an
event."
(push 'control event))
(when (and (/= 0 (logand mask xcb:keysyms:shift-mask))
;; Emacs only set shift bit for letters
+ (integerp (car (last event)))
(<= ?A (car (last event))) (>= ?Z (car (last event))))
(push 'shift event))
(when (and xcb:keysyms:hyper-mask
