about summary refs log tree commit diff
path: root/exwm-workspace.el
diff options
context:
space:
mode:
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)