mirror of
https://github.com/emacs-exwm/exwm.git
synced 2024-11-27 14:57:59 +01:00
Correct the detection of emacsclient
* exwm.el (exwm-enable): Use `daemonp' instead of `display-graphic-p'.
This commit is contained in:
parent
61274e0953
commit
0106dd69c7
1 changed files with 4 additions and 5 deletions
9
exwm.el
9
exwm.el
|
@ -726,11 +726,10 @@
|
||||||
;; Ignore unrecognized command line arguments. This can be helpful
|
;; Ignore unrecognized command line arguments. This can be helpful
|
||||||
;; when EXWM is launched by some session manager.
|
;; when EXWM is launched by some session manager.
|
||||||
(push #'vector command-line-functions)
|
(push #'vector command-line-functions)
|
||||||
(if (display-graphic-p)
|
(add-hook (if (daemonp)
|
||||||
;; emacs.
|
'after-make-frame-functions ;emacsclient
|
||||||
(add-hook 'window-setup-hook #'exwm-init t)
|
'window-setup-hook) ;emacs
|
||||||
;; emacsclient.
|
#'exwm-init t)
|
||||||
(add-hook 'after-make-frame-functions #'exwm-init t))
|
|
||||||
(add-hook 'kill-emacs-hook #'exwm--server-stop)
|
(add-hook 'kill-emacs-hook #'exwm--server-stop)
|
||||||
(dolist (i exwm-blocking-subrs)
|
(dolist (i exwm-blocking-subrs)
|
||||||
(advice-add i :around #'exwm--server-eval-at)))))
|
(advice-add i :around #'exwm--server-eval-at)))))
|
||||||
|
|
Loading…
Reference in a new issue