From b768cdcd31e941af9a1ddce45da7e1482b494e77 Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 5 Jul 2011 00:40:03 +0200
Subject: lisp/server.el: Catch quit and close the connection (bug#8942).

---
 lisp/server.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lisp/server.el')

diff --git a/lisp/server.el b/lisp/server.el
index 36b137b7bc9..c91f10b6584 100644
--- 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
-- 
cgit v1.2.1