Fix wrong case statement to check server start
This commit is contained in:
parent
e892a849c1
commit
bc5df22b55
4
init.el
4
init.el
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue