emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/exwm 07921a3: Remove the MappingNotify event listener


From: Chris Feng
Subject: [elpa] externals/exwm 07921a3: Remove the MappingNotify event listener
Date: Sun, 13 Dec 2015 10:32:08 +0000

branch: externals/exwm
commit 07921a3731c3b951d7d5ecc35b808c40d1d15bd4
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    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).
---
 exwm-input.el |   19 -------------------
 1 files changed, 0 insertions(+), 19 deletions(-)

diff --git a/exwm-input.el b/exwm-input.el
index 98324b8..99a4b8f 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]