From: Kim F. Storm <storm@cua.dk>
Date: Wed, 6 Feb 2002 22:59:56 +0000 (+0000)
Subject: (Vthis_original_command): New variable.
X-Git-Tag: ttn-vms-21-2-B4~16803
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b9940e66c585db91bd8d252367b62b20ff66cef;p=emacs.git

(Vthis_original_command): New variable.
(syms_of_keyboard): DEFVAR_LISP it.
(command_loop_1): Set it, and perform command remapping.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index c26d6a1296f..44976d9bbed 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -373,6 +373,10 @@ Lisp_Object Vthis_command;
 /* This is like Vthis_command, except that commands never set it.  */
 Lisp_Object real_this_command;
 
+/* If the lookup of the command returns a binding, the original
+   command is stored in this-original-command.  It is nil otherwise.  */
+Lisp_Object Vthis_original_command;
+
 /* The value of point when the last command was executed.  */
 int last_point_position;
 
@@ -1503,6 +1507,17 @@ command_loop_1 ()
 	 reset it before we execute the command. */
       Vdeactivate_mark = Qnil;
 
+      /* Remap command through active keymaps */
+      Vthis_original_command = cmd;
+      if (is_command_symbol (cmd))
+	{
+	  Lisp_Object cmd1;
+
+	  cmd1 = Fkey_binding (cmd, Qnil, Qt);
+	  if (!NILP (cmd1) && is_command_symbol (cmd1))
+	    cmd = cmd1;
+	}
+
       /* Execute the command.  */
 
       Vthis_command = cmd;
@@ -6947,7 +6962,7 @@ parse_menu_item (item, notreal, inmenubar)
       Lisp_Object prefix;
 
       if (!NILP (tem))
-	tem = Fkey_binding (tem, Qnil);
+	tem = Fkey_binding (tem, Qnil, Qnil);
 
       prefix = AREF (item_properties, ITEM_PROPERTY_KEYEQ);
       if (CONSP (prefix))
@@ -6993,7 +7008,7 @@ parse_menu_item (item, notreal, inmenubar)
 	      && SYMBOLP (XSYMBOL (def)->function)
 	      && ! NILP (Fget (def, Qmenu_alias)))
 	    def = XSYMBOL (def)->function;
-	  tem = Fwhere_is_internal (def, Qnil, Qt, Qnil);
+	  tem = Fwhere_is_internal (def, Qnil, Qt, Qnil, Qt);
 	  XSETCAR (cachelist, tem);
 	  if (NILP (tem))
 	    {
@@ -9408,7 +9423,7 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
       && NILP (Vexecuting_macro)
       && SYMBOLP (function))
     bindings = Fwhere_is_internal (function, Voverriding_local_map,
-				   Qt, Qnil);
+				   Qt, Qnil, Qnil);
   else
     bindings = Qnil;
 
@@ -10635,6 +10650,12 @@ The command can set this variable; whatever is put here
 will be in `last-command' during the following command.  */);
   Vthis_command = Qnil;
 
+  DEFVAR_LISP ("this-original-command", &Vthis_original_command,
+	       doc: /* If non-nil, the original command bound to the current key sequence.
+The value of `this-command' is the result of looking up the original
+command in the active keymaps.  */);
+  Vthis_original_command = Qnil;
+
   DEFVAR_INT ("auto-save-interval", &auto_save_interval,
 	      doc: /* *Number of input events between auto-saves.
 Zero means disable autosaving due to number of characters typed.  */);