about summary refs log tree commit diff
path: root/exwm-workspace.el
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2016-07-17T12·00+0000
committerAdrián Medraño Calvo <adrian@medranocalvo.com>2016-07-17T12·00+0000
commit18fc95def2bc6a7c920967ada698d965c07cfd3d (patch)
treeec2a1e15d00a3618c0481e2fd983e2f93d79181c /exwm-workspace.el
parent2195316821c7d54cb6858e00d810e7089491a24d (diff)
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>
Diffstat (limited to 'exwm-workspace.el')
-rw-r--r--exwm-workspace.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 6228d99bbd7d..82c054fb92a8 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)