Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 14:57:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Fix an bug for emacsclient

Browse source 
* exwm-workspace.el (exwm-workspace--init): Always create one initial
workspace by default.
This commit is contained in:
Chris Feng 2016-07-19 19:18:00 +08:00
parent 37e51e65ad
commit 624c72945a
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
exwm-workspace.el
View file

@ -1234,14 +1234,10 @@ applied to all subsequently created X frames."
(setq exwm-workspace--timer (setq exwm-workspace--timer
(run-with-idle-timer 0 t #'exwm-workspace--on-echo-area-dirty)) (run-with-idle-timer 0 t #'exwm-workspace--on-echo-area-dirty))
(add-hook 'echo-area-clear-hook #'exwm-workspace--on-echo-area-clear) (add-hook 'echo-area-clear-hook #'exwm-workspace--on-echo-area-clear)
;; Recreate frames with the external minibuffer set. ;; Recreate one frame with the external minibuffer set.
(setq initial-workspaces (setq initial-workspaces (list (make-frame '((window-system . x)
(mapcar (internal-border-width . 0)
(lambda (_) (client . nil)))))
(make-frame '((window-system . x)
(internal-border-width . 0)
(client . nil))))
initial-workspaces))
;; The default behavior of `display-buffer' (indirectly called by ;; The default behavior of `display-buffer' (indirectly called by
;; `minibuffer-completion-help') is not correct here. ;; `minibuffer-completion-help') is not correct here.
(cl-pushnew '(exwm-workspace--display-buffer) display-buffer-alist (cl-pushnew '(exwm-workspace--display-buffer) display-buffer-alist