mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove the MappingNotify event listener

Browse source 
* 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).
This commit is contained in:
Chris Feng 2015-12-13 16:57:04 +08:00
parent 4d5dd85dcc
commit 07921a3731
1 changed files with 0 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
exwm-input.el
View file

@ -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) (setq exwm-input--temp-line-mode nil)
(exwm-input--release-keyboard)))) (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) (defun exwm-input--on-ButtonPress (data _synthetic)
"Handle ButtonPress event." "Handle ButtonPress event."
(let ((obj (make-instance 'xcb:ButtonPress)) (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-keysym (car resize-key)
exwm-input--resize-mask (cadr resize-key))) exwm-input--resize-mask (cadr resize-key)))
;; Attach event listeners ;; 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:KeyPress #'exwm-input--on-KeyPress)
(xcb:+event exwm--connection 'xcb:ButtonPress #'exwm-input--on-ButtonPress) (xcb:+event exwm--connection 'xcb:ButtonPress #'exwm-input--on-ButtonPress)
(xcb:+event exwm--connection 'xcb:ButtonRelease (xcb:+event exwm--connection 'xcb:ButtonRelease