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)
