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

Use more explicit argument for excluding minibuffers

Browse source 
* exwm-layout.el (exwm-layout--refresh): Use a more intuitive
value for specifying exclusion of minibuffers.
This commit is contained in:
Adrián Medraño Calvo 2018-08-16 12:00:00 +00:00
parent 5c1aa4dc31
commit 11fecb5186
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
exwm-layout.el
View file

@ -278,7 +278,7 @@ selected by `other-buffer'."
(exwm-layout--hide exwm--id))))) (exwm-layout--hide exwm--id)))))
;; Other frames (e.g. terminal/graphical frame of emacsclient) ;; Other frames (e.g. terminal/graphical frame of emacsclient)
;; We shall bury all `exwm-mode' buffers in this case ;; We shall bury all `exwm-mode' buffers in this case
(setq windows (window-list frame 0)) ;exclude minibuffer (setq windows (window-list frame 'nomini))
(let ((exwm-layout--other-buffer-exclude-exwm-mode-buffers t)) (let ((exwm-layout--other-buffer-exclude-exwm-mode-buffers t))
(dolist (window windows) (dolist (window windows)
(with-current-buffer (window-buffer window) (with-current-buffer (window-buffer window)
@ -293,7 +293,7 @@ selected by `other-buffer'."
(or exwm-layout-show-all-buffers (or exwm-layout-show-all-buffers
;; Exclude X windows on other workspaces ;; Exclude X windows on other workspaces
(eq frame exwm--frame))) (eq frame exwm--frame)))
(setq windows (get-buffer-window-list (current-buffer) 0 frame)) (setq windows (get-buffer-window-list (current-buffer) 'nomini frame))
(if (not windows) (if (not windows)
(when (eq frame exwm--frame) (when (eq frame exwm--frame)
(exwm-layout--hide exwm--id)) (exwm-layout--hide exwm--id))
@ -307,7 +307,7 @@ selected by `other-buffer'."
;; need to display with some other buffer there. ;; need to display with some other buffer there.
(setq vacated-windows (setq vacated-windows
(append vacated-windows (cdr (get-buffer-window-list (append vacated-windows (cdr (get-buffer-window-list
(current-buffer) 0 t)))) (current-buffer) 'nomini t))))
;; Note down when an EXWM-buffer is being covered by this ;; Note down when an EXWM-buffer is being covered by this
;; buffer; we don't want it to reappear in some vacated window. ;; buffer; we don't want it to reappear in some vacated window.
(let ((prev-buffer (car-safe (let ((prev-buffer (car-safe
@ -323,7 +323,7 @@ selected by `other-buffer'."
(switch-to-prev-buffer window))) (switch-to-prev-buffer window)))
;; Make sure windows floating / on other workspaces are excluded ;; Make sure windows floating / on other workspaces are excluded
(let ((exwm-layout--other-buffer-exclude-exwm-mode-buffers t)) (let ((exwm-layout--other-buffer-exclude-exwm-mode-buffers t))
(dolist (window (window-list frame 0)) (dolist (window (window-list frame 'nomini))
(with-current-buffer (window-buffer window) (with-current-buffer (window-buffer window)
(when (and (derived-mode-p 'exwm-mode) (when (and (derived-mode-p 'exwm-mode)
(or exwm--floating-frame (not (eq frame exwm--frame)))) (or exwm--floating-frame (not (eq frame exwm--frame))))