From df4e8a11298b0fa49b3f2a0df1697fe44b838d22 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 18 Dec 2001 16:42:38 +0000 Subject: [PATCH] (server-unload-hook): New function. --- lisp/server.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/server.el b/lisp/server.el index ec7fdafb851..39ba7a8afd2 100644 --- 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) -- 2.39.2