Fix wrong case statement to check server start

This commit is contained in:
Daniel - 2023-08-06 15:09:38 +02:00
parent e892a849c1
commit bc5df22b55
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 2 additions and 2 deletions

View File

@ -303,9 +303,9 @@
server-file) server-file)
(server-start) (server-start)
(cl-ecase (server-running-p) (cl-case (server-running-p)
((t) t) ; server is running ((t) t) ; server is running
(nil (warn "Server not running, check logs and restart manually.")) ((nil) (warn "Server not running, check logs and restart manually."))
(t (warn "`server-running-p' returned neither nil nor t. Check and restart server manually if required.")))))) (t (warn "`server-running-p' returned neither nil nor t. Check and restart server manually if required."))))))
;; Load custom code ;; Load custom code