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

Always add `exwm-workspace--on-focus-in'

Browse source 
* exwm-workspace.el (exwm-workspace--init):
`exwm-workspace--on-focus-in' should always be added to `focus-in-hook'.
This commit is contained in:
Chris Feng 2016-05-21 12:50:10 +08:00
parent 2dcb26ce9d
commit dc0c0f5131
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-workspace.el
View file

@ -689,8 +689,6 @@ The optional FORCE option is for internal use only."
(add-hook 'minibuffer-exit-hook #'exwm-workspace--on-minibuffer-exit) (add-hook 'minibuffer-exit-hook #'exwm-workspace--on-minibuffer-exit)
(run-with-idle-timer 0 t #'exwm-workspace--on-echo-area-dirty) (run-with-idle-timer 0 t #'exwm-workspace--on-echo-area-dirty)
(add-hook 'echo-area-clear-hook #'exwm-workspace--on-echo-area-clear) (add-hook 'echo-area-clear-hook #'exwm-workspace--on-echo-area-clear)
;; Handle unexpected frame switch.
(add-hook 'focus-in-hook #'exwm-workspace--on-focus-in)
;; Create workspace frames. ;; Create workspace frames.
(dotimes (_ exwm-workspace-number) (dotimes (_ exwm-workspace-number)
(push (make-frame `((window-system . x) (push (make-frame `((window-system . x)
@ -700,6 +698,8 @@ The optional FORCE option is for internal use only."
;; The default behavior of `display-buffer' (indirectly called by ;; The default behavior of `display-buffer' (indirectly called by
;; `minibuffer-completion-help') is not correct here. ;; `minibuffer-completion-help') is not correct here.
(cl-pushnew '(exwm-workspace--display-buffer) display-buffer-alist)) (cl-pushnew '(exwm-workspace--display-buffer) display-buffer-alist))
;; Handle unexpected frame switch.
(add-hook 'focus-in-hook #'exwm-workspace--on-focus-in)
;; Prevent `other-buffer' from selecting already displayed EXWM buffers. ;; Prevent `other-buffer' from selecting already displayed EXWM buffers.
(modify-all-frames-parameters (modify-all-frames-parameters
'((buffer-predicate . exwm-layout--other-buffer-predicate))) '((buffer-predicate . exwm-layout--other-buffer-predicate)))