diff options
| author | Richard M. Stallman | 1993-05-20 13:55:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-20 13:55:09 +0000 |
| commit | 258bf7465d693f1cc530c67dcfb2d9c99dce2da3 (patch) | |
| tree | 125e5f102a2c0aeb61d50e031b79d8ba11caae02 | |
| parent | 148c4b70c25a2c85d5cafcef8200e5aa9c5a6fe0 (diff) | |
| download | emacs-258bf7465d693f1cc530c67dcfb2d9c99dce2da3.tar.gz emacs-258bf7465d693f1cc530c67dcfb2d9c99dce2da3.zip | |
(read_key_sequence): Reexamine this_command
after pre-command-hook runs.
| -rw-r--r-- | src/keyboard.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 733a944ff33..023634663a5 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -1014,7 +1014,7 @@ command_loop_1 () | |||
| 1014 | if (!NILP (Vpre_command_hook)) | 1014 | if (!NILP (Vpre_command_hook)) |
| 1015 | call1 (Vrun_hooks, Qpre_command_hook); | 1015 | call1 (Vrun_hooks, Qpre_command_hook); |
| 1016 | 1016 | ||
| 1017 | if (NILP (cmd)) | 1017 | if (NILP (this_command)) |
| 1018 | { | 1018 | { |
| 1019 | /* nil means key is undefined. */ | 1019 | /* nil means key is undefined. */ |
| 1020 | bitch_at_user (); | 1020 | bitch_at_user (); |
| @@ -1029,7 +1029,7 @@ command_loop_1 () | |||
| 1029 | { | 1029 | { |
| 1030 | /* Recognize some common commands in common situations and | 1030 | /* Recognize some common commands in common situations and |
| 1031 | do them directly. */ | 1031 | do them directly. */ |
| 1032 | if (EQ (cmd, Qforward_char) && point < ZV) | 1032 | if (EQ (this_command, Qforward_char) && point < ZV) |
| 1033 | { | 1033 | { |
| 1034 | struct Lisp_Vector *dp | 1034 | struct Lisp_Vector *dp |
| 1035 | = window_display_table (XWINDOW (selected_window)); | 1035 | = window_display_table (XWINDOW (selected_window)); |
| @@ -1050,7 +1050,7 @@ command_loop_1 () | |||
| 1050 | no_redisplay = direct_output_forward_char (1); | 1050 | no_redisplay = direct_output_forward_char (1); |
| 1051 | goto directly_done; | 1051 | goto directly_done; |
| 1052 | } | 1052 | } |
| 1053 | else if (EQ (cmd, Qbackward_char) && point > BEGV) | 1053 | else if (EQ (this_command, Qbackward_char) && point > BEGV) |
| 1054 | { | 1054 | { |
| 1055 | struct Lisp_Vector *dp | 1055 | struct Lisp_Vector *dp |
| 1056 | = window_display_table (XWINDOW (selected_window)); | 1056 | = window_display_table (XWINDOW (selected_window)); |
| @@ -1071,7 +1071,7 @@ command_loop_1 () | |||
| 1071 | no_redisplay = direct_output_forward_char (-1); | 1071 | no_redisplay = direct_output_forward_char (-1); |
| 1072 | goto directly_done; | 1072 | goto directly_done; |
| 1073 | } | 1073 | } |
| 1074 | else if (EQ (cmd, Qself_insert_command) | 1074 | else if (EQ (this_command, Qself_insert_command) |
| 1075 | /* Try this optimization only on ascii keystrokes. */ | 1075 | /* Try this optimization only on ascii keystrokes. */ |
| 1076 | && XTYPE (last_command_char) == Lisp_Int) | 1076 | && XTYPE (last_command_char) == Lisp_Int) |
| 1077 | { | 1077 | { |
| @@ -1134,7 +1134,7 @@ command_loop_1 () | |||
| 1134 | nonundocount = 0; | 1134 | nonundocount = 0; |
| 1135 | if (NILP (Vprefix_arg)) | 1135 | if (NILP (Vprefix_arg)) |
| 1136 | Fundo_boundary (); | 1136 | Fundo_boundary (); |
| 1137 | Fcommand_execute (cmd, Qnil); | 1137 | Fcommand_execute (this_command, Qnil); |
| 1138 | 1138 | ||
| 1139 | } | 1139 | } |
| 1140 | directly_done: ; | 1140 | directly_done: ; |