[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 10766e2 2/3: Support starting EXWM from Emacs serv
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 10766e2 2/3: Support starting EXWM from Emacs server not in daemon mode |
Date: |
Sat, 14 Sep 2019 03:21:04 -0400 (EDT) |
branch: externals/exwm
commit 10766e232b607755252fb22e212fb91efa00c6b9
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
Support starting EXWM from Emacs server not in daemon mode
* exwm.el (exwm-enable): Start EXWM from `window-setup-hook' or
`after-make-frame-functions', whichever comes first.
---
exwm.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/exwm.el b/exwm.el
index 87ce186..9d60d5c 100644
--- a/exwm.el
+++ b/exwm.el
@@ -892,10 +892,11 @@ manager. If t, replace it, if nil, abort and ask the
user if `ask'."
;; Ignore unrecognized command line arguments. This can be helpful
;; when EXWM is launched by some session manager.
(push #'vector command-line-functions)
- (add-hook (if (daemonp)
- 'after-make-frame-functions ;emacsclient
- 'window-setup-hook) ;emacs
- #'exwm-init t)
+ ;; In case EXWM is to be started from a graphical Emacs instance.
+ (add-hook 'window-setup-hook #'exwm-init t)
+ ;; In case EXWM is to be started with emacsclient.
+ (add-hook 'after-make-frame-functions #'exwm-init t)
+ ;; Manage the subordinate Emacs server.
(add-hook 'kill-emacs-hook #'exwm--server-stop)
(dolist (i exwm-blocking-subrs)
(advice-add i :around #'exwm--server-eval-at)))))