[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/exwm 07921a3: Remove the MappingNotify event listener,
Chris Feng <=