aboutsummaryrefslogtreecommitdiffstats
path: root/src/keyboard.c
diff options
context:
space:
mode:
authorKaroly Lorentey2006-12-03 12:25:18 +0000
committerKaroly Lorentey2006-12-03 12:25:18 +0000
commitd6e01aa592f7326dffeafa6e97180a1cc39fe7ea (patch)
tree5a22b785cfee1d77d6452607450a12ca82eeecd3 /src/keyboard.c
parent14bcc1e098410087a837313e2fc822319ff2e8ca (diff)
parent4975e69596a64247e8995d1ff9084b98a9a5ed0d (diff)
downloademacs-d6e01aa592f7326dffeafa6e97180a1cc39fe7ea.tar.gz
emacs-d6e01aa592f7326dffeafa6e97180a1cc39fe7ea.zip
Merged from emacs@sv.gnu.org.
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-479 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-480 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-481 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-482 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-483 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-484 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-485 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-153 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-154 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-155 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-585
Diffstat (limited to 'src/keyboard.c')
-rw-r--r--src/keyboard.c18
1 files changed, 16 insertions, 2 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index 5d0e05f887d..97554717e9a 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2620,6 +2620,18 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu, end_time)
2620 c = XCAR (Vunread_command_events); 2620 c = XCAR (Vunread_command_events);
2621 Vunread_command_events = XCDR (Vunread_command_events); 2621 Vunread_command_events = XCDR (Vunread_command_events);
2622 2622
2623 reread = 1;
2624
2625 /* Undo what sit-for did when it unread additional keys
2626 inside universal-argument. */
2627
2628 if (CONSP (c)
2629 && EQ (XCAR (c), Qt))
2630 {
2631 reread = 0;
2632 c = XCDR (c);
2633 }
2634
2623 /* Undo what read_char_x_menu_prompt did when it unread 2635 /* Undo what read_char_x_menu_prompt did when it unread
2624 additional keys returned by Fx_popup_menu. */ 2636 additional keys returned by Fx_popup_menu. */
2625 if (CONSP (c) 2637 if (CONSP (c)
@@ -2633,7 +2645,6 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu, end_time)
2633 && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar))) 2645 && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar)))
2634 *used_mouse_menu = 1; 2646 *used_mouse_menu = 1;
2635 2647
2636 reread = 1;
2637 goto reread_for_input_method; 2648 goto reread_for_input_method;
2638 } 2649 }
2639 2650
@@ -11626,7 +11637,10 @@ so that you can determine whether the command was run by mouse or not. */);
11626 11637
11627 DEFVAR_LISP ("unread-command-events", &Vunread_command_events, 11638 DEFVAR_LISP ("unread-command-events", &Vunread_command_events,
11628 doc: /* List of events to be read as the command input. 11639 doc: /* List of events to be read as the command input.
11629These events are processed first, before actual keyboard input. */); 11640These events are processed first, before actual keyboard input.
11641Events read from this list are not normally added to `this-command-keys',
11642as they will already have been added once as they were read for the first time.
11643An element of the form (t . EVENT) forces EVENT to be added to that list. */);
11630 Vunread_command_events = Qnil; 11644 Vunread_command_events = Qnil;
11631 11645
11632 DEFVAR_INT ("unread-command-char", &unread_command_char, 11646 DEFVAR_INT ("unread-command-char", &unread_command_char,