Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 14:57:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Don't assume order of `get-buffer-window-list' results

Browse source 
It only guarantees that the first result *if* the buffer appears on the
selected window.
This commit is contained in:
Adrián Medraño Calvo 2018-08-16 12:00:00 +00:00
parent 11fecb5186
commit 633065ad55
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-layout.el
View file

@ -306,8 +306,10 @@ selected by `other-buffer'."
;; windows displaying an EXWM-buffer now displayed elsewhere; we ;; windows displaying an EXWM-buffer now displayed elsewhere; we
;; 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 (remove
(current-buffer) 'nomini t)))) window
(get-buffer-window-list
(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