mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 04:50:55 -07:00
Code Issues Projects Releases Wiki Activity

(server-running-p): New function.

Browse source
This commit is contained in:
Stefan Monnier 2007-09-19 02:00:54 +00:00
parent 44fe0f6571
commit 44954c2f94
2 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2007-09-19 Stefan Monnier <monnier@iro.umontreal.ca>
* server.el (server-running-p): New function.
2007-09-18 Jason Rumney <jasonr@gnu.org>
* term/w32-win.el (w32-focus-frame): Make obsolete alias for

18
lisp/server.el
View file

@ -391,7 +391,8 @@ message."
(server-log (format "server-handle-suspend-tty, terminal %s" terminal) proc)
(condition-case err
(server-send-string proc "-suspend \n")
(file-error (ignore-errors (server-delete-client proc))))))
(file-error ;The pipe/socket was closed.
(ignore-errors (server-delete-client proc))))))
(defun server-unquote-arg (arg)
"Remove &-quotation from ARG.
@ -526,6 +527,21 @@ kill any existing server communications subprocess."
" " (int-to-string (emacs-pid))
"\n" auth-key)))))))))
(defun server-running-p (&optional name)
"Test whether server NAME is running."
(interactive
(list (if current-prefix-arg
(read-string "Server name: " nil nil server-name))))
(unless name (setq name server-name))
(condition-case nil
(progn
(delete-process
(make-network-process
:name "server-client-test" :family 'local :server nil :noquery t
:service (expand-file-name name server-socket-dir)))
t)
(file-error nil)))
;;;###autoload
(define-minor-mode server-mode
"Toggle Server mode.