From 07921a3731c3b951d7d5ecc35b808c40d1d15bd4 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 13 Dec 2015 16:57:04 +0800 Subject: [PATCH] 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 file changed, 19 deletions(-) diff --git a/exwm-input.el b/exwm-input.el index 98324b8d6..99a4b8fa6 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