about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2016-07-19T11·18+0800
committerChris Feng <chris.w.feng@gmail.com>2016-07-19T11·18+0800
commit624c72945a529c8221d12882063c7115af15a4c5 (patch)
treec7e1ecb2abcac93caaee3d2f4b2f8d5d0a3c6020
parent37e51e65ade14ded8d4a45cc725b4b66bab6b879 (diff)
Fix an bug for emacsclient
* exwm-workspace.el (exwm-workspace--init): Always create one initial
workspace by default.
-rw-r--r--exwm-workspace.el12
1 files changed, 4 insertions, 8 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 5d4d78f402ce..438ccdc94fd0 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -1234,14 +1234,10 @@ applied to all subsequently created X frames."
       (setq exwm-workspace--timer
             (run-with-idle-timer 0 t #'exwm-workspace--on-echo-area-dirty))
       (add-hook 'echo-area-clear-hook #'exwm-workspace--on-echo-area-clear)
-      ;; Recreate frames with the external minibuffer set.
-      (setq initial-workspaces
-            (mapcar
-             (lambda (_)
-               (make-frame '((window-system . x)
-                             (internal-border-width . 0)
-                             (client . nil))))
-             initial-workspaces))
+      ;; Recreate one frame with the external minibuffer set.
+      (setq initial-workspaces (list (make-frame '((window-system . x)
+                                                   (internal-border-width . 0)
+                                                   (client . nil)))))
       ;; The default behavior of `display-buffer' (indirectly called by
       ;; `minibuffer-completion-help') is not correct here.
       (cl-pushnew '(exwm-workspace--display-buffer) display-buffer-alist