mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source 
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'.
This commit is contained in:
Juanma Barranquero 2007-10-29 00:51:51 +00:00
parent b09ee19d0b
commit 08446d5eeb
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,3 +1,14 @@
2007-10-29 Juanma Barranquero <lekktu@gmail.com>
* loadhist.el (unload-feature-special-hooks):
Add `delete-frame-functions' and `suspend-tty-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-29 Glenn Morris <rgm@gnu.org>
* dirtrack.el (dirtrack-debug): Doc fix.

15
lisp/server.el
View File

@ -1283,17 +1283,18 @@ only these files will be asked to be saved."
(define-key ctl-x-map "#" 'server-edit)
(defun server-unload-hook ()
(defun server-unload-function ()
"Unload the server library."
(server-mode -1)
(remove-hook 'suspend-tty-functions 'server-handle-suspend-tty)
(remove-hook 'delete-frame-functions 'server-handle-delete-frame)
(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)
(provide 'server)