Emit message when server is not started

This commit is contained in:
Daniel - 2020-09-02 15:04:54 +02:00
parent e08b6bc31d
commit 327b44e3a0
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 3 additions and 2 deletions

View File

@ -281,9 +281,10 @@
;; 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
;; then, why whould one want to do this?).
(unless (and (boundp 'server-process) server-process)
(require 'server)
(if (and (boundp 'server-process) server-process)
(message "Server already running, not restarting.")
(require 'server)
(let ((server-file (expand-file-name server-name
(if server-use-tcp server-auth-dir server-socket-dir))))
(if (file-exists-p server-file)