branch: externals/xelb commit e1538298856405c4bc5ad4a686ad9890f8b346bd Merge: 677623a 7c194e7 Author: Chris Feng <chris.w.f...@gmail.com> Commit: Chris Feng <chris.w.f...@gmail.com>
Merge pull request #2 from pipcet/shift-keypad-fix Don't assume key events are numbers; they can be symbols. --- 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