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

Minor cleanup

Browse source 
* exwm-layout.el (exwm-layout--refresh): Reuse car.
This commit is contained in:
Adrián Medraño Calvo 2016-03-19 00:00:00 +00:00
parent 3cef44a6ca
commit f6cd9503e6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-layout.el
View file

@ -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))
(let ((window (car windows)))
(if (eq frame exwm--frame) (if (eq frame exwm--frame)
(exwm-layout--show exwm--id (car windows)) (exwm-layout--show exwm--id window)
(exwm-workspace-move-window (exwm-workspace-move-window
(cl-position frame exwm-workspace--list) exwm--id)) (cl-position frame exwm-workspace--list) exwm--id))
(let ((window (car windows)))
;; 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)