comparison src/keyboard.c @ 10932:df11ec79623a

(cmd_error): Bind Vprint_level and Vprint_length.

10931:933a04abe0ac

Lisp_Object Fthis_command_keys ();
Lisp_Object Qextended_command_history;

Lisp_Object Qpolling_period;

/* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
   happens.  */
EMACS_TIME *input_available_clear_time;

/* Nonzero means use SIGIO interrupts; zero means use CBREAK mode.

Lisp_Object
cmd_error (data)
     Lisp_Object data;
{
  Vstandard_output = Qt;
  Vstandard_input = Qt;
  Vexecuting_macro = Qnil;
  if (current_perdisplay)
    {
      clear_prefix_arg ();
      cancel_echoing ();
    }
  cmd_error_internal (data, 0);

  Vquit_flag = Qnil;

  Vinhibit_quit = Qnil;
#ifdef MULTI_PERDISPLAY

10932:df11ec79623a

Lisp_Object Fthis_command_keys ();
Lisp_Object Qextended_command_history;

Lisp_Object Qpolling_period;

extern Lisp_Object Vprint_level, Vprint_length;

/* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
   happens.  */
EMACS_TIME *input_available_clear_time;

/* Nonzero means use SIGIO interrupts; zero means use CBREAK mode.

Lisp_Object
cmd_error (data)
     Lisp_Object data;
{
  Lisp_Object old_level, old_length;

  Vstandard_output = Qt;
  Vstandard_input = Qt;
  Vexecuting_macro = Qnil;
  if (current_perdisplay)
    {
      clear_prefix_arg ();
      cancel_echoing ();
    }

  /* Avoid unquittable loop if data contains a circular list.  */
  old_level = Vprint_level;
  old_length = Vprint_length;
  XSETFASTINT(Vprint_level, 10);
  XSETFASTINT(Vprint_length, 10);
  cmd_error_internal (data, 0);
  Vprint_level = old_level;
  Vprint_length = old_length;

  Vquit_flag = Qnil;

  Vinhibit_quit = Qnil;
#ifdef MULTI_PERDISPLAY