Mercurial > emacs
comparison lisp/server.el @ 79256:02a9c3ab0adf
(server-unload-function): Unbind `server-edit' from `C-x #'.
(server-unload-function): Remove variable.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 30 Oct 2007 00:20:02 +0000 |
| parents | cccc3ec23e08 |
| children | 73661ddc7ac7 d3e87ee5aa0e |
comparison
equal
deleted
inserted
replaced
| 79255:3e37b479924d | 79256:02a9c3ab0adf |
|---|---|
| 765 (define-key ctl-x-map "#" 'server-edit) | 765 (define-key ctl-x-map "#" 'server-edit) |
| 766 | 766 |
| 767 (defun server-unload-function () | 767 (defun server-unload-function () |
| 768 "Unload the server library." | 768 "Unload the server library." |
| 769 (server-mode -1) | 769 (server-mode -1) |
| 770 (substitute-key-definition 'server-edit nil ctl-x-map) | |
| 770 (save-current-buffer | 771 (save-current-buffer |
| 771 (dolist (buffer (buffer-list)) | 772 (dolist (buffer (buffer-list)) |
| 772 (set-buffer buffer) | 773 (set-buffer buffer) |
| 773 (remove-hook 'kill-buffer-hook 'server-kill-buffer t))) | 774 (remove-hook 'kill-buffer-hook 'server-kill-buffer t))) |
| 774 ;; continue standard unloading | 775 ;; continue standard unloading |
| 775 nil) | 776 nil) |
| 776 | 777 |
| 777 (add-hook 'kill-emacs-hook (lambda () (server-mode -1))) ;Cleanup upon exit. | 778 (add-hook 'kill-emacs-hook (lambda () (server-mode -1))) ;Cleanup upon exit. |
| 778 (defvar server-unload-function 'server-unload-function) | |
| 779 | 779 |
| 780 (provide 'server) | 780 (provide 'server) |
| 781 | 781 |
| 782 ;; arch-tag: 1f7ecb42-f00a-49f8-906d-61995d84c8d6 | 782 ;; arch-tag: 1f7ecb42-f00a-49f8-906d-61995d84c8d6 |
| 783 ;;; server.el ends here | 783 ;;; server.el ends here |