diff options
author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-03-19T00·00+0000 |
---|---|---|
committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-03-19T00·00+0000 |
commit | f6cd9503e62164f9e2513755f95f7c61eeddf51e (patch) | |
tree | 30aefa350d908e5083df1bac903b47623b4cec1c /exwm-layout.el | |
parent | 3cef44a6ca2093500b092f99dc588fb8bf9c184d (diff) |
Minor cleanup
* exwm-layout.el (exwm-layout--refresh): Reuse car.
Diffstat (limited to 'exwm-layout.el')
-rw-r--r-- | exwm-layout.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/exwm-layout.el b/exwm-layout.el index 6825cb56d33d..fd8c164d9a8e 100644 --- a/exwm-layout.el +++ b/exwm-layout.el @@ -282,11 +282,11 @@ (if (not windows) (when (eq frame exwm--frame) ;for exwm-layout-show-all-buffers (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))) + (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 (dolist (i (get-buffer-window-list (current-buffer) 0 t)) (unless (eq i window) |