Commit d9569a55 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(server-running-p): Remove interactive spec. Fix

parent 4484b97d
2008-12-30 Andreas Schwab <>
* server.el (server-running-p): Remove interactive spec. Fix
2008-12-30 Chong Yidong <>
* follow.el (follow-calc-win-start): Don't use `inline'.
......@@ -569,15 +569,12 @@ Return values:
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."
(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
(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
(string-to-number (match-string 1))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment