changeset 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 97ee6d41604e
children 37f582a71062
files etc/NEWS lisp/ChangeLog lisp/server.el lisp/xt-mouse.el src/ChangeLog src/term.c
diffstat 6 files changed, 41 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/etc/NEWS	Tue Sep 04 06:47:41 2007 +0000
+++ b/etc/NEWS	Tue Sep 04 15:44:11 2007 +0000
@@ -236,6 +236,11 @@
 `terminal-parameter', `set-terminal-parameter',
 `modify-terminal-parameters'.
 
+*** New hooks: `suspend-tty-hook' and `resume-tty-hook' 
+are called after a tty frame has been suspended or resumed,
+respectively. The hooks are called with the terminal id of the frame
+being suspended/resumed as a parameter.
+
 *** New functions: `environment', `let-environment'.
 
 *** New variables: `local-key-translation-map', `local-function-key-map'.
--- a/lisp/ChangeLog	Tue Sep 04 06:47:41 2007 +0000
+++ b/lisp/ChangeLog	Tue Sep 04 15:44:11 2007 +0000
@@ -1,3 +1,11 @@
+2007-09-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* 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.
+
 2007-09-03  Emanuele Giaquinta <e.giaquinta@glauco.it>  (tiny change)
 
 	* loadup.el: Fix merge problem, only load "button" once.
--- a/lisp/server.el	Tue Sep 04 06:47:41 2007 +0000
+++ b/lisp/server.el	Tue Sep 04 15:44:11 2007 +0000
@@ -485,7 +485,7 @@
 	(when server-process
 	  (server-log (message "Restarting server")))
 	(letf (((default-file-modes) ?\700))
-	  (add-hook 'suspend-tty-functions 'server-handle-suspend-tty)
+	  (add-hook 'suspend-tty-hook 'server-handle-suspend-tty)
 	  (add-hook 'delete-frame-functions 'server-handle-delete-frame)
 	  (add-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function)
 	  (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
@@ -1225,7 +1225,7 @@
 (defun server-unload-hook ()
   "Unload the server library."
   (server-mode -1)
-  (remove-hook 'suspend-tty-functions 'server-handle-suspend-tty)
+  (remove-hook 'suspend-tty-hook '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)
--- a/lisp/xt-mouse.el	Tue Sep 04 06:47:41 2007 +0000
+++ b/lisp/xt-mouse.el	Tue Sep 04 15:44:11 2007 +0000
@@ -251,8 +251,8 @@
 (add-hook 'delete-frame-functions 'xterm-mouse-handle-delete-frame)
 
 ;; Restore normal mouse behaviour outside Emacs.
-(add-hook 'suspend-tty-functions 'turn-off-xterm-mouse-tracking-on-terminal)
-(add-hook 'resume-tty-functions 'turn-on-xterm-mouse-tracking-on-terminal)
+(add-hook 'suspend-tty-hook 'turn-off-xterm-mouse-tracking-on-terminal)
+(add-hook 'resume-tty-hook 'turn-on-xterm-mouse-tracking-on-terminal)
 (add-hook 'suspend-hook 'turn-off-xterm-mouse-tracking)
 (add-hook 'suspend-resume-hook 'turn-on-xterm-mouse-tracking)
 (add-hook 'kill-emacs-hook 'turn-off-xterm-mouse-tracking)
--- a/src/ChangeLog	Tue Sep 04 06:47:41 2007 +0000
+++ b/src/ChangeLog	Tue Sep 04 15:44:11 2007 +0000
@@ -1,3 +1,11 @@
+2007-09-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* 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.
+
 2007-09-02  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* gtkutil.c (update_frame_tool_bar): Handle stock name as a named icon
--- a/src/term.c	Tue Sep 04 06:47:41 2007 +0000
+++ b/src/term.c	Tue Sep 04 15:44:11 2007 +0000
@@ -124,10 +124,10 @@
 extern Lisp_Object Qspace, QCalign_to, QCwidth;
 
 /* Functions to call after suspending a tty. */
-Lisp_Object Vsuspend_tty_functions;
+Lisp_Object Vsuspend_tty_hook;
 
 /* Functions to call after resuming a tty. */
-Lisp_Object Vresume_tty_functions;
+Lisp_Object Vresume_tty_hook;
 
 /* Chain of all tty device parameters. */
 struct tty_display_info *tty_list;
@@ -2229,7 +2229,7 @@
 TTY may be a terminal id, a frame, or nil for the terminal device of
 the currently selected frame.
 
-This function runs `suspend-tty-functions' after suspending the
+This function runs `suspend-tty-hook' after suspending the
 device.  The functions are run with one arg, the id of the suspended
 terminal device.
 
@@ -2264,11 +2264,11 @@
       if (FRAMEP (t->display_info.tty->top_frame))
         FRAME_SET_VISIBLE (XFRAME (t->display_info.tty->top_frame), 0);
       
-      /* Run `suspend-tty-functions'.  */
+      /* Run `suspend-tty-hook'.  */
       if (!NILP (Vrun_hooks))
         {
           Lisp_Object args[2];
-          args[0] = intern ("suspend-tty-functions");
+          args[0] = intern ("suspend-tty-hook");
           args[1] = make_number (t->id);
           Frun_hook_with_args (2, args);
         }
@@ -2288,7 +2288,7 @@
 It is an error to resume a terminal while another terminal is active
 on the same device.
 
-This function runs `resume-tty-functions' after resuming the terminal.
+This function runs `resume-tty-hook' after resuming the terminal.
 The functions are run with one arg, the id of the resumed terminal
 device.
 
@@ -2329,11 +2329,11 @@
 
       init_sys_modes (t->display_info.tty);
 
-      /* Run `suspend-tty-functions'.  */
+      /* Run `resume-tty-hook'.  */
       if (!NILP (Vrun_hooks))
         {
           Lisp_Object args[2];
-          args[0] = intern ("resume-tty-functions");
+          args[0] = intern ("resume-tty-hook");
           args[1] = make_number (t->id);
           Frun_hook_with_args (2, args);
         }
@@ -3871,18 +3871,18 @@
   system_uses_terminfo = 0;
 #endif
 
-  DEFVAR_LISP ("suspend-tty-functions", &Vsuspend_tty_functions,
-    doc: /* Functions to be run after suspending a tty.
+  DEFVAR_LISP ("suspend-tty-hook", &Vsuspend_tty_hook,
+    doc: /* Hook to be run after suspending a tty.
 The functions are run with one argument, the terminal id to be suspended.
 See `suspend-tty'.  */);
-  Vsuspend_tty_functions = Qnil;
-
-
-  DEFVAR_LISP ("resume-tty-functions", &Vresume_tty_functions,
-    doc: /* Functions to be run after resuming a tty.
+  Vsuspend_tty_hook = Qnil;
+
+
+  DEFVAR_LISP ("resume-tty-hook", &Vresume_tty_hook,
+    doc: /* Hook to be run after resuming a tty.
 The functions are run with one argument, the terminal id that was revived.
 See `resume-tty'.  */);
-  Vresume_tty_functions = Qnil;
+  Vresume_tty_hook = Qnil;
 
   DEFVAR_BOOL ("visible-cursor", &visible_cursor,
 	       doc: /* Non-nil means to make the cursor very visible.