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>
This commit is contained in:
parent
2195316821
commit
18fc95def2
1 changed files with 1 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue