mirror of
https://github.com/emacs-exwm/exwm.git
synced 2024-11-27 14:57:59 +01:00
Minor cleanup
* exwm-layout.el (exwm-layout--refresh): Reuse car.
This commit is contained in:
parent
3cef44a6ca
commit
f6cd9503e6
1 changed files with 4 additions and 4 deletions
|
@ -282,11 +282,11 @@
|
||||||
(if (not windows)
|
(if (not windows)
|
||||||
(when (eq frame exwm--frame) ;for exwm-layout-show-all-buffers
|
(when (eq frame exwm--frame) ;for exwm-layout-show-all-buffers
|
||||||
(exwm-layout--hide exwm--id))
|
(exwm-layout--hide exwm--id))
|
||||||
(if (eq frame exwm--frame)
|
|
||||||
(exwm-layout--show exwm--id (car windows))
|
|
||||||
(exwm-workspace-move-window
|
|
||||||
(cl-position frame exwm-workspace--list) exwm--id))
|
|
||||||
(let ((window (car windows)))
|
(let ((window (car windows)))
|
||||||
|
(if (eq frame exwm--frame)
|
||||||
|
(exwm-layout--show exwm--id window)
|
||||||
|
(exwm-workspace-move-window
|
||||||
|
(cl-position frame exwm-workspace--list) exwm--id))
|
||||||
;; Make sure this buffer is not displayed elsewhere
|
;; Make sure this buffer is not displayed elsewhere
|
||||||
(dolist (i (get-buffer-window-list (current-buffer) 0 t))
|
(dolist (i (get-buffer-window-list (current-buffer) 0 t))
|
||||||
(unless (eq i window)
|
(unless (eq i window)
|
||||||
|
|
Loading…
Reference in a new issue