Fix wrong case statement to check server start

This commit is contained in:
Daniel Borchmann 2023-08-06 15:09:38 +02:00
parent e892a849c1
commit bc5df22b55
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625

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