Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-30 14:38:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

* exwm-workspace.el (exwm-workspace--init): Rebalance parentheses.

Browse source
This commit is contained in:
Chris Feng 2016-07-18 01:46:46 +08:00
parent 2195316821
commit 1a716d3939
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-workspace.el
View file

@ -819,12 +819,12 @@ The optional FORCE option is for internal use only."
;; Remove the possible internal border. ;; Remove the possible internal border.
(set-frame-parameter f 'internal-border-width 0) (set-frame-parameter f 'internal-border-width 0)
;; Prevent user from deleting this frame by accident. ;; Prevent user from deleting this frame by accident.
(set-frame-parameter f 'client nil)) (set-frame-parameter f 'client nil)))
;; Create remaining frames. ;; Create remaining frames.
(dotimes (_ (1- exwm-workspace-number)) (dotimes (_ (1- exwm-workspace-number))
(nconc exwm-workspace--list (nconc exwm-workspace--list
(list (make-frame '((window-system . x) (list (make-frame '((window-system . x)
(internal-border-width . 0)))))))) (internal-border-width . 0)))))))
;; Initialize workspaces without minibuffers. ;; Initialize workspaces without minibuffers.
(let ((old-frames (frame-list))) (let ((old-frames (frame-list)))
(setq exwm-workspace--minibuffer (setq exwm-workspace--minibuffer