Bind current-minibuffer-command to this-command

* src/callint.c (Fcall_interactively): Bind
current-minibuffer-command to this-command, as documented (bug#45177).

diff --git a/src/callint.c b/src/callint.c
index a221705f6764da7ff22b9bfcdac433ad98a52a5a..d172af9e30b6f7641ae75433fa78a77a1fadddf3 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -286,7 +286,7 @@ invoke it (via an `interactive' spec that contains, for instance, an
   /* Bound recursively so that code can check the current command from
      code running from minibuffer hooks (and the like), without being
      overwritten by subsequent minibuffer calls.  */
-  specbind (Qcurrent_minibuffer_command, Vreal_this_command);
+  specbind (Qcurrent_minibuffer_command, Vthis_command);
 
   if (NILP (keys))
     keys = this_command_keys, key_count = this_command_key_count;