Mercurial > emacs
comparison lisp/server.el @ 83875:fbb5919e6afb
* server.el (server-start, server-unload-hook):
suspend-tty-functions has been renamed to suspend-tty-hook.
* xt-mouse.el: Likewise. resume-tty-functions has been renamed to
resume-tty-hook.
* term.c (Vsuspend_tty_hook): Rename from Vsuspend_tty_functions.
(Vresume_tty_hook): Rename from Vresume_tty_functions.
(syms_of_term): Rename suspend-tty-functions to suspend-tty-hook
and resume-tty-function to resume-tty-hook.
(Fsuspend_tty, Fresume_tty): Use new names.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 04 Sep 2007 15:44:11 +0000 |
| parents | 368f142b4073 |
| children | dab32bc3edc8 |
comparison
equal
deleted
inserted
replaced
| 83874:97ee6d41604e | 83875:fbb5919e6afb |
|---|---|
| 483 ;; Remove any leftover socket or authentication file. | 483 ;; Remove any leftover socket or authentication file. |
| 484 (ignore-errors (delete-file server-file)) | 484 (ignore-errors (delete-file server-file)) |
| 485 (when server-process | 485 (when server-process |
| 486 (server-log (message "Restarting server"))) | 486 (server-log (message "Restarting server"))) |
| 487 (letf (((default-file-modes) ?\700)) | 487 (letf (((default-file-modes) ?\700)) |
| 488 (add-hook 'suspend-tty-functions 'server-handle-suspend-tty) | 488 (add-hook 'suspend-tty-hook 'server-handle-suspend-tty) |
| 489 (add-hook 'delete-frame-functions 'server-handle-delete-frame) | 489 (add-hook 'delete-frame-functions 'server-handle-delete-frame) |
| 490 (add-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function) | 490 (add-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function) |
| 491 (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function) | 491 (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function) |
| 492 (setq server-process | 492 (setq server-process |
| 493 (apply #'make-network-process | 493 (apply #'make-network-process |
| 1223 (define-key ctl-x-map "#" 'server-edit) | 1223 (define-key ctl-x-map "#" 'server-edit) |
| 1224 | 1224 |
| 1225 (defun server-unload-hook () | 1225 (defun server-unload-hook () |
| 1226 "Unload the server library." | 1226 "Unload the server library." |
| 1227 (server-mode -1) | 1227 (server-mode -1) |
| 1228 (remove-hook 'suspend-tty-functions 'server-handle-suspend-tty) | 1228 (remove-hook 'suspend-tty-hook 'server-handle-suspend-tty) |
| 1229 (remove-hook 'delete-frame-functions 'server-handle-delete-frame) | 1229 (remove-hook 'delete-frame-functions 'server-handle-delete-frame) |
| 1230 (remove-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function) | 1230 (remove-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function) |
| 1231 (remove-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function) | 1231 (remove-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function) |
| 1232 (remove-hook 'kill-buffer-hook 'server-kill-buffer)) | 1232 (remove-hook 'kill-buffer-hook 'server-kill-buffer)) |
| 1233 | 1233 |