changeset 42140:49087a9d073e

(server-unload-hook): New function.
author Dave Love <fx@gnu.org>
date Tue, 18 Dec 2001 16:42:38 +0000
parents 5258f3b81740
children 55c0ac959234
files lisp/server.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/server.el	Tue Dec 18 16:30:26 2001 +0000
+++ b/lisp/server.el	Tue Dec 18 16:42:38 2001 +0000
@@ -546,6 +546,11 @@
 	  (switch-to-buffer (other-buffer))))))
 
 (global-set-key "\C-x#" 'server-edit)
+
+(defun server-unload-hook ()
+  (remove-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function)
+  (remove-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
+  (remove-hook 'kill-buffer-hook 'server-kill-buffer))
 
 (provide 'server)