Commit 44954c2f authored by Stefan Monnier's avatar Stefan Monnier

(server-running-p): New function.

parent 44fe0f65
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
......
......@@ -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.
......
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