mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor cleanup

Browse source 
* 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:
Adrián Medraño Calvo 2016-07-17 12:00:00 +00:00
parent 2195316821
commit 18fc95def2
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
exwm-workspace.el
View file

@ -178,8 +178,7 @@ Value nil means to use the default position which is fixed at bottom, while
(list (vector x y width height)))))) (list (vector x y width height))))))
;; Fall back to use the screen size. ;; Fall back to use the screen size.
(let ((workarea (vector 0 0 root-width root-height))) (let ((workarea (vector 0 0 root-width root-height)))
(dotimes (_ exwm-workspace-number) (setq workareas (make-list exwm-workspace-number workarea))))
(push workarea workareas))))
;; Exclude areas occupied by struts. ;; Exclude areas occupied by struts.
(dolist (struts exwm-workspace--struts) (dolist (struts exwm-workspace--struts)
(setq edge (aref struts 0) (setq edge (aref struts 0)