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

24
exwm-input.el
View file

@ -121,20 +121,18 @@ 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))) ;; Not sure if this is the right thing to do but the point is the
(xcb:unmarshal obj data) ;; input focus should not stay at the root window or any container,
;; Not sure if this is the right thing to do but the point is the ;; or the result would be unpredictable. `x-focus-frame' would
;; input focus should not stay at the root window or any container, ;; first set the input focus to the (previously) selected frame, and
;; or the result would be unpredictable. `x-focus-frame' would ;; then `select-window' would further update the input focus if the
;; first set the input focus to the (previously) selected frame, and ;; selected window is displaying an `exwm-mode' buffer. Perhaps we
;; then `select-window' would further update the input focus if the ;; should carefully filter out FocusIn events with certain 'detail'
;; selected window is displaying an `exwm-mode' buffer. Perhaps we ;; and 'mode' combinations, but this just works.
;; should carefully filter out FocusIn events with certain 'detail' (x-focus-frame (selected-frame))
;; and 'mode' combinations, but this just works. (select-window (selected-window)))
(x-focus-frame (selected-frame))
(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'."