lisp/server.el: Catch quit and close the connection (bug#8942).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 71fc929308ba1c711ca2603bf3d113b51c745a09..6ec351d98c539a4d5743b575cfb9a84c4ecd10d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-04  Juanma Barranquero  <lekktu@gmail.com>
+
+       * server.el (server-execute): Catch quit and call
+       `server-return-error' to pass the error back to emacsclient and
+       close the connection (bug#8942).
+
 2011-07-04  Ken Manheimer  <ken.manheimer@gmail.com>
 
        * allout.el (allout-encrypt-unencrypted-on-saves): Do not provide

diff --git a/lisp/server.el b/lisp/server.el
index 36b137b7bc999bf2bbafabd39b8f16fc6546e98a..c91f10b658432a344bead239b5b16f2714dcfd2a 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1153,7 +1153,10 @@ The following commands are accepted by the client:
                              "When done with a buffer, type \\[server-edit]")))))
           (when (and frame (null tty-name))
             (server-unselect-display frame)))
-      (error (server-return-error proc err)))))
+      ((quit error)
+       (when (eq (car err) 'quit)
+         (message "Quit emacsclient request"))
+       (server-return-error proc err)))))
 
 (defun server-return-error (proc err)
   (ignore-errors