From 258bf7465d693f1cc530c67dcfb2d9c99dce2da3 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 20 May 1993 13:55:09 +0000
Subject: [PATCH] (read_key_sequence): Reexamine this_command after
 pre-command-hook runs.

---
 src/keyboard.c | 10 +++++-----
 1 file 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 ()
       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: ;