# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 737906109 0
# Node ID 6e233798a3f77360b2a278abf008ad6f6d3862b4
# Parent  c8997402dd6bc2717b14009ffa40b7e9b58cef7b
(read_key_sequence): Reexamine this_command
after pre-command-hook runs.

diff -r c8997402dd6b -r 6e233798a3f7 src/keyboard.c
--- a/src/keyboard.c	Thu May 20 13:43:48 1993 +0000
+++ b/src/keyboard.c	Thu May 20 13:55:09 1993 +0000
@@ -1014,7 +1014,7 @@
       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 @@
 	    {
 	      /* 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 @@
 		    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 @@
 		    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 @@
 	  nonundocount = 0;
 	  if (NILP (Vprefix_arg))
 	    Fundo_boundary ();
-	  Fcommand_execute (cmd, Qnil);
+	  Fcommand_execute (this_command, Qnil);
 
 	}
     directly_done: ;