Emit message when server is not started
This commit is contained in:
parent
e08b6bc31d
commit
327b44e3a0
5
init.el
5
init.el
|
@ -281,9 +281,10 @@
|
||||||
;; present, we really don't have to do anything. Furthermore, calling
|
;; present, we really don't have to do anything. Furthermore, calling
|
||||||
;; `db/run-init' again in a running Emacs will not restart the server (but
|
;; `db/run-init' again in a running Emacs will not restart the server (but
|
||||||
;; then, why whould one want to do this?).
|
;; then, why whould one want to do this?).
|
||||||
(unless (and (boundp 'server-process) server-process)
|
(if (and (boundp 'server-process) server-process)
|
||||||
(require 'server)
|
(message "Server already running, not restarting.")
|
||||||
|
|
||||||
|
(require 'server)
|
||||||
(let ((server-file (expand-file-name server-name
|
(let ((server-file (expand-file-name server-name
|
||||||
(if server-use-tcp server-auth-dir server-socket-dir))))
|
(if server-use-tcp server-auth-dir server-socket-dir))))
|
||||||
(if (file-exists-p server-file)
|
(if (file-exists-p server-file)
|
||||||
|
|
Loading…
Reference in New Issue