diff options
| author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-07-17T12·00+0000 |
|---|---|---|
| committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-07-17T12·00+0000 |
| commit | 18fc95def2bc6a7c920967ada698d965c07cfd3d (patch) | |
| tree | ec2a1e15d00a3618c0481e2fd983e2f93d79181c /exwm-workspace.el | |
| parent | 2195316821c7d54cb6858e00d810e7089491a24d (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.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index 6228d99bbd..82c054fb92 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) |