comparison src/keyboard.c @ 83545:034f67f59091

Merged from [e-mail]. Patches applied: * [e-mail]/emacs--devo--0--patch-479 Update from CVS * [e-mail]/emacs--devo--0--patch-480 Update from CVS * [e-mail]/emacs--devo--0--patch-481 Update from CVS * [e-mail]/emacs--devo--0--patch-482 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-483 Update from CVS * [e-mail]/emacs--devo--0--patch-484 Update from CVS * [e-mail]/emacs--devo--0--patch-485 Update from CVS * [e-mail]/gnus--rel--5.10--patch-153 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-154 Update from CVS * [e-mail]/gnus--rel--5.10--patch-155 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-585

83544:58cf725f5330

  if (CONSP (Vunread_command_events))
    {
      c = XCAR (Vunread_command_events);
      Vunread_command_events = XCDR (Vunread_command_events);

      /* Undo what read_char_x_menu_prompt did when it unread
	 additional keys returned by Fx_popup_menu.  */
      if (CONSP (c)
	  && EQ (XCDR (c), Qdisabled)
	  && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c))))

         set used_mouse_menu accordingly.  */
      if (used_mouse_menu
	  && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar)))
	*used_mouse_menu = 1;

      reread = 1;
      goto reread_for_input_method;
    }

  if (CONSP (Vunread_input_method_events))
    {

  DEFVAR_LISP_NOPRO ("last-input-event", &last_input_char,
		     doc: /* Last input event.  */);

  DEFVAR_LISP ("unread-command-events", &Vunread_command_events,
	       doc: /* List of events to be read as the command input.
These events are processed first, before actual keyboard input.  */);
  Vunread_command_events = Qnil;

  DEFVAR_INT ("unread-command-char", &unread_command_char,
	      doc: /* If not -1, an object to be read as next command input event.  */);

83545:034f67f59091

  if (CONSP (Vunread_command_events))
    {
      c = XCAR (Vunread_command_events);
      Vunread_command_events = XCDR (Vunread_command_events);

      reread = 1;

      /* Undo what sit-for did when it unread additional keys
	 inside universal-argument.  */

      if (CONSP (c)
	  && EQ (XCAR (c), Qt))
	{
	  reread = 0;
	  c = XCDR (c);
	}

      /* Undo what read_char_x_menu_prompt did when it unread
	 additional keys returned by Fx_popup_menu.  */
      if (CONSP (c)
	  && EQ (XCDR (c), Qdisabled)
	  && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c))))

         set used_mouse_menu accordingly.  */
      if (used_mouse_menu
	  && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar)))
	*used_mouse_menu = 1;

      goto reread_for_input_method;
    }

  if (CONSP (Vunread_input_method_events))
    {

  DEFVAR_LISP_NOPRO ("last-input-event", &last_input_char,
		     doc: /* Last input event.  */);

  DEFVAR_LISP ("unread-command-events", &Vunread_command_events,
	       doc: /* List of events to be read as the command input.
These events are processed first, before actual keyboard input.
Events read from this list are not normally added to `this-command-keys',
as they will already have been added once as they were read for the first time.
An element of the form (t . EVENT) forces EVENT to be added to that list.  */);
  Vunread_command_events = Qnil;

  DEFVAR_INT ("unread-command-char", &unread_command_char,
	      doc: /* If not -1, an object to be read as next command input event.  */);