[elpa] externals/xelb 946d3ed 14/42: Fix keyboard mapping update problem

[Chris Feng]

branch: externals/xelb
commit 946d3edbf0dc5074e76c0577e3cbb8e97017ff96
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix keyboard mapping update problem
    
    Keep result from previous update.
---
 xcb-keysyms.el |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/xcb-keysyms.el b/xcb-keysyms.el
index d64abe5..c82f695 100644
--- a/xcb-keysyms.el
+++ b/xcb-keysyms.el
@@ -74,12 +74,14 @@ This method must be called before using any other method in 
this module."
                                    :first-keycode first-keycode :count count)))
          (keysyms-per-keycode (slot-value reply 'keysyms-per-keycode))
          (keysyms (slot-value reply 'keysyms))
-         result keycode index row-index keysym)
+         (result (plist-get (slot-value obj 'extra-plist) 'keysyms))
+         keycode index row-index keysym)
     (dotimes (i count)
       (setq keycode (+ i first-keycode)
             index (* i keysyms-per-keycode)
             row-index 0)
       (setq keysym (nth (+ index row-index) keysyms))
+      (setq result (assq-delete-all keycode result))
       (while (and (/= keysym 0) (< row-index keysyms-per-keycode))
         (setq result (append result `((,keycode . ,keysym)))
               row-index (1+ row-index)