[elpa] externals/xelb 9c01f69 1/2: Fix a mouse event to KEYSYM translation issue

[Chris Feng]

branch: externals/xelb
commit 9c01f690f46f174c462ec538050a9bb68d64d748
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix a mouse event to KEYSYM translation issue
    
    * xcb-keysyms.el (xcb:keysyms:event->keysym): Prevent adding implicit shift
      modifier for mouse events.
---
 xcb-keysyms.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/xcb-keysyms.el b/xcb-keysyms.el
index cf3f62a..c4b2ea2 100644
--- a/xcb-keysyms.el
+++ b/xcb-keysyms.el
@@ -365,7 +365,8 @@ This function returns nil when it fails to convert an 
event."
     (when keysym
       (let ((keycode (xcb:keysyms:keysym->keycode obj keysym))
             (keysyms (plist-get (slot-value obj 'extra-plist) 'keysyms)))
-        (unless (equal keysym (cdr (assoc keycode keysyms)))
+        (unless (or (not keycode)
+                    (equal keysym (cdr (assoc keycode keysyms))))
           ;; Shift key is required to input the KEYSYM
           (cl-pushnew 'shift modifiers)))
       (setq modifiers