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-start)
(cl-ecase (server-running-p)
(cl-case (server-running-p)
((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."))))))
;; Load custom code