aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/server.el11
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/server.el b/lisp/server.el
index ac0d7018513..270eff55dcd 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -599,7 +599,10 @@ running, ask the user for confirmation first, unless optional
599argument INHIBIT-PROMPT is non-nil. 599argument INHIBIT-PROMPT is non-nil.
600 600
601To force-start a server, do \\[server-force-delete] and then 601To force-start a server, do \\[server-force-delete] and then
602\\[server-start]." 602\\[server-start].
603
604To check from a Lisp program whether a server is running, use
605the `server-process' variable."
603 (interactive "P") 606 (interactive "P")
604 (when (or (not server-clients) 607 (when (or (not server-clients)
605 ;; Ask the user before deleting existing clients---except 608 ;; Ask the user before deleting existing clients---except
@@ -725,7 +728,11 @@ Return values:
725 nil the server is definitely not running. 728 nil the server is definitely not running.
726 t the server seems to be running. 729 t the server seems to be running.
727 something else we cannot determine whether it's running without using 730 something else we cannot determine whether it's running without using
728 commands which may have to wait for a long time." 731 commands which may have to wait for a long time.
732
733This function can return non-nil if the server was started by some other
734Emacs process. To check from a Lisp program whether a server was started
735by the current Emacs process, use the `server-process' variable."
729 (unless name (setq name server-name)) 736 (unless name (setq name server-name))
730 (condition-case nil 737 (condition-case nil
731 (if server-use-tcp 738 (if server-use-tcp