comparison src/keyboard.c @ 83449:ff74a86c2b16

Overhaul and simplify single_kboard API. Allow calls to `recursive-edit' in process filters. Small fixes. * lisp/server.el (server-process-filter): Protect `display-splash-screen' call in a condition-case. Explain why. * src/callint.c (Fcall_interactively): Update call to `temporarily_switch_to_single_kboard'. * src/fns.c (Fy_or_n_p): Ditto. * src/frame.c (Fdelete_frame): Remove unused variable `count'. * src/keyboard.c (wrong_kboard_jmpbuf): Remove global variable. * src/keyboard.c (read_char): Add wrong_kboard_jmpbuf parameter to allow for recursive calls. Update longjmp invocations. Remember the original current_kboard, and longjmp to `wrong_kboard_jmpbuf' when a filter, timer or sentinel changes it. Comment out unnecessary calls to `record_single_kboard_state' and `any_kboard_state'. Update recursive calls. * src/keyboard.c (read_key_sequence): Add `wrong_kboard_jmpbuf' local variable. Update setjmp and read_char calls. Abort if interrupted_kboard died in read_char. * src/keyboard.c (any_kboard_state, single_kboard_state) (record_single_kboard_state): Comment out obsolete functions. (push_frame_kboard): Remove function. (pop_kboard): Switch out of single_kboard mode if the kboard has been deleted. (temporarily_switch_to_single_kboard): Change first parameter to a frame pointer. Throw an error when caller wants to change kboards while in single_kboard mode. (restore_kboard_configuration): Abort if pop_kboard changed the kboard in single_kboard mode. (Frecursive_edit): Switch to single_kboard mode only in nested command loops. (cmd_error, command_loop, command_loop_1, timer_check): Comment out unnecessary call to `any_kboard_state' and `record_single_kboard_state'. * src/keyboard.c (delete_kboard): Exit single_kboard mode if we have just deleted that kboard. * src/keyboard.c (interrupt_signal): Use `Fkill_emacs' to exit Emacs, not `fatal_error_signal'. * src/keyboard.h (read_char, single_kboard_state) (record_single_kboard_state): Remove. (temporarily_switch_to_single_kboard): Update. * src/lread.c: Include setjmp.h. Update declaration of `read_char'. (read_filtered_event): Call `read_char' with a local `wrong_kboard_jmpbuf'. * src/minibuf.c (read_minibuf): Update call to `temporarily_switch_to_single_kboard'. * src/termchar.h (tty_display_info): Rename `previous_terminal_frame' member to `previous_frame'. * src/xdisp.c (redisplay_internal): Update references to `previous_terminal_frame'. (display_mode_line, Fformat_mode_line): Replace calls to `push_frame_kboard' with `push_kboard'. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-489

83448:d2af586aefe4

static void save_getcjmp P_ ((jmp_buf));
static void save_getcjmp ();
static void restore_getcjmp P_ ((jmp_buf));
static Lisp_Object apply_modifiers P_ ((int, Lisp_Object));
static void clear_event P_ ((struct input_event *));
static void any_kboard_state P_ ((void));
static Lisp_Object restore_kboard_configuration P_ ((Lisp_Object));
static SIGTYPE interrupt_signal P_ ((int signalnum));
static void handle_interrupt P_ ((void));
static void timer_start_idle P_ ((void));
static void timer_stop_idle P_ ((void));

  /* If we leave recursive_edit_1 below with a `throw' for instance,
     like it is done in the splash screen display, we have to
     make sure that we restore single_kboard as command_loop_1
     would have done if it were left normally.  */
  temporarily_switch_to_single_kboard (FRAME_KBOARD (SELECTED_FRAME ()));
  record_unwind_protect (recursive_edit_unwind, buffer);

  recursive_edit_1 ();
  return unbind_to (count, Qnil);
}

  update_mode_lines = 1;
  return Qnil;
}


static void
any_kboard_state ()
{
#ifdef MULTI_KBOARD
#if 0 /* Theory: if there's anything in Vunread_command_events,

{
#ifdef MULTI_KBOARD
  single_kboard = 1;
#endif
}

/* If we're in single_kboard state for kboard KBOARD,
   get out of it.  */

void

  p->kboard = current_kboard;
  kboard_stack = p;

  current_kboard = k;
#endif
}

void
push_frame_kboard (f)
     FRAME_PTR f;
{
  push_kboard (f->terminal->kboard);
}

void
pop_kboard ()
{

    }
  if (!found)
    {
      /* The terminal we remembered has been deleted.  */
      current_kboard = FRAME_KBOARD (SELECTED_FRAME ());
    }
  kboard_stack = p->next;
  xfree (p);
#endif
}

/* Switch to single_kboard mode.  If K is non-nil, set it as the
  current keyboard.  Use record_unwind_protect to return to the
  previous state later.  */

void
temporarily_switch_to_single_kboard (k)
     struct kboard *k;
{
#ifdef MULTI_KBOARD
  int was_locked = single_kboard;
  if (was_locked)
    {
      if (k != NULL)
        push_kboard (k);
      else
        push_kboard (current_kboard);
    }
  else if (k != NULL)
    current_kboard = k;
  single_kboard_state ();
  record_unwind_protect (restore_kboard_configuration,
                         (was_locked ? Qt : Qnil));
#endif
}

void
record_single_kboard_state ()
{
  if (single_kboard)
    push_kboard (current_kboard);
  record_unwind_protect (restore_kboard_configuration,
                         (single_kboard ? Qt : Qnil));
}

static Lisp_Object
restore_kboard_configuration (was_locked)
     Lisp_Object was_locked;
{
  if (NILP (was_locked))
    any_kboard_state ();
  else
    {
      single_kboard_state ();
      pop_kboard ();
    }
  return Qnil;
}

/* Handle errors that are not handled at inner levels

  Vprint_length = old_length;

  Vquit_flag = Qnil;

  Vinhibit_quit = Qnil;
#ifdef MULTI_KBOARD
  if (command_loop_level == 0 && minibuf_level == 0)
    any_kboard_state ();
#endif

  return make_number (0);
}

    }
  else
    while (1)
      {
	internal_catch (Qtop_level, top_level_1, Qnil);
        /* Reset single_kboard in case top-level set it while
           evaluating an -f option, or we are stuck there for some
           other reason. */
        any_kboard_state ();
	internal_catch (Qtop_level, command_loop_2, Qnil);
	executing_kbd_macro = Qnil;

	/* End of file in -batch run causes exit here.  */
	if (noninteractive)

  Lisp_Object keybuf[30];
  int i;
  int no_direct;
  int prev_modiff = 0;
  struct buffer *prev_buffer = NULL;
#ifdef MULTI_KBOARD
  int was_locked = single_kboard;
#endif
  int already_adjusted = 0;

  current_kboard->Vprefix_arg = Qnil;
  current_kboard->Vlast_prefix_arg = Qnil;
  Vdeactivate_mark = Qnil;

      /* Install chars successfully executed in kbd macro.  */

      if (!NILP (current_kboard->defining_kbd_macro)
	  && NILP (current_kboard->Vprefix_arg))
	finalize_kbd_macro_chars ();

#ifdef MULTI_KBOARD
      if (!was_locked)
	any_kboard_state ();
#endif
    }
}

extern Lisp_Object Qcomposition, Qdisplay;

Lisp_Object print_help ();
static Lisp_Object kbd_buffer_get_event ();
static void record_char ();

#ifdef MULTI_KBOARD
static jmp_buf wrong_kboard_jmpbuf;
#endif

#define STOP_POLLING					\
do { if (! polling_stopped_here) stop_polling ();	\
       polling_stopped_here = 1; } while (0)

#define RESUME_POLLING					\

   If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1
   if we used a mouse menu to read the input, or zero otherwise.  If
   USED_MOUSE_MENU is null, we don't dereference it.

   Value is t if we showed a menu and the user rejected it.  */

Lisp_Object
read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
     int commandflag;
     int nmaps;
     Lisp_Object *maps;
     Lisp_Object prev_event;
     int *used_mouse_menu;
{
  volatile Lisp_Object c;
  int count;
  jmp_buf local_getcjmp;
  jmp_buf save_jump;

  volatile Lisp_Object previous_echo_area_message;
  volatile Lisp_Object also_record;
  volatile int reread;
  struct gcpro gcpro1, gcpro2;
  int polling_stopped_here = 0;

  also_record = Qnil;

#if 0  /* This was commented out as part of fixing echo for C-u left.  */
  before_command_key_count = this_command_key_count;

	    kb->kbd_queue_has_data = 1;
	    current_kboard = kb;
	    /* This is going to exit from read_char
	       so we had better get rid of this frame's stuff.  */
	    UNGCPRO;
	    longjmp (wrong_kboard_jmpbuf, 1);
	  }
      }
#endif
      goto non_reread;
    }

	      redisplay ();
	    }
	}
    }

  /* If this has become non-nil here, it has been set by a timer
     or sentinel or filter.  */
  if (CONSP (Vunread_command_events))
    {
      c = XCAR (Vunread_command_events);

	  {
	    current_kboard = kb;
	    /* This is going to exit from read_char
	       so we had better get rid of this frame's stuff.  */
	    UNGCPRO;
	    longjmp (wrong_kboard_jmpbuf, 1);
	  }
    }
#endif

 wrong_kboard:

	    goto wrong_kboard;
	  current_kboard = kb;
	  /* This is going to exit from read_char
	     so we had better get rid of this frame's stuff.  */
	  UNGCPRO;
	  longjmp (wrong_kboard_jmpbuf, 1);
	}
#endif
    }

  /* Terminate Emacs in batch mode if at eof.  */

  tem = access_keymap (get_keymap (Vspecial_event_map, 0, 1), c, 0, 0, 1);
  Vquit_flag = save;

  if (!NILP (tem))
    {
      int was_locked = single_kboard;

      last_input_char = c;
      Fcommand_execute (tem, Qnil, Fvector (1, &last_input_char), Qt);

      if (CONSP (c) && EQ (XCAR (c), Qselect_window))
	/* We stopped being idle for this event; undo that.  This
	   prevents automatic window selection (under
	   mouse_autoselect_window from acting as a real input event, for
	   example banishing the mouse under mouse-avoidance-mode.  */
	timer_resume_idle ();

      /* Resume allowing input from any kboard, if that was true before.  */
      if (!was_locked)
	any_kboard_state ();

      goto retry;
    }

  /* Handle things that only apply to characters.  */

      if (STRINGP (tem0))
	internal_with_output_to_temp_buffer ("*Help*", print_help, tem0);

      cancel_echoing ();
      do
	c = read_char (0, 0, 0, Qnil, 0);
      while (BUFFERP (c));
      /* Remove the help from the frame */
      unbind_to (count, Qnil);

      redisplay ();
      if (EQ (c, make_number (040)))
	{
	  cancel_echoing ();
	  do
	    c = read_char (0, 0, 0, Qnil, 0);
	  while (BUFFERP (c));
	}
    }

 exit:

	  if (NILP (vector[0]))
	    {
	      int count = SPECPDL_INDEX ();
	      Lisp_Object old_deactivate_mark = Vdeactivate_mark;

	      /* On unbind_to, resume allowing input from any kboard, if that
                 was true before.  */
              record_single_kboard_state ();

	      /* Mark the timer as triggered to prevent problems if the lisp
		 code fails to reschedule it right.  */
	      vector[0] = Qt;

	      specbind (Qinhibit_quit, Qt);

#if defined (GOBBLE_FIRST_EVENT)
  int junk;
#endif

  struct gcpro gcpro1;

  GCPRO1 (fake_prefixed_keys);
  raw_keybuf_count = 0;

     this work right.  */

  /* Read the first char of the sequence specially, before setting
     up any keymaps, in case a filter runs and switches buffers on us.  */
  first_event = read_char (NILP (prompt), 0, submaps, last_nonmenu_event,
			   &junk);
#endif /* GOBBLE_FIRST_EVENT */

  orig_local_map = get_local_map (PT, current_buffer, Qlocal_map);
  orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
  from_string = Qnil;

	{
	  {
#ifdef MULTI_KBOARD
	    KBOARD *interrupted_kboard = current_kboard;
	    struct frame *interrupted_frame = SELECTED_FRAME ();
	    if (setjmp (wrong_kboard_jmpbuf))
	      {
		if (!NILP (delayed_switch_frame))
		  {
		    interrupted_kboard->kbd_queue
		      = Fcons (delayed_switch_frame,
			       interrupted_kboard->kbd_queue);

		goto replay_sequence;
	      }
#endif
	    key = read_char (NILP (prompt), nmaps,
			     (Lisp_Object *) submaps, last_nonmenu_event,
			     &used_mouse_menu);
	  }

	  /* read_char returns t when it shows a menu and the user rejects it.
	     Just return -1.  */
	  if (EQ (key, Qt))

  terminal = get_named_tty (NULL);
  if (!terminal)
    {
      /* If there are no frames there, let's pretend that we are a
         well-behaving UN*X program and quit. */
      fatal_error_signal (SIGTERM);
    }
  else
    {
      /* Otherwise, the SIGINT was probably generated by C-g.  */

  /* Prevent a dangling reference to KB.  */
  if (kb == current_kboard
      && FRAMEP (selected_frame)
      && FRAME_LIVE_P (XFRAME (selected_frame)))
    {
      current_kboard = XFRAME (selected_frame)->terminal->kboard;
      if (current_kboard == kb)
	abort ();
    }

  wipe_kboard (kb);

83449:ff74a86c2b16

static void save_getcjmp P_ ((jmp_buf));
static void save_getcjmp ();
static void restore_getcjmp P_ ((jmp_buf));
static Lisp_Object apply_modifiers P_ ((int, Lisp_Object));
static void clear_event P_ ((struct input_event *));
static Lisp_Object restore_kboard_configuration P_ ((Lisp_Object));
static SIGTYPE interrupt_signal P_ ((int signalnum));
static void handle_interrupt P_ ((void));
static void timer_start_idle P_ ((void));
static void timer_stop_idle P_ ((void));

  /* If we leave recursive_edit_1 below with a `throw' for instance,
     like it is done in the splash screen display, we have to
     make sure that we restore single_kboard as command_loop_1
     would have done if it were left normally.  */
  if (command_loop_level > 0)
    temporarily_switch_to_single_kboard (SELECTED_FRAME ());
  record_unwind_protect (recursive_edit_unwind, buffer);

  recursive_edit_1 ();
  return unbind_to (count, Qnil);
}

  update_mode_lines = 1;
  return Qnil;
}


#if 0  /* These two functions are now replaced with
          temporarily_switch_to_single_kboard. */
static void
any_kboard_state ()
{
#ifdef MULTI_KBOARD
#if 0 /* Theory: if there's anything in Vunread_command_events,

{
#ifdef MULTI_KBOARD
  single_kboard = 1;
#endif
}
#endif

/* If we're in single_kboard state for kboard KBOARD,
   get out of it.  */

void

  p->kboard = current_kboard;
  kboard_stack = p;

  current_kboard = k;
#endif
}

void
pop_kboard ()
{

    }
  if (!found)
    {
      /* The terminal we remembered has been deleted.  */
      current_kboard = FRAME_KBOARD (SELECTED_FRAME ());
      single_kboard = 0;
    }
  kboard_stack = p->next;
  xfree (p);
#endif
}

/* Switch to single_kboard mode, making current_kboard the only KBOARD
  from which further input is accepted.  If F is non-nil, set its
  KBOARD as the current keyboard.

  This function uses record_unwind_protect to return to the previous
  state later.

  If Emacs is already in single_kboard mode, and F's keyboard is
  locked, then this function will throw an errow.  */

void
temporarily_switch_to_single_kboard (f)
     struct frame *f;
{
#ifdef MULTI_KBOARD
  int was_locked = single_kboard;
  if (was_locked)
    {
      if (f != NULL && FRAME_KBOARD (f) != current_kboard)
        /* We can not switch keyboards while in single_kboard mode.
           This can legally happen when Lisp code calls
           `recursive-edit' (or `read-minibuffer' or `y-or-n-p') after
           it switched to a locked frame.  This kind of situation is
           likely to happen when server.el connects to a new
           terminal.  */
        error ("Terminal %d is locked, cannot read from it",
               FRAME_TERMINAL (f)->id);
      else
        /* This call is unnecessary, but helps
           `restore_kboard_configuration' discover if somebody changed
           `current_kboard' behind our back.  */
        push_kboard (current_kboard);
    }
  else if (f != NULL)
    current_kboard = FRAME_KBOARD (f);
  single_kboard = 1;
  record_unwind_protect (restore_kboard_configuration,
                         (was_locked ? Qt : Qnil));
#endif
}

#if 0 /* This function is not needed anymore.  */
void
record_single_kboard_state ()
{
  if (single_kboard)
    push_kboard (current_kboard);
  record_unwind_protect (restore_kboard_configuration,
                         (single_kboard ? Qt : Qnil));
}
#endif

static Lisp_Object
restore_kboard_configuration (was_locked)
     Lisp_Object was_locked;
{
  if (NILP (was_locked))
    single_kboard = 0;
  else
    {
      struct kboard *prev = current_kboard;
      single_kboard = 1;
      pop_kboard ();
      /* The pop should not change the kboard.  */
      if (single_kboard && current_kboard != prev)
        abort ();
    }
  return Qnil;
}

/* Handle errors that are not handled at inner levels

  Vprint_length = old_length;

  Vquit_flag = Qnil;

  Vinhibit_quit = Qnil;
#if 0 /* This shouldn't be necessary anymore. --lorentey */
#ifdef MULTI_KBOARD
  if (command_loop_level == 0 && minibuf_level == 0)
    any_kboard_state ();
#endif
#endif

  return make_number (0);
}

    }
  else
    while (1)
      {
	internal_catch (Qtop_level, top_level_1, Qnil);
#if 0 /* This shouldn't be necessary anymore.  --lorentey  */
        /* Reset single_kboard in case top-level set it while
           evaluating an -f option, or we are stuck there for some
           other reason. */
        any_kboard_state ();
#endif
	internal_catch (Qtop_level, command_loop_2, Qnil);
	executing_kbd_macro = Qnil;

	/* End of file in -batch run causes exit here.  */
	if (noninteractive)

  Lisp_Object keybuf[30];
  int i;
  int no_direct;
  int prev_modiff = 0;
  struct buffer *prev_buffer = NULL;
#if 0 /* This shouldn't be necessary anymore.  --lorentey  */
#ifdef MULTI_KBOARD
  int was_locked = single_kboard;
#endif
#endif  
  int already_adjusted = 0;

  current_kboard->Vprefix_arg = Qnil;
  current_kboard->Vlast_prefix_arg = Qnil;
  Vdeactivate_mark = Qnil;

      /* Install chars successfully executed in kbd macro.  */

      if (!NILP (current_kboard->defining_kbd_macro)
	  && NILP (current_kboard->Vprefix_arg))
	finalize_kbd_macro_chars ();
#if 0 /* This shouldn't be necessary anymore.  --lorentey  */
#ifdef MULTI_KBOARD
      if (!was_locked)
        any_kboard_state ();
#endif
#endif
    }
}

extern Lisp_Object Qcomposition, Qdisplay;

Lisp_Object print_help ();
static Lisp_Object kbd_buffer_get_event ();
static void record_char ();

#define STOP_POLLING					\
do { if (! polling_stopped_here) stop_polling ();	\
       polling_stopped_here = 1; } while (0)

#define RESUME_POLLING					\

   If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1
   if we used a mouse menu to read the input, or zero otherwise.  If
   USED_MOUSE_MENU is null, we don't dereference it.

   WRONG_KBOARD_JMPBUF should be a stack context to longjmp to in case
   we find input on another keyboard.
   
   Value is t if we showed a menu and the user rejected it.  */

Lisp_Object
read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu, wrong_kboard_jmpbuf)
     int commandflag;
     int nmaps;
     Lisp_Object *maps;
     Lisp_Object prev_event;
     int *used_mouse_menu;
     jmp_buf *wrong_kboard_jmpbuf;
{
  volatile Lisp_Object c;
  int count;
  jmp_buf local_getcjmp;
  jmp_buf save_jump;

  volatile Lisp_Object previous_echo_area_message;
  volatile Lisp_Object also_record;
  volatile int reread;
  struct gcpro gcpro1, gcpro2;
  int polling_stopped_here = 0;
  struct kboard *orig_kboard = current_kboard;

  also_record = Qnil;

#if 0  /* This was commented out as part of fixing echo for C-u left.  */
  before_command_key_count = this_command_key_count;

	    kb->kbd_queue_has_data = 1;
	    current_kboard = kb;
	    /* This is going to exit from read_char
	       so we had better get rid of this frame's stuff.  */
	    UNGCPRO;
            if (wrong_kboard_jmpbuf == NULL)
              abort ();
	    longjmp (*wrong_kboard_jmpbuf, 1);
	  }
      }
#endif
      goto non_reread;
    }

	      redisplay ();
	    }
	}
    }

  /* Notify the caller if a timer or sentinel or filter in the sit_for
     calls above have changed the current kboard.  This could happen
     if they start a recursive edit, like the fancy splash screen in
     server.el's filter.  If this longjmp wasn't here,
     read_key_sequence would interpret the next key sequence using the
     wrong translation tables and function keymaps.  */
  if (NILP (c) && current_kboard != orig_kboard)
    {
      UNGCPRO;
      if (wrong_kboard_jmpbuf == NULL)
        abort ();
      longjmp (*wrong_kboard_jmpbuf, 1);
    }

  /* If this has become non-nil here, it has been set by a timer
     or sentinel or filter.  */
  if (CONSP (Vunread_command_events))
    {
      c = XCAR (Vunread_command_events);

	  {
	    current_kboard = kb;
	    /* This is going to exit from read_char
	       so we had better get rid of this frame's stuff.  */
	    UNGCPRO;
            if (wrong_kboard_jmpbuf == NULL)
              abort ();
	    longjmp (*wrong_kboard_jmpbuf, 1);
	  }
    }
#endif

 wrong_kboard:

	    goto wrong_kboard;
	  current_kboard = kb;
	  /* This is going to exit from read_char
	     so we had better get rid of this frame's stuff.  */
	  UNGCPRO;
          if (wrong_kboard_jmpbuf == NULL)
            abort ();
	  longjmp (*wrong_kboard_jmpbuf, 1);
	}
#endif
    }

  /* Terminate Emacs in batch mode if at eof.  */

  tem = access_keymap (get_keymap (Vspecial_event_map, 0, 1), c, 0, 0, 1);
  Vquit_flag = save;

  if (!NILP (tem))
    {
#if 0 /* This shouldn't be necessary anymore. --lorentey  */
      int was_locked = single_kboard;
      int count = SPECPDL_INDEX ();
      record_single_kboard_state ();
#endif
      
      last_input_char = c;
      Fcommand_execute (tem, Qnil, Fvector (1, &last_input_char), Qt);

      if (CONSP (c) && EQ (XCAR (c), Qselect_window))
	/* We stopped being idle for this event; undo that.  This
	   prevents automatic window selection (under
	   mouse_autoselect_window from acting as a real input event, for
	   example banishing the mouse under mouse-avoidance-mode.  */
	timer_resume_idle ();

#if 0 /* This shouldn't be necessary anymore. --lorentey  */
      /* Resume allowing input from any kboard, if that was true before.  */
      if (!was_locked)
	any_kboard_state ();
      unbind_to (count, Qnil);
#endif

      goto retry;
    }

  /* Handle things that only apply to characters.  */

      if (STRINGP (tem0))
	internal_with_output_to_temp_buffer ("*Help*", print_help, tem0);

      cancel_echoing ();
      do
	c = read_char (0, 0, 0, Qnil, 0, &wrong_kboard_jmpbuf);
      while (BUFFERP (c));
      /* Remove the help from the frame */
      unbind_to (count, Qnil);

      redisplay ();
      if (EQ (c, make_number (040)))
	{
	  cancel_echoing ();
	  do
	    c = read_char (0, 0, 0, Qnil, 0, &wrong_kboard_jmpbuf);
	  while (BUFFERP (c));
	}
    }

 exit:

	  if (NILP (vector[0]))
	    {
	      int count = SPECPDL_INDEX ();
	      Lisp_Object old_deactivate_mark = Vdeactivate_mark;

#if 0 /* This shouldn't be necessary anymore.  --lorentey  */
	      /* On unbind_to, resume allowing input from any kboard, if that
                 was true before.  */
              record_single_kboard_state ();
#endif
	      /* Mark the timer as triggered to prevent problems if the lisp
		 code fails to reschedule it right.  */
	      vector[0] = Qt;

	      specbind (Qinhibit_quit, Qt);

#if defined (GOBBLE_FIRST_EVENT)
  int junk;
#endif

  jmp_buf *volatile wrong_kboard_jmpbuf = alloca (sizeof (jmp_buf));

  struct gcpro gcpro1;

  GCPRO1 (fake_prefixed_keys);
  raw_keybuf_count = 0;

     this work right.  */

  /* Read the first char of the sequence specially, before setting
     up any keymaps, in case a filter runs and switches buffers on us.  */
  first_event = read_char (NILP (prompt), 0, submaps, last_nonmenu_event,
			   &junk, NULL);
#endif /* GOBBLE_FIRST_EVENT */

  orig_local_map = get_local_map (PT, current_buffer, Qlocal_map);
  orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
  from_string = Qnil;

	{
	  {
#ifdef MULTI_KBOARD
	    KBOARD *interrupted_kboard = current_kboard;
	    struct frame *interrupted_frame = SELECTED_FRAME ();
	    if (setjmp (*wrong_kboard_jmpbuf))
	      {
                int found = 0;
                struct kboard *k;

                for (k = all_kboards; k; k = k->next_kboard)
                  if (k == interrupted_kboard)
                    found = 1;
                if (!found)
                  abort ();

		if (!NILP (delayed_switch_frame))
		  {
		    interrupted_kboard->kbd_queue
		      = Fcons (delayed_switch_frame,
			       interrupted_kboard->kbd_queue);

		goto replay_sequence;
	      }
#endif
	    key = read_char (NILP (prompt), nmaps,
			     (Lisp_Object *) submaps, last_nonmenu_event,
			     &used_mouse_menu, wrong_kboard_jmpbuf);
	  }

	  /* read_char returns t when it shows a menu and the user rejects it.
	     Just return -1.  */
	  if (EQ (key, Qt))

  terminal = get_named_tty (NULL);
  if (!terminal)
    {
      /* If there are no frames there, let's pretend that we are a
         well-behaving UN*X program and quit. */
      Fkill_emacs (Qnil);
    }
  else
    {
      /* Otherwise, the SIGINT was probably generated by C-g.  */

  /* Prevent a dangling reference to KB.  */
  if (kb == current_kboard
      && FRAMEP (selected_frame)
      && FRAME_LIVE_P (XFRAME (selected_frame)))
    {
      current_kboard = FRAME_KBOARD (XFRAME (selected_frame));
      single_kboard = 0;
      if (current_kboard == kb)
	abort ();
    }

  wipe_kboard (kb);