comparison src/term.c @ 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.

83874:97ee6d41604e

/* Display space properties */

extern Lisp_Object Qspace, QCalign_to, QCwidth;

/* Functions to call after suspending a tty. */
Lisp_Object Vsuspend_tty_functions;

/* Functions to call after resuming a tty. */
Lisp_Object Vresume_tty_functions;

/* Chain of all tty device parameters. */
struct tty_display_info *tty_list;

/* Nonzero means no need to redraw the entire frame on resuming a

not updated.

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
device.  The functions are run with one arg, the id of the suspended
terminal device.

`suspend-tty' does nothing if it is called on a device that is already
suspended.

      t->display_info.tty->output = 0;

      if (FRAMEP (t->display_info.tty->top_frame))
        FRAME_SET_VISIBLE (XFRAME (t->display_info.tty->top_frame), 0);
      
      /* Run `suspend-tty-functions'.  */
      if (!NILP (Vrun_hooks))
        {
          Lisp_Object args[2];
          args[0] = intern ("suspend-tty-functions");
          args[1] = make_number (t->id);
          Frun_hook_with_args (2, args);
        }
    }

suspended terminal are revived.

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.
The functions are run with one arg, the id of the resumed terminal
device.

`resume-tty' does nothing if it is called on a device that is not
suspended.

      if (FRAMEP (t->display_info.tty->top_frame))
        FRAME_SET_VISIBLE (XFRAME (t->display_info.tty->top_frame), 1);

      init_sys_modes (t->display_info.tty);

      /* Run `suspend-tty-functions'.  */
      if (!NILP (Vrun_hooks))
        {
          Lisp_Object args[2];
          args[0] = intern ("resume-tty-functions");
          args[1] = make_number (t->id);
          Frun_hook_with_args (2, args);
        }
    }

  system_uses_terminfo = 1;
#else
  system_uses_terminfo = 0;
#endif

  DEFVAR_LISP ("suspend-tty-functions", &Vsuspend_tty_functions,
    doc: /* Functions 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.
The functions are run with one argument, the terminal id that was revived.
See `resume-tty'.  */);
  Vresume_tty_functions = Qnil;

  DEFVAR_BOOL ("visible-cursor", &visible_cursor,
	       doc: /* Non-nil means to make the cursor very visible.
This only has an effect when running in a text terminal.
What means \"very visible\" is up to your terminal.  It may make the cursor

83875:fbb5919e6afb

/* Display space properties */

extern Lisp_Object Qspace, QCalign_to, QCwidth;

/* Functions to call after suspending a tty. */
Lisp_Object Vsuspend_tty_hook;

/* Functions to call after resuming a tty. */
Lisp_Object Vresume_tty_hook;

/* Chain of all tty device parameters. */
struct tty_display_info *tty_list;

/* Nonzero means no need to redraw the entire frame on resuming a

not updated.

TTY may be a terminal id, a frame, or nil for the terminal device of
the currently selected frame.

This function runs `suspend-tty-hook' after suspending the
device.  The functions are run with one arg, the id of the suspended
terminal device.

`suspend-tty' does nothing if it is called on a device that is already
suspended.

      t->display_info.tty->output = 0;

      if (FRAMEP (t->display_info.tty->top_frame))
        FRAME_SET_VISIBLE (XFRAME (t->display_info.tty->top_frame), 0);
      
      /* Run `suspend-tty-hook'.  */
      if (!NILP (Vrun_hooks))
        {
          Lisp_Object args[2];
          args[0] = intern ("suspend-tty-hook");
          args[1] = make_number (t->id);
          Frun_hook_with_args (2, args);
        }
    }

suspended terminal are revived.

It is an error to resume a terminal while another terminal is active
on the same device.

This function runs `resume-tty-hook' after resuming the terminal.
The functions are run with one arg, the id of the resumed terminal
device.

`resume-tty' does nothing if it is called on a device that is not
suspended.

      if (FRAMEP (t->display_info.tty->top_frame))
        FRAME_SET_VISIBLE (XFRAME (t->display_info.tty->top_frame), 1);

      init_sys_modes (t->display_info.tty);

      /* Run `resume-tty-hook'.  */
      if (!NILP (Vrun_hooks))
        {
          Lisp_Object args[2];
          args[0] = intern ("resume-tty-hook");
          args[1] = make_number (t->id);
          Frun_hook_with_args (2, args);
        }
    }

  system_uses_terminfo = 1;
#else
  system_uses_terminfo = 0;
#endif

  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_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_hook = Qnil;

  DEFVAR_BOOL ("visible-cursor", &visible_cursor,
	       doc: /* Non-nil means to make the cursor very visible.
This only has an effect when running in a text terminal.
What means \"very visible\" is up to your terminal.  It may make the cursor