(server-unload-function): Rename from `server-unload-hook' and

adapt to new `unload-feature' functionality.  Remove hook from
`kill-buffer-hook' buffer-locally.
(server-unload-hook): Remove.
(server-unload-function): New var; replaces `server-unload-hook'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f68b6cafbb61705268c1c69404d3eccc7cfc7af..87ecb5383575d5bc2935ef757fb18504bac853b1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2007-10-29  Juanma Barranquero  <lekktu@gmail.com>
+
+       * loadhist.el (unload-feature-special-hooks):
+       Add `delete-frame-functions'.
+
+       * server.el (server-unload-function): Rename from `server-unload-hook'
+       and adapt to new `unload-feature' functionality.  Remove hook from
+       `kill-buffer-hook' buffer-locally.
+       (server-unload-hook): Remove.
+       (server-unload-function): New var; replaces `server-unload-hook'.
+
 2007-10-27  Juanma Barranquero  <lekktu@gmail.com>
 
        * desktop.el (uniquify-managed): Pacify byte compiler.

diff --git a/lisp/server.el b/lisp/server.el
index 8eb9dbb685e9818a50821d04eaf8a37e46df1f3c..6af9b9952d6b61f6d25a00c696d0b15e9636afbb 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -764,14 +764,18 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
 
 (define-key ctl-x-map "#" 'server-edit)
 
-(defun server-unload-hook ()
+(defun server-unload-function ()
+  "Unload the server library."
   (server-mode -1)
-  (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))
+  (save-current-buffer
+   (dolist (buffer (buffer-list))
+     (set-buffer buffer)
+     (remove-hook 'kill-buffer-hook 'server-kill-buffer t)))
+  ;; continue standard unloading
+  nil)
 
 (add-hook 'kill-emacs-hook (lambda () (server-mode -1))) ;Cleanup upon exit.
-(add-hook 'server-unload-hook 'server-unload-hook)
+(defvar server-unload-function 'server-unload-function)
 \f
 (provide 'server)