branch: externals/exwm commit 18fc95def2bc6a7c920967ada698d965c07cfd3d Author: Adrián Medraño Calvo <adr...@medranocalvo.com> Commit: Adrián Medraño Calvo <adr...@medranocalvo.com>
Minor cleanup * exwm-workspace.el (exwm-workspace--update-workareas): Use `make-list' instead of looping. 2016-07-16 Adrián Medraño Calvo <amcalvo@amclap> --- exwm-workspace.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/exwm-workspace.el b/exwm-workspace.el index 6228d99..82c054f 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -178,8 +178,7 @@ Value nil means to use the default position which is fixed at bottom, while (list (vector x y width height)))))) ;; Fall back to use the screen size. (let ((workarea (vector 0 0 root-width root-height))) - (dotimes (_ exwm-workspace-number) - (push workarea workareas)))) + (setq workareas (make-list exwm-workspace-number workarea)))) ;; Exclude areas occupied by struts. (dolist (struts exwm-workspace--struts) (setq edge (aref struts 0)