diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-07-12T04·13+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-07-12T04·14+0800 |
| commit | 0863f4149062089abdadd0dd795ad17d0e73da03 (patch) | |
| tree | 9eeb1bfd7af398a73c17ad16dadc8d0a62d56510 /exwm-workspace.el | |
| parent | 9c8e95b376124ca192e65a3dca33dd40ca6ecee3 (diff) | |
* exwm-workspace.el (exwm-workspace--init): Remove possible
internal borders of workspace frames.
Diffstat (limited to 'exwm-workspace.el')
| -rw-r--r-- | exwm-workspace.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index b61b81c91bac..f5a320b57458 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -657,18 +657,23 @@ The optional FORCE option is for internal use only." (cl-assert (= 1 (length exwm-workspace--list))) (setq exwm-workspace--client (frame-parameter (car exwm-workspace--list) 'client)) - ;; Prevent user from deleting this frame by accident. - (set-frame-parameter (car exwm-workspace--list) 'client nil)) + (let ((f (car exwm-workspace--list))) + ;; Remove the possible internal border. + (set-frame-parameter f 'internal-border-width 0) + ;; Prevent user from deleting this frame by accident. + (set-frame-parameter f 'client nil)) ;; Create remaining frames. (dotimes (_ (1- exwm-workspace-number)) (nconc exwm-workspace--list - (list (make-frame '((window-system . x))))))) + (list (make-frame '((window-system . x) + (internal-border-width . 0)))))))) ;; Initialize workspaces without minibuffers. (let ((old-frames (frame-list))) (setq exwm-workspace--minibuffer (make-frame '((window-system . x) (minibuffer . only) (left . 10000) (right . 10000) (width . 0) (height . 0) + (internal-border-width . 0) (client . nil)))) ;; Remove/hide existing frames. (dolist (f old-frames) @@ -723,6 +728,7 @@ The optional FORCE option is for internal use only." (push (make-frame `((window-system . x) (minibuffer . ,(minibuffer-window exwm-workspace--minibuffer)) + (internal-border-width . 0) (client . nil))) exwm-workspace--list)) ;; The default behavior of `display-buffer' (indirectly called by |