(server-unload-hook): New function.

df4e8a11 · Dave Love · af95e0d1 · df4e8a11
Commit df4e8a11 authored Dec 18, 2001 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

lisp/server.el lisp/server.el +5 -0

No files found.
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -546,6 +546,11 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
 	  (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)