diff options
| author | Karoly Lorentey | 2006-12-03 12:25:18 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-12-03 12:25:18 +0000 |
| commit | d6e01aa592f7326dffeafa6e97180a1cc39fe7ea (patch) | |
| tree | 5a22b785cfee1d77d6452607450a12ca82eeecd3 /src/keyboard.c | |
| parent | 14bcc1e098410087a837313e2fc822319ff2e8ca (diff) | |
| parent | 4975e69596a64247e8995d1ff9084b98a9a5ed0d (diff) | |
| download | emacs-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.c | 18 |
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. |
| 11629 | These events are processed first, before actual keyboard input. */); | 11640 | These events are processed first, before actual keyboard input. |
| 11641 | Events read from this list are not normally added to `this-command-keys', | ||
| 11642 | as they will already have been added once as they were read for the first time. | ||
| 11643 | An 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, |