[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/server.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/server.el,v |
Date: |
Wed, 19 Sep 2007 02:00:56 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/09/19 02:00:56
Index: server.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/server.el,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -b -r1.138 -r1.139
--- server.el 16 Sep 2007 05:16:41 -0000 1.138
+++ server.el 19 Sep 2007 02:00:54 -0000 1.139
@@ -391,7 +391,8 @@
(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 @@
" " (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.
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Dan Nicolaescu, 2007/09/04
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Dan Nicolaescu, 2007/09/04
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Stefan Monnier, 2007/09/16
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Stefan Monnier, 2007/09/16
- [Emacs-diffs] Changes to emacs/lisp/server.el,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Stefan Monnier, 2007/09/21
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Dan Nicolaescu, 2007/09/28