Format some code in funcs.el
This commit is contained in:
parent
f71eec61d0
commit
fb4d032353
|
@ -548,17 +548,18 @@ kill internal buffers too."
|
||||||
"prevent window manager close from closing instance.")
|
"prevent window manager close from closing instance.")
|
||||||
|
|
||||||
(defun spacemacs-persistent-server-running-p ()
|
(defun spacemacs-persistent-server-running-p ()
|
||||||
"requires spacemacs-really-kill-emacs to be toggled and dotspacemacs-persistent-server to be t"
|
"Requires spacemacs-really-kill-emacs to be toggled and
|
||||||
|
dotspacemacs-persistent-server to be t"
|
||||||
(and (fboundp 'server-running-p)
|
(and (fboundp 'server-running-p)
|
||||||
(server-running-p)
|
(server-running-p)
|
||||||
dotspacemacs-persistent-server))
|
dotspacemacs-persistent-server))
|
||||||
|
|
||||||
(defadvice kill-emacs (around spacemacs-really-exit activate)
|
(defadvice kill-emacs (around spacemacs-really-exit activate)
|
||||||
"Only kill emacs if a prefix is set"
|
"Only kill emacs if a prefix is set"
|
||||||
(if (and (not spacemacs-really-kill-emacs) (spacemacs-persistent-server-running-p))
|
(if (and (not spacemacs-really-kill-emacs)
|
||||||
|
(spacemacs-persistent-server-running-p))
|
||||||
(spacemacs/frame-killer)
|
(spacemacs/frame-killer)
|
||||||
ad-do-it
|
ad-do-it))
|
||||||
))
|
|
||||||
|
|
||||||
(defadvice save-buffers-kill-emacs (around spacemacs-really-exit activate)
|
(defadvice save-buffers-kill-emacs (around spacemacs-really-exit activate)
|
||||||
"Only kill emacs if a prefix is set"
|
"Only kill emacs if a prefix is set"
|
||||||
|
|
Loading…
Reference in a new issue