summaryrefslogtreecommitdiff
path: root/lisp/server.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2010-10-02 20:03:44 -0400
committerChong Yidong <cyd@stupidchicken.com>2010-10-02 20:03:44 -0400
commit2a847524ab57b1b3d6eaa7e12b96be52dbb79509 (patch)
tree71a772d5f8313472005ad8865d72b5c2f871be04 /lisp/server.el
parent3ecb8d931af361c043e240a17b18e4f3bcaf0d30 (diff)
downloademacs-2a847524ab57b1b3d6eaa7e12b96be52dbb79509.tar.gz
* lisp/server.el (server-process-filter, server-return-error): Give
emacsclient time to shut down after receiving an error string. * etc/NEWS: Document tweak to emacsclient exit status.
Diffstat (limited to 'lisp/server.el')
-rw-r--r--lisp/server.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el
index 0f1b0219a2c..e661f055e1a 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -876,6 +876,9 @@ The following commands are accepted by the client:
(server-log "Authentication failed" proc)
(server-send-string
proc (concat "-error " (server-quote-arg "Authentication failed")))
+ ;; Before calling `delete-process', give emacsclient time to
+ ;; receive the error string and shut down on its own.
+ (sit-for 1)
(delete-process proc)
;; We return immediately
(return-from server-process-filter)))
@@ -1129,6 +1132,9 @@ The following commands are accepted by the client:
proc (concat "-error " (server-quote-arg
(error-message-string err))))
(server-log (error-message-string err) proc)
+ ;; Before calling `delete-process', give emacsclient time to
+ ;; receive the error string and shut down on its own.
+ (sit-for 5)
(delete-process proc)))
(defun server-goto-line-column (line-col)