* exwm-workspace.el (exwm-workspace--init): Remove possible

internal borders of workspace frames.

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