Mercurial > emacs

changeset 2924:6e233798a3f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_key_sequence): Reexamine this_command after pre-command-hook runs.
author Richard M. Stallman <rms@gnu.org>
date Thu, 20 May 1993 13:55:09 +0000
parents c8997402dd6b
children 902c32c709f7
files src/keyboard.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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: ;