# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1161555903 0
# Node ID 346f9b4afa15717269531baf74ab6e2e524f2654
# Parent  9b076439f58a9f3fe1f8ad78f02c23d931f94d89
(read_char): Make an element (t . EVENT) in
unread-command-events add EVENT to the current command's key sequence.
(syms_of_keyboard) <unread-command-events>: Update doc.

diff -r 9b076439f58a -r 346f9b4afa15 src/keyboard.c
--- a/src/keyboard.c	Sun Oct 22 21:29:33 2006 +0000
+++ b/src/keyboard.c	Sun Oct 22 22:25:03 2006 +0000
@@ -2537,6 +2537,18 @@
       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)
@@ -2550,7 +2562,6 @@
 	  && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar)))
 	*used_mouse_menu = 1;
 
-      reread = 1;
       goto reread_for_input_method;
     }
 
@@ -11226,7 +11237,10 @@
 
   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.  */);
+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,