Fix restarting issues

* exwm-workspace.el (exwm-workspace--confirm-kill-emacs):
* exwm.el (exwm-restart): Run `kill-emacs-hook' early; do not check for
X windows before restarting.
This commit is contained in:
Chris Feng 2016-07-31 13:14:43 +08:00
parent 1e78045f95
commit a3dba8edd9
2 changed files with 12 additions and 11 deletions

View file

@ -87,15 +87,11 @@
(defun exwm-restart ()
"Restart EXWM."
(interactive)
(when (exwm-workspace--confirm-kill-emacs "[EXWM] Restart? ")
(server-force-delete)
(run-hooks 'kill-emacs-hook)
;; FIXME: more?
(when (exwm-workspace--confirm-kill-emacs "[EXWM] Restart? " 'no-check)
(apply #'call-process (car command-line-args) nil nil nil
(cdr command-line-args))
;; Kill this instance at last.
(let ((kill-emacs-hook nil))
(kill-emacs))))
(kill-emacs)))
(defun exwm--update-window-type (id &optional force)
"Update _NET_WM_WINDOW_TYPE."