Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d9569a55
Commit
d9569a55
authored
Dec 30, 2008
by
Andreas Schwab
Browse files
(server-running-p): Remove interactive spec. Fix
regexp.
parent
4484b97d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
4 deletions
+6
-4
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/server.el
lisp/server.el
+1
-4
No files found.
lisp/ChangeLog
View file @
d9569a55
2008-12-30 Andreas Schwab <schwab@suse.de>
* server.el (server-running-p): Remove interactive spec. Fix
regexp.
2008-12-30 Chong Yidong <cyd@stupidchicken.com>
* follow.el (follow-calc-win-start): Don't use `inline'.
...
...
lisp/server.el
View file @
d9569a55
...
...
@@ -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."
(
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
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment