comparison src/keyboard.c @ 10985:d917a965cb47

(unlock_display): current_perdisplay now is never null. (cmd_error, command_loop_1, read_char): Likewise. (kbd_buffer_get_event, read_key_sequence): Likewise. (read_char): Handle synchronous quit_char on a different display. (read_char): Rewrite queue-searching code. (read_key_sequence): Save selected_frame. (init_keyboard): Initialize current_perdisplay.

10984:0409e4548077

  current_perdisplay->echo_after_prompt = len;

  echo ();
}

/* Add C to the echo string, if echoing is going on.  
   C can be a character, which is printed prettily ("M-C-x" and all that
   jazz), or a symbol, whose name is printed.  */

echo_char (c)
     Lisp_Object c;

  extern char *push_key_description ();

  if (current_perdisplay->immediate_echo)
    {
      char *ptr = current_perdisplay->echoptr;
      
      if (ptr != current_perdisplay->echobuf)
	*ptr++ = ' ';

      /* If someone has passed us a composite event, use its head symbol.  */
      c = EVENT_HEAD (c);

      current_perdisplay->kbd_queue
	= nconc2 (Vunread_command_events, current_perdisplay->kbd_queue);
      current_perdisplay->kbd_queue_has_data = 1;
    }
  Vunread_command_events = Qnil;
  current_perdisplay = 0;
  display_locked = 0;
}
#endif

Lisp_Object

  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);

  Vquit_flag = Qnil;

  Vinhibit_quit = Qnil;
#ifdef MULTI_PERDISPLAY
  if (current_perdisplay)
    unlock_display ();
#endif

  return make_number (0);
}

  else
    while (1)
      {
	internal_catch (Qtop_level, top_level_1, Qnil);
	internal_catch (Qtop_level, command_loop_2, Qnil);
	
	/* End of file in -batch run causes exit here.  */
	if (noninteractive)
	  Fkill_emacs (Qt);
      }
}

  int was_locked = display_locked;
#endif

  Vdeactivate_mark = Qnil;
  waiting_for_input = 0;
  if (current_perdisplay)
    cancel_echoing ();

  nonundocount = 0;
  no_redisplay = 0;
  this_command_key_count = 0;

	  || executing_macro_index >= XFASTINT (Flength (Vexecuting_macro)))
	{
	  XSETINT (c, -1);
	  return c;
	}
      
      c = Faref (Vexecuting_macro, make_number (executing_macro_index));
      if (STRINGP (Vexecuting_macro)
	  && (XINT (c) & 0x80))
	XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80));

      /* If we report the quit char as an event,
	 don't do so more than once.  */
      if (!NILP (Vinhibit_quit))
	Vquit_flag = Qnil;

      goto non_reread;
    }

  if (current_perdisplay)
    {
      /* Message turns off echoing unless more keystrokes turn it on again. */
      if (echo_area_glyphs && *echo_area_glyphs
	  && echo_area_glyphs != current_perdisplay->echobuf)
	cancel_echoing ();
      else
	/* If already echoing, continue.  */
	echo_dash ();
    }

  /* Try reading a character via menu prompting in the minibuf.
     Try this before the sit-for, because the sit-for
     would do the wrong thing if we are supposed to do
     menu prompting. If EVENT_HAS_PARAMETERS then we are reading

	}
    }

  /* If in middle of key sequence and minibuffer not active,
     start echoing if enough time elapses.  */
  if (current_perdisplay
      && minibuf_level == 0
      && !current_perdisplay->immediate_echo
      && this_command_key_count > 0
      && ! noninteractive
      && echo_keystrokes > 0
      && (echo_area_glyphs == 0 || *echo_area_glyphs == 0))
    {

	}
    }

  if (NILP (c))
    {
      PERDISPLAY *perd;
      /* Check for something on one of the side queues.  Give priority to
	 the current display, but if we're not locked, then check the other
	 displays as well.  */
      if (current_perdisplay && current_perdisplay->kbd_queue_has_data)
	perd = current_perdisplay;
      else if (!display_locked)
	{
	  for (perd = all_perdisplays; perd; perd = perd->next_perdisplay)
	    if (perd->kbd_queue_has_data)
	      break;
	}
      else
	perd = 0;

      /* If we found something on a side queue, use that.
	 Otherwise, read from the main queue, and if that gives us
	 something we can't use yet, put it on the side queue and
	 try again.  */
      if (perd)
	{
	  if (!CONSP (perd->kbd_queue))
	    abort ();
	  c = XCONS (perd->kbd_queue)->car;
	  perd->kbd_queue = XCONS (perd->kbd_queue)->cdr;
	  if (NILP (perd->kbd_queue))
	    perd->kbd_queue_has_data = 0;
	  input_pending = readable_events ();
#ifdef MULTI_FRAME
	  if (EVENT_HAS_PARAMETERS (c)
	      && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qswitch_frame))
	    internal_last_event_frame = XCONS (XCONS (c)->cdr)->car;
	  Vlast_event_frame = internal_last_event_frame;
#endif
	}
      else
	{
	wrong_display:
	  /* Actually read a character, waiting if necessary.  */
	  while (c = kbd_buffer_get_event (&perd), NILP (c))
	    {
	      if (commandflag >= 0

		{
		  prepare_menu_bars ();
		  redisplay ();
		}
	    }
	  if (display_locked && perd != current_perdisplay)
	    {
	      Lisp_Object *tailp = &perd->kbd_queue;
	      while (CONSP (*tailp))
		tailp = &XCONS (*tailp)->cdr;
	      if (!NILP (*tailp))
		abort ();
	      *tailp = Fcons (c, Qnil);
	      perd->kbd_queue_has_data = 1;
	      goto wrong_display;
	    }
	}
#ifdef MULTI_PERDISPLAY
      if (perd != current_perdisplay)
	{
	  /* We shouldn't get here if we were locked onto one display!  */
	  if (display_locked)
	    abort ();
	  perd->kbd_queue = Fcons (c, perd->kbd_queue);
	  perd->kbd_queue_has_data = 1;
	  current_perdisplay = perd;
	  longjmp (wrong_display_jmpbuf, 1);
	}
#endif
    }
  /* Terminate Emacs in batch mode if at eof.  */
  if (noninteractive && INTEGERP (c) && XINT (c) < 0)
    Fkill_emacs (make_number (1));

  if (!input_pending && !detect_input_pending ())
    prepare_menu_bars ();

  XSETFRAME (do_mouse_tracking, selected_frame);
  
  val = Fprogn (args);
  return unbind_to (count, val);
}

#endif	/* HAVE_MOUSE */

      Lisp_Object bar_window;
      enum scroll_bar_part part;
      Lisp_Object x, y;
      unsigned long time;

      if (!current_perdisplay)
	abort ();

      *perdp = current_perdisplay;
      /* Note that this uses F to determine which display to look at.
	 If there is no valid info, it does not store anything
	 so x remains nil.  */
      x = Qnil;

	    obj = make_lispy_switch_frame (frame);
	  internal_last_event_frame = frame;
	}
#endif

      /* If we didn't decide to make a switch-frame event, go ahead and 
	 return a mouse-motion event.  */
      if (!NILP (x) && NILP (obj))
	obj = make_lispy_movement (f, bar_window, part, x, y, time);
    }
#endif	/* HAVE_MOUSE */

    0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 0,     /* 0xfff0 */
    0, 0, 0, 0, 0, 0, 0, "delete"
    };

static char *lispy_mouse_names[] = 
{
  "mouse-1", "mouse-2", "mouse-3", "mouse-4", "mouse-5"
};

/* Scroll bar parts.  */

				  (sizeof (lispy_function_keys)
				   / sizeof (lispy_function_keys[0])));
      break;

#if defined (MULTI_FRAME) || defined (HAVE_MOUSE)
      /* A mouse click.  Figure out where it is, decide whether it's 
         a press, click or drag, and build the appropriate structure.  */
    case mouse_click:
    case scroll_bar_click:
      {
	int button = event->code;

  struct Lisp_String *name;
  int i;
  int modifiers;

  CHECK_SYMBOL (symbol, 1);
  
  modifiers = 0;
  name = XSYMBOL (symbol)->name;

  for (i = 0; i+2 <= name->size; )
    {

    mod_len = p - new_mods;
  }

  {
    Lisp_Object new_name;
    
    new_name = make_uninit_string (mod_len + base_len);
    bcopy (new_mods, XSTRING (new_name)->data,	       mod_len);
    bcopy (base,     XSTRING (new_name)->data + mod_len, base_len);

    return Fintern (new_name, Qnil);

  if (CONSP (entry))
    new_symbol = XCONS (entry)->cdr;
  else
    {
      /* We have to create the symbol ourselves.  */  
      new_symbol = apply_modifiers_uncached (modifiers,
					     XSYMBOL (base)->name->data,
					     XSYMBOL (base)->name->size);

      /* Add the new symbol to the base's cache.  */

	    Fcons (base, Fcons (index, Qnil)));
      Fput (new_symbol, Qevent_symbol_elements,
	    Fcons (base, lispy_modifier_list (modifiers)));
    }

  /* Make sure this symbol is of the same kind as BASE.  

     You'd think we could just set this once and for all when we
     intern the symbol above, but reorder_modifiers may call us when
     BASE's property isn't set right; we can't assume that just
     because it has a Qmodifier_cache property it must have its

   persist between calls to modify_event_symbol that it can use to
   store a cache of the symbols it's generated for this NAME_TABLE
   before.  The object stored there may be a vector or an alist.

   SYMBOL_NUM is the number of the base name we want from NAME_TABLE.
   
   MODIFIERS is a set of modifier bits (as given in struct input_events)
   whose prefixes should be applied to the symbol name.

   SYMBOL_KIND is the value to be placed in the event_kind property of
   the returned symbol. 

   The symbols we create are supposed to have an
   `event-symbol-elements' property, which lists the modifiers present
   in the symbol's name.  */

      if (CONSP (*symbol_table))
	*symbol_table = Fcons (value, *symbol_table);
      else
	XVECTOR (*symbol_table)->contents[symbol_num] = value;

      /* Fill in the cache entries for this symbol; this also 	
	 builds the Qevent_symbol_elements property, which the user
	 cares about.  */
      apply_modifiers (modifiers & click_modifier, value);
      Fput (value, Qevent_kind, symbol_kind);
    }

   dealing with, without assuming that every file which uses
   UNBLOCK_INPUT also has #included the files necessary to get SIGIO. */
void
reinvoke_input_signal ()
{
#ifdef SIGIO  
  kill (0, SIGIO);
#endif
}

     during redisplay, during which a quit is fatal.  So inhibit
     quitting while building the menus.
     We do this instead of specbind because (1) errors will clear it anyway
     and (2) this avoids risk of specpdl overflow.  */
  oquit = Vinhibit_quit;
  Vinhibit_quit = Qt; 

  if (!NILP (old))
    menu_bar_items_vector = old;
  else
    menu_bar_items_vector = Fmake_vector (make_number (24), Qnil);

  /* Build our list of keymaps.
     If we recognize a function key and replace its escape sequence in
     keybuf with its symbol, or if the sequence starts with a mouse
     click and we need to switch buffers, we jump back here to rebuild
     the initial keymaps from the current buffer.  */
  { 
    Lisp_Object *tmaps;

    /* Should overriding-local-map apply, here?  */
    if (!NILP (Voverriding_local_map_menu_flag))
      {

   If USED_MOUSE_MENU is non-zero, 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 zero, *USED_MOUSE_MENU is left alone.

   The prompting is done based on the prompt-string of the map
   and the strings associated with various map elements.  

   This can be done with X menus or with menus put in the minibuf.
   These are done in different ways, depending on how the input will be read.
   Menus using X are done after auto-saving in read-char, getting the input
   event from Fx_popup_menu; menus using the minibuf use read_char recursively

	}

      /* Prompt with that and read response.  */
      message1 (menu);

      /* Make believe its not a keyboard macro in case the help char 
	 is pressed.  Help characters are not recorded because menu prompting
	 is not used on replay.
	 */
      orig_defn_macro = current_perdisplay->defining_kbd_macro;
      current_perdisplay->defining_kbd_macro = Qnil;

      next[i] = NILP (defs[i]) ? Qnil : get_keymap_1 (defs[i], 0, 1);

  return first_binding;
}

/* Read a sequence of keys that ends with a non prefix character, 
   storing it in KEYBUF, a buffer of size BUFSIZE.
   Prompt with PROMPT.
   Return the length of the key sequence stored.
   Return -1 if the user rejected a command menu.

    }

  /* Record the initial state of the echo area and this_command_keys;
     we will need to restore them if we replay a key sequence.  */
  if (INTERACTIVE)
    echo_start = (current_perdisplay ? echo_length () : 0);
  keys_start = this_command_key_count;

#if defined (GOBBLE_FIRST_EVENT)
  /* This doesn't quite work, because some of the things that read_char
     does cannot safely be bypassed.  It seems too risky to try to make
     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);

  /* Build our list of keymaps.
     If we recognize a function key and replace its escape sequence in
     keybuf with its symbol, or if the sequence starts with a mouse
     click and we need to switch buffers, we jump back here to rebuild
     the initial keymaps from the current buffer.  */
  { 
    Lisp_Object *maps;

    if (!NILP (Voverriding_local_map))
      {
	nmaps = 2;

  t = 0;

  /* These are no-ops the first time through, but if we restart, they
     revert the echo area and this_command_keys to their original state.  */
  this_command_key_count = keys_start;
  if (INTERACTIVE && t < mock_input && current_perdisplay)
    echo_truncate (echo_start);

  /* If the best binding for the current key sequence is a keymap, or
     we may be looking at a function key's escape sequence, keep on
     reading.  */

      if (INTERACTIVE)
	echo_local_start = echo_length ();
      keys_local_start = this_command_key_count;
      local_first_binding = first_binding;
      
    replay_key:
      /* These are no-ops, unless we throw away a keystroke below and
	 jumped back up to replay_key; in that case, these restore the
	 variables to their original state, allowing us to replay the
	 loop.  */

	  struct buffer *buf = current_buffer;

	  {
#ifdef MULTI_PERDISPLAY
	    PERDISPLAY *interrupted_perdisplay = current_perdisplay;
	    if (setjmp (wrong_display_jmpbuf))
	      {
		while (t > 0)
		  interrupted_perdisplay->kbd_queue
		    = Fcons (keybuf[--t], interrupted_perdisplay->kbd_queue);
		mock_input = 0;
		orig_local_map = get_local_map (PT, current_buffer);
		goto replay_sequence;
	      }
#endif

	      /* The Microsoft C compiler can't handle the goto that
		 would go here.  */
	      dummyflag = 1;
	      break;
	    }
	  
	  /* If the current buffer has been changed from under us, the
	     keymap may have changed, so replay the sequence.  */
	  if (BUFFERP (key))
	    {
	      mock_input = t;

	    }

	  Vquit_flag = Qnil;
	}

      /* Clicks in non-text areas get prefixed by the symbol 
	 in their CHAR-ADDRESS field.  For example, a click on
	 the mode line is prefixed by the symbol `mode-line'.

	 Furthermore, key sequences beginning with mouse clicks
	 are read using the keymaps of the buffer clicked on, not

		  GCPRO3 (fkey_map, keytran_map, delayed_switch_frame);
		  fkey_next = call1 (fkey_next, prompt);
		  UNGCPRO;
		  /* If the function returned something invalid,
		     barf--don't ignore it.
		     (To ignore it safely, we would need to gcpro a bunch of 
		     other variables.)  */
		  if (! (VECTORP (fkey_next) || STRINGP (fkey_next)))
		    error ("Function in function-key-map returns invalid key sequence");
		}

		      for (i = 0; i < len; i++)
			XSETFASTINT (keybuf[fkey_start + i],
				     XSTRING (fkey_next)->data[i]);
		    }
		  
		  mock_input = t;
		  fkey_start = fkey_end = t;
		  fkey_map = Vfunction_key_map;

		  /* Do pass the results through key-translation-map.  */
		  keytran_start = keytran_end = 0;
		  keytran_map = Vkey_translation_map;

		  goto replay_sequence;
		}
	      
	      fkey_map = get_keymap_1 (fkey_next, 0, 1);

	      /* If we no longer have a bound suffix, try a new positions for 
		 fkey_start.  */
	      if (NILP (fkey_map))
		{
		  fkey_end = ++fkey_start;
		  fkey_map = Vfunction_key_map;

		GCPRO3 (fkey_map, keytran_map, delayed_switch_frame);
		keytran_next = call1 (keytran_next, prompt);
		UNGCPRO;
		/* If the function returned something invalid,
		   barf--don't ignore it.
		   (To ignore it safely, we would need to gcpro a bunch of 
		   other variables.)  */
		if (! (VECTORP (keytran_next) || STRINGP (keytran_next)))
		  error ("Function in key-translation-map returns invalid key sequence");
	      }

		goto replay_sequence;
	      }

	    keytran_map = get_keymap_1 (keytran_next, 0, 1);

	    /* If we no longer have a bound suffix, try a new positions for 
	       keytran_start.  */
	    if (NILP (keytran_map))
	      {
		keytran_end = ++keytran_start;
		keytran_map = Vkey_translation_map;

    change_frame_size (selected_frame, height, width, 0, 0);

  /* Run suspend-resume-hook.  */
  if (!NILP (Vrun_hooks))
    call1 (Vrun_hooks, intern ("suspend-resume-hook"));
  
  UNGCPRO;
  return Qnil;
}

/* If STUFFSTRING is a string, stuff its contents as pending terminal input.

     time through.  */
  internal_last_event_frame = Qnil;
  Vlast_event_frame = internal_last_event_frame;
#endif

#ifndef MULTI_PERDISPLAY
  if (initialized)
    wipe_perdisplay (&the_only_perdisplay);
  init_perdisplay (&the_only_perdisplay);
#endif

  if (initialized)
    Ffillarray (kbd_buffer_frame_or_window, Qnil);

  kbd_buffer_frame_or_window

  poll_suppress_count = 1;
  start_polling ();
#endif
}

/* This type's only use is in syms_of_keyboard, to initialize the 
   event header symbols and put properties on them.  */
struct event_head {
  Lisp_Object *var;
  char *name;
  Lisp_Object *kind;

    "*Interval between polling for input during Lisp execution.\n\
The reason for polling is to make C-g work to stop a running program.\n\
Polling is needed only when using X windows and SIGIO does not work.\n\
Polling is automatically disabled in all other cases.");
  polling_period = 2;
  
  DEFVAR_LISP ("double-click-time", &Vdouble_click_time,
    "*Maximum time between mouse clicks to make a double-click.\n\
Measured in milliseconds.  nil means disable double-click recognition;\n\
t means double-clicks have no time limit and are detected\n\
by position only.");

10985:d917a965cb47

  current_perdisplay->echo_after_prompt = len;

  echo ();
}

/* Add C to the echo string, if echoing is going on.
   C can be a character, which is printed prettily ("M-C-x" and all that
   jazz), or a symbol, whose name is printed.  */

echo_char (c)
     Lisp_Object c;

  extern char *push_key_description ();

  if (current_perdisplay->immediate_echo)
    {
      char *ptr = current_perdisplay->echoptr;

      if (ptr != current_perdisplay->echobuf)
	*ptr++ = ' ';

      /* If someone has passed us a composite event, use its head symbol.  */
      c = EVENT_HEAD (c);

      current_perdisplay->kbd_queue
	= nconc2 (Vunread_command_events, current_perdisplay->kbd_queue);
      current_perdisplay->kbd_queue_has_data = 1;
    }
  Vunread_command_events = Qnil;
  display_locked = 0;
}
#endif

Lisp_Object

  Lisp_Object old_level, old_length;

  Vstandard_output = Qt;
  Vstandard_input = Qt;
  Vexecuting_macro = Qnil;
  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);

  Vquit_flag = Qnil;

  Vinhibit_quit = Qnil;
#ifdef MULTI_PERDISPLAY
  unlock_display ();
#endif

  return make_number (0);
}

  else
    while (1)
      {
	internal_catch (Qtop_level, top_level_1, Qnil);
	internal_catch (Qtop_level, command_loop_2, Qnil);

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

  int was_locked = display_locked;
#endif

  Vdeactivate_mark = Qnil;
  waiting_for_input = 0;
  cancel_echoing ();

  nonundocount = 0;
  no_redisplay = 0;
  this_command_key_count = 0;

	  || executing_macro_index >= XFASTINT (Flength (Vexecuting_macro)))
	{
	  XSETINT (c, -1);
	  return c;
	}

      c = Faref (Vexecuting_macro, make_number (executing_macro_index));
      if (STRINGP (Vexecuting_macro)
	  && (XINT (c) & 0x80))
	XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80));

      /* If we report the quit char as an event,
	 don't do so more than once.  */
      if (!NILP (Vinhibit_quit))
	Vquit_flag = Qnil;

#ifdef MULTI_PERDISPLAY
      {
	PERDISPLAY *perd = get_perdisplay (selected_frame);
	if (perd != current_perdisplay)
	  {
	    Lisp_Object *tailp = &perd->kbd_queue;
	    /* We shouldn't get here if we were locked onto one display!  */
	    if (display_locked)
	      abort ();
	    while (CONSP (*tailp))
	      tailp = &XCONS (*tailp)->cdr;
	    if (!NILP (*tailp))
	      abort ();
	    *tailp = Fcons (c, Qnil);
	    perd->kbd_queue_has_data = 1;
	    current_perdisplay = perd;
	    longjmp (wrong_display_jmpbuf, 1);
	  }
      }
#endif
      goto non_reread;
    }

  /* Message turns off echoing unless more keystrokes turn it on again. */
  if (echo_area_glyphs && *echo_area_glyphs
      && echo_area_glyphs != current_perdisplay->echobuf)
    cancel_echoing ();
  else
    /* If already echoing, continue.  */
    echo_dash ();

  /* Try reading a character via menu prompting in the minibuf.
     Try this before the sit-for, because the sit-for
     would do the wrong thing if we are supposed to do
     menu prompting. If EVENT_HAS_PARAMETERS then we are reading

	}
    }

  /* If in middle of key sequence and minibuffer not active,
     start echoing if enough time elapses.  */
  if (minibuf_level == 0 && !current_perdisplay->immediate_echo
      && this_command_key_count > 0
      && ! noninteractive
      && echo_keystrokes > 0
      && (echo_area_glyphs == 0 || *echo_area_glyphs == 0))
    {

	}
    }

  if (NILP (c))
    {
      /* Primary consideration goes to current_perdisplay's side queue.
	 If that's empty, then we check the other side queues and throw
	 if we find something there.  Finally, we read from the main queue,
	 and if that gives us something we can't use yet, we put it on the
	 appropriate side queue and try again.  */
      if (current_perdisplay->kbd_queue_has_data)
	{
	  if (!CONSP (current_perdisplay->kbd_queue))
	    abort ();
	  c = XCONS (current_perdisplay->kbd_queue)->car;
	  current_perdisplay->kbd_queue
	    = XCONS (current_perdisplay->kbd_queue)->cdr;
	  if (NILP (current_perdisplay->kbd_queue))
	    current_perdisplay->kbd_queue_has_data = 0;
	  input_pending = readable_events ();
#ifdef MULTI_FRAME
	  if (EVENT_HAS_PARAMETERS (c)
	      && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qswitch_frame))
	    internal_last_event_frame = XCONS (XCONS (c)->cdr)->car;
	  Vlast_event_frame = internal_last_event_frame;
#endif
	}
      else
	{
	  PERDISPLAY *perd;
#ifdef MULTI_PERDISPLAY
	  if (!display_locked)
	    {
	      for (perd = all_perdisplays; perd; perd = perd->next_perdisplay)
		if (perd->kbd_queue_has_data)
		  {
		    current_perdisplay = perd;
		    longjmp (wrong_display_jmpbuf, 1);
		  }
	    }
#endif

	wrong_display:
	  /* Actually read a character, waiting if necessary.  */
	  while (c = kbd_buffer_get_event (&perd), NILP (c))
	    {
	      if (commandflag >= 0

		{
		  prepare_menu_bars ();
		  redisplay ();
		}
	    }
#ifdef MULTI_PERDISPLAY
	  if (perd != current_perdisplay)
	    {
	      Lisp_Object *tailp = &perd->kbd_queue;
	      while (CONSP (*tailp))
		tailp = &XCONS (*tailp)->cdr;
	      if (!NILP (*tailp))
		abort ();
	      *tailp = Fcons (c, Qnil);
	      perd->kbd_queue_has_data = 1;
	      if (display_locked)
		goto wrong_display;
	      current_perdisplay = perd;
	      longjmp (wrong_display_jmpbuf, 1);
	    }
#endif
	}
    }
  /* Terminate Emacs in batch mode if at eof.  */
  if (noninteractive && INTEGERP (c) && XINT (c) < 0)
    Fkill_emacs (make_number (1));

  if (!input_pending && !detect_input_pending ())
    prepare_menu_bars ();

  XSETFRAME (do_mouse_tracking, selected_frame);

  val = Fprogn (args);
  return unbind_to (count, val);
}

#endif	/* HAVE_MOUSE */

      Lisp_Object bar_window;
      enum scroll_bar_part part;
      Lisp_Object x, y;
      unsigned long time;

      *perdp = current_perdisplay;
      /* Note that this uses F to determine which display to look at.
	 If there is no valid info, it does not store anything
	 so x remains nil.  */
      x = Qnil;

	    obj = make_lispy_switch_frame (frame);
	  internal_last_event_frame = frame;
	}
#endif

      /* If we didn't decide to make a switch-frame event, go ahead and
	 return a mouse-motion event.  */
      if (!NILP (x) && NILP (obj))
	obj = make_lispy_movement (f, bar_window, part, x, y, time);
    }
#endif	/* HAVE_MOUSE */

    0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 0,     /* 0xfff0 */
    0, 0, 0, 0, 0, 0, 0, "delete"
    };

static char *lispy_mouse_names[] =
{
  "mouse-1", "mouse-2", "mouse-3", "mouse-4", "mouse-5"
};

/* Scroll bar parts.  */

				  (sizeof (lispy_function_keys)
				   / sizeof (lispy_function_keys[0])));
      break;

#if defined (MULTI_FRAME) || defined (HAVE_MOUSE)
      /* A mouse click.  Figure out where it is, decide whether it's
         a press, click or drag, and build the appropriate structure.  */
    case mouse_click:
    case scroll_bar_click:
      {
	int button = event->code;

  struct Lisp_String *name;
  int i;
  int modifiers;

  CHECK_SYMBOL (symbol, 1);

  modifiers = 0;
  name = XSYMBOL (symbol)->name;

  for (i = 0; i+2 <= name->size; )
    {

    mod_len = p - new_mods;
  }

  {
    Lisp_Object new_name;

    new_name = make_uninit_string (mod_len + base_len);
    bcopy (new_mods, XSTRING (new_name)->data,	       mod_len);
    bcopy (base,     XSTRING (new_name)->data + mod_len, base_len);

    return Fintern (new_name, Qnil);

  if (CONSP (entry))
    new_symbol = XCONS (entry)->cdr;
  else
    {
      /* We have to create the symbol ourselves.  */
      new_symbol = apply_modifiers_uncached (modifiers,
					     XSYMBOL (base)->name->data,
					     XSYMBOL (base)->name->size);

      /* Add the new symbol to the base's cache.  */

	    Fcons (base, Fcons (index, Qnil)));
      Fput (new_symbol, Qevent_symbol_elements,
	    Fcons (base, lispy_modifier_list (modifiers)));
    }

  /* Make sure this symbol is of the same kind as BASE.

     You'd think we could just set this once and for all when we
     intern the symbol above, but reorder_modifiers may call us when
     BASE's property isn't set right; we can't assume that just
     because it has a Qmodifier_cache property it must have its

   persist between calls to modify_event_symbol that it can use to
   store a cache of the symbols it's generated for this NAME_TABLE
   before.  The object stored there may be a vector or an alist.

   SYMBOL_NUM is the number of the base name we want from NAME_TABLE.

   MODIFIERS is a set of modifier bits (as given in struct input_events)
   whose prefixes should be applied to the symbol name.

   SYMBOL_KIND is the value to be placed in the event_kind property of
   the returned symbol.

   The symbols we create are supposed to have an
   `event-symbol-elements' property, which lists the modifiers present
   in the symbol's name.  */

      if (CONSP (*symbol_table))
	*symbol_table = Fcons (value, *symbol_table);
      else
	XVECTOR (*symbol_table)->contents[symbol_num] = value;

      /* Fill in the cache entries for this symbol; this also
	 builds the Qevent_symbol_elements property, which the user
	 cares about.  */
      apply_modifiers (modifiers & click_modifier, value);
      Fput (value, Qevent_kind, symbol_kind);
    }

   dealing with, without assuming that every file which uses
   UNBLOCK_INPUT also has #included the files necessary to get SIGIO. */
void
reinvoke_input_signal ()
{
#ifdef SIGIO
  kill (0, SIGIO);
#endif
}

     during redisplay, during which a quit is fatal.  So inhibit
     quitting while building the menus.
     We do this instead of specbind because (1) errors will clear it anyway
     and (2) this avoids risk of specpdl overflow.  */
  oquit = Vinhibit_quit;
  Vinhibit_quit = Qt;

  if (!NILP (old))
    menu_bar_items_vector = old;
  else
    menu_bar_items_vector = Fmake_vector (make_number (24), Qnil);

  /* Build our list of keymaps.
     If we recognize a function key and replace its escape sequence in
     keybuf with its symbol, or if the sequence starts with a mouse
     click and we need to switch buffers, we jump back here to rebuild
     the initial keymaps from the current buffer.  */
  {
    Lisp_Object *tmaps;

    /* Should overriding-local-map apply, here?  */
    if (!NILP (Voverriding_local_map_menu_flag))
      {

   If USED_MOUSE_MENU is non-zero, 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 zero, *USED_MOUSE_MENU is left alone.

   The prompting is done based on the prompt-string of the map
   and the strings associated with various map elements.

   This can be done with X menus or with menus put in the minibuf.
   These are done in different ways, depending on how the input will be read.
   Menus using X are done after auto-saving in read-char, getting the input
   event from Fx_popup_menu; menus using the minibuf use read_char recursively

	}

      /* Prompt with that and read response.  */
      message1 (menu);

      /* Make believe its not a keyboard macro in case the help char
	 is pressed.  Help characters are not recorded because menu prompting
	 is not used on replay.
	 */
      orig_defn_macro = current_perdisplay->defining_kbd_macro;
      current_perdisplay->defining_kbd_macro = Qnil;

      next[i] = NILP (defs[i]) ? Qnil : get_keymap_1 (defs[i], 0, 1);

  return first_binding;
}

/* Read a sequence of keys that ends with a non prefix character,
   storing it in KEYBUF, a buffer of size BUFSIZE.
   Prompt with PROMPT.
   Return the length of the key sequence stored.
   Return -1 if the user rejected a command menu.

    }

  /* Record the initial state of the echo area and this_command_keys;
     we will need to restore them if we replay a key sequence.  */
  if (INTERACTIVE)
    echo_start = echo_length ();
  keys_start = this_command_key_count;

#if defined (GOBBLE_FIRST_EVENT)
  /* This doesn't quite work, because some of the things that read_char
     does cannot safely be bypassed.  It seems too risky to try to make
     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);

  /* Build our list of keymaps.
     If we recognize a function key and replace its escape sequence in
     keybuf with its symbol, or if the sequence starts with a mouse
     click and we need to switch buffers, we jump back here to rebuild
     the initial keymaps from the current buffer.  */
  {
    Lisp_Object *maps;

    if (!NILP (Voverriding_local_map))
      {
	nmaps = 2;

  t = 0;

  /* These are no-ops the first time through, but if we restart, they
     revert the echo area and this_command_keys to their original state.  */
  this_command_key_count = keys_start;
  if (INTERACTIVE && t < mock_input)
    echo_truncate (echo_start);

  /* If the best binding for the current key sequence is a keymap, or
     we may be looking at a function key's escape sequence, keep on
     reading.  */

      if (INTERACTIVE)
	echo_local_start = echo_length ();
      keys_local_start = this_command_key_count;
      local_first_binding = first_binding;

    replay_key:
      /* These are no-ops, unless we throw away a keystroke below and
	 jumped back up to replay_key; in that case, these restore the
	 variables to their original state, allowing us to replay the
	 loop.  */

	  struct buffer *buf = current_buffer;

	  {
#ifdef MULTI_PERDISPLAY
	    PERDISPLAY *interrupted_perdisplay = current_perdisplay;
	    struct frame *interrupted_frame = selected_frame;
	    if (setjmp (wrong_display_jmpbuf))
	      {
		while (t > 0)
		  interrupted_perdisplay->kbd_queue
		    = Fcons (keybuf[--t], interrupted_perdisplay->kbd_queue);
		/* Ensure that the side queue begins with a switch-frame, so
		   we'll be in the right context when we replay it later.  */
		if (!(CONSP (interrupted_perdisplay->kbd_queue)
		      && (key = XCONS (interrupted_perdisplay->kbd_queue)->car,
			  EVENT_HAS_PARAMETERS (key))
		      && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)),
			     Qswitch_frame)))
		  {
		    Lisp_Object frame;
		    XSETFRAME (frame, interrupted_frame);
		    interrupted_perdisplay->kbd_queue
		      = Fcons (make_lispy_switch_frame (frame),
			       interrupted_perdisplay->kbd_queue);
		  }
		mock_input = 0;
		orig_local_map = get_local_map (PT, current_buffer);
		goto replay_sequence;
	      }
#endif

	      /* The Microsoft C compiler can't handle the goto that
		 would go here.  */
	      dummyflag = 1;
	      break;
	    }

	  /* If the current buffer has been changed from under us, the
	     keymap may have changed, so replay the sequence.  */
	  if (BUFFERP (key))
	    {
	      mock_input = t;

	    }

	  Vquit_flag = Qnil;
	}

      /* Clicks in non-text areas get prefixed by the symbol
	 in their CHAR-ADDRESS field.  For example, a click on
	 the mode line is prefixed by the symbol `mode-line'.

	 Furthermore, key sequences beginning with mouse clicks
	 are read using the keymaps of the buffer clicked on, not

		  GCPRO3 (fkey_map, keytran_map, delayed_switch_frame);
		  fkey_next = call1 (fkey_next, prompt);
		  UNGCPRO;
		  /* If the function returned something invalid,
		     barf--don't ignore it.
		     (To ignore it safely, we would need to gcpro a bunch of
		     other variables.)  */
		  if (! (VECTORP (fkey_next) || STRINGP (fkey_next)))
		    error ("Function in function-key-map returns invalid key sequence");
		}

		      for (i = 0; i < len; i++)
			XSETFASTINT (keybuf[fkey_start + i],
				     XSTRING (fkey_next)->data[i]);
		    }

		  mock_input = t;
		  fkey_start = fkey_end = t;
		  fkey_map = Vfunction_key_map;

		  /* Do pass the results through key-translation-map.  */
		  keytran_start = keytran_end = 0;
		  keytran_map = Vkey_translation_map;

		  goto replay_sequence;
		}

	      fkey_map = get_keymap_1 (fkey_next, 0, 1);

	      /* If we no longer have a bound suffix, try a new positions for
		 fkey_start.  */
	      if (NILP (fkey_map))
		{
		  fkey_end = ++fkey_start;
		  fkey_map = Vfunction_key_map;

		GCPRO3 (fkey_map, keytran_map, delayed_switch_frame);
		keytran_next = call1 (keytran_next, prompt);
		UNGCPRO;
		/* If the function returned something invalid,
		   barf--don't ignore it.
		   (To ignore it safely, we would need to gcpro a bunch of
		   other variables.)  */
		if (! (VECTORP (keytran_next) || STRINGP (keytran_next)))
		  error ("Function in key-translation-map returns invalid key sequence");
	      }

		goto replay_sequence;
	      }

	    keytran_map = get_keymap_1 (keytran_next, 0, 1);

	    /* If we no longer have a bound suffix, try a new positions for
	       keytran_start.  */
	    if (NILP (keytran_map))
	      {
		keytran_end = ++keytran_start;
		keytran_map = Vkey_translation_map;

    change_frame_size (selected_frame, height, width, 0, 0);

  /* Run suspend-resume-hook.  */
  if (!NILP (Vrun_hooks))
    call1 (Vrun_hooks, intern ("suspend-resume-hook"));

  UNGCPRO;
  return Qnil;
}

/* If STUFFSTRING is a string, stuff its contents as pending terminal input.

     time through.  */
  internal_last_event_frame = Qnil;
  Vlast_event_frame = internal_last_event_frame;
#endif

  if (!initialized)
    {
#ifdef MULTI_PERDISPLAY
      current_perdisplay = (PERDISPLAY *)xmalloc (sizeof (PERDISPLAY));
      all_perdisplays = current_perdisplay;
#endif
      current_perdisplay->next_perdisplay = 0;
    }
  if (initialized)
    wipe_perdisplay (current_perdisplay);
  init_perdisplay (current_perdisplay);

  if (initialized)
    Ffillarray (kbd_buffer_frame_or_window, Qnil);

  kbd_buffer_frame_or_window

  poll_suppress_count = 1;
  start_polling ();
#endif
}

/* This type's only use is in syms_of_keyboard, to initialize the
   event header symbols and put properties on them.  */
struct event_head {
  Lisp_Object *var;
  char *name;
  Lisp_Object *kind;

    "*Interval between polling for input during Lisp execution.\n\
The reason for polling is to make C-g work to stop a running program.\n\
Polling is needed only when using X windows and SIGIO does not work.\n\
Polling is automatically disabled in all other cases.");
  polling_period = 2;

  DEFVAR_LISP ("double-click-time", &Vdouble_click_time,
    "*Maximum time between mouse clicks to make a double-click.\n\
Measured in milliseconds.  nil means disable double-click recognition;\n\
t means double-clicks have no time limit and are detected\n\
by position only.");