branch: externals/xelb
commit 946d3edbf0dc5074e76c0577e3cbb8e97017ff96
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
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)
