Mercurial > emacs

diff lisp/server.el @ 100767:c2a05360a02f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-running-p): Remove interactive spec. Fix regexp.
author Andreas Schwab <schwab@suse.de>
date Tue, 30 Dec 2008 11:28:14 +0000
parents 40eb1f585dc7
children a9dc0e7c3f2b
line wrap: on
line diff
--- a/lisp/server.el	Tue Dec 30 10:52:01 2008 +0000
+++ b/lisp/server.el	Tue Dec 30 11:28:14 2008 +0000
@@ -569,15 +569,12 @@
   t                the server seems to be running.
   something else   we cannot determine whether it's running without using
                    commands which may have to wait for a long time."
-  (interactive
-   (list (if current-prefix-arg
-	     (read-string "Server name: " nil nil server-name))))
   (unless name (setq name server-name))
   (condition-case nil
       (if server-use-tcp
 	  (with-temp-buffer
 	    (insert-file-contents-literally (expand-file-name name server-auth-dir))
-	    (or (and (looking-at "127\.0\.0\.1:[0-9]+ \\([0-9]+\\)")
+	    (or (and (looking-at "127\\.0\\.0\\.1:[0-9]+ \\([0-9]+\\)")
 		     (assq 'comm
 			   (system-process-attributes
 			    (string-to-number (match-string 1))))