about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2015-12-13T08·57+0800
committerChris Feng <chris.w.feng@gmail.com>2015-12-13T08·57+0800
commit07921a3731c3b951d7d5ecc35b808c40d1d15bd4 (patch)
treeea5244704fc17f1d1a22010d1aeefd35e06fae99
parent4d5dd85dcc49c8ee9f0c496b439b420eaaeae5af (diff)
Remove the MappingNotify event listener
* exwm-input.el (exwm-input--on-MappingNotify, exwm-input--init): Remove
the event listener for MappingNotify event (it should be handled in the
underling library instead).
-rw-r--r--exwm-input.el19
1 files changed, 0 insertions, 19 deletions
diff --git a/exwm-input.el b/exwm-input.el
index 98324b8d683f..99a4b8fa628e 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -152,23 +152,6 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.")
       (setq exwm-input--temp-line-mode nil)
       (exwm-input--release-keyboard))))
 
-(defun exwm-input--on-MappingNotify (data _synthetic)
-  "Handle MappingNotify event."
-  (let ((obj (make-instance 'xcb:MappingNotify)))
-    (xcb:unmarshal obj data)
-    (with-slots (request first-keycode count) obj
-      (cond
-       ((= request xcb:Mapping:Modifier)
-        ;; Modifier keys changed
-        (exwm--log "Update modifier mapping")
-        (xcb:keysyms:update-modifier-mapping exwm--connection))
-       ((= request xcb:Mapping:Keyboard)
-        ;; Only update changed keys
-        (exwm--log "Update keyboard mapping: %d ~ %d"
-                   first-keycode (+ first-keycode count))
-        (xcb:keysyms:update-keyboard-mapping exwm--connection
-                                             first-keycode count))))))
-
 (defun exwm-input--on-ButtonPress (data _synthetic)
   "Handle ButtonPress event."
   (let ((obj (make-instance 'xcb:ButtonPress))
@@ -494,8 +477,6 @@ SIMULATION-KEYS is a list of alist (key-sequence1 . key-sequence2)."
           exwm-input--resize-keysym (car resize-key)
           exwm-input--resize-mask (cadr resize-key)))
   ;; Attach event listeners
-  (xcb:+event exwm--connection 'xcb:MappingNotify
-              #'exwm-input--on-MappingNotify)
   (xcb:+event exwm--connection 'xcb:KeyPress #'exwm-input--on-KeyPress)
   (xcb:+event exwm--connection 'xcb:ButtonPress #'exwm-input--on-ButtonPress)
   (xcb:+event exwm--connection 'xcb:ButtonRelease