From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 20 Apr 1994 20:26:25 +0000 (+0000)
Subject: (server-kill-emacs-query-function)
X-Git-Tag: emacs-19.34~8860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03d786655ba777f5d73a36cb4e6a308c22676609;p=emacs.git

(server-kill-emacs-query-function)
(server-kill-buffer-query-function): Give names to these hook fns.
---

diff --git a/lisp/server.el b/lisp/server.el
index 48285a0ee89..4fba0ec8d0c 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -286,18 +286,19 @@ Then bury it, and return a suggested buffer to select next."
 ;; If a server buffer is killed, release its client.
 ;; I'm not sure this is really a good idea--do you want the client
 ;; to proceed using whatever is on disk in that file?
+(defun server-kill-buffer-query-function ()
+  (or (not server-buffer-clients)
+      (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
+			   (buffer-name (current-buffer))))))
+
 (add-hook 'kill-buffer-query-functions
- 	  (function
- 	   (lambda ()
-	     (or (not server-buffer-clients)
-		 (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
-				      (buffer-name (current-buffer))))))))
-
-(add-hook 'kill-emacs-query-functions
- 	  (function
- 	   (lambda ()
-	     (or (not server-clients)
-		 (yes-or-no-p "Server buffers still have clients; exit anyway? ")))))
+ 	  'server-kill-buffer-query-function)
+
+(defun server-kill-emacs-query-function ()
+  (or (not server-clients)
+      (yes-or-no-p "Server buffers still have clients; exit anyway? ")))
+
+(add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
 
 (defun server-edit (&optional arg)
   "Switch to next server editing buffer; say \"Done\" for current buffer.