diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-07-19T11·18+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-07-19T11·18+0800 |
| commit | 624c72945a529c8221d12882063c7115af15a4c5 (patch) | |
| tree | c7e1ecb2abcac93caaee3d2f4b2f8d5d0a3c6020 /exwm-workspace.el | |
| parent | 37e51e65ade14ded8d4a45cc725b4b66bab6b879 (diff) | |
Fix an bug for emacsclient
* exwm-workspace.el (exwm-workspace--init): Always create one initial workspace by default.
Diffstat (limited to 'exwm-workspace.el')
| -rw-r--r-- | exwm-workspace.el | 12 |
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 |