mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 08:11:05 -08:00
Code Issues Projects Releases Wiki Activity

(read_key_sequence): Reexamine this_command

Browse source 
after pre-command-hook runs.
This commit is contained in:
Richard M. Stallman 1993-05-20 13:55:09 +00:00
parent 148c4b70c2
commit 258bf7465d
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/keyboard.c
View file

@ -1014,7 +1014,7 @@ command_loop_1 ()
if (!NILP (Vpre_command_hook))
call1 (Vrun_hooks, Qpre_command_hook);
if (NILP (cmd))
if (NILP (this_command))
{
/* nil means key is undefined. */
bitch_at_user ();
@ -1029,7 +1029,7 @@ command_loop_1 ()
{
/* Recognize some common commands in common situations and
do them directly. */
if (EQ (cmd, Qforward_char) && point < ZV)
if (EQ (this_command, Qforward_char) && point < ZV)
{
struct Lisp_Vector *dp
= window_display_table (XWINDOW (selected_window));
@ -1050,7 +1050,7 @@ command_loop_1 ()
no_redisplay = direct_output_forward_char (1);
goto directly_done;
}
else if (EQ (cmd, Qbackward_char) && point > BEGV)
else if (EQ (this_command, Qbackward_char) && point > BEGV)
{
struct Lisp_Vector *dp
= window_display_table (XWINDOW (selected_window));
@ -1071,7 +1071,7 @@ command_loop_1 ()
no_redisplay = direct_output_forward_char (-1);
goto directly_done;
}
else if (EQ (cmd, Qself_insert_command)
else if (EQ (this_command, Qself_insert_command)
/* Try this optimization only on ascii keystrokes. */
&& XTYPE (last_command_char) == Lisp_Int)
{
@ -1134,7 +1134,7 @@ command_loop_1 ()
nonundocount = 0;
if (NILP (Vprefix_arg))
Fundo_boundary ();
Fcommand_execute (cmd, Qnil);
Fcommand_execute (this_command, Qnil);
}
directly_done: ;