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

; Remove dead code

Browse source
This commit is contained in:
Chris Feng 2016-09-22 19:02:54 +08:00
parent 4287d31df1
commit 2497c45a1d
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-input.el
View file

@ -121,10 +121,8 @@ ARGS are additional arguments to CALLBACK."
(cdr exwm-input--timestamp-callback)) (cdr exwm-input--timestamp-callback))
(setq exwm-input--timestamp-callback nil))))) (setq exwm-input--timestamp-callback nil)))))
(defun exwm-input--on-FocusIn (data _synthetic) (defun exwm-input--on-FocusIn (&rest _args)
"Handle FocusIn events." "Handle FocusIn events."
(let ((obj (make-instance 'xcb:FocusIn)))
(xcb:unmarshal obj data)
;; Not sure if this is the right thing to do but the point is the ;; Not sure if this is the right thing to do but the point is the
;; input focus should not stay at the root window or any container, ;; input focus should not stay at the root window or any container,
;; or the result would be unpredictable. `x-focus-frame' would ;; or the result would be unpredictable. `x-focus-frame' would
@ -134,7 +132,7 @@ ARGS are additional arguments to CALLBACK."
;; should carefully filter out FocusIn events with certain 'detail' ;; should carefully filter out FocusIn events with certain 'detail'
;; and 'mode' combinations, but this just works. ;; and 'mode' combinations, but this just works.
(x-focus-frame (selected-frame)) (x-focus-frame (selected-frame))
(select-window (selected-window)))) (select-window (selected-window)))
(defun exwm-input--on-workspace-list-change () (defun exwm-input--on-workspace-list-change ()
"Run in `exwm-input--update-global-prefix-keys'." "Run in `exwm-input--update-global-prefix-keys'."