(Fcall_interactively): Define K mostly like k.

Pass new arg to Fread_key_sequence.

1 files changed, 8 insertions, 2 deletions

diff --git a/src/callint.c b/src/callint.c
index 3de79be2a39..a6c5570bb3a 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -462,8 +462,14 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
                                      Qnil, Qnil, Qnil, Qnil);
           break;
 
-        case 'k':               /* Key sequence (string) */
-          args[i] = Fread_key_sequence (build_string (prompt), Qnil);
+        case 'k':               /* Key sequence. */
+          args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qnil);
+          teml = args[i];
+          visargs[i] = Fkey_description (teml);
+          break;
+
+        case 'K':               /* Key sequence to be defined. */
+          args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qt);
           teml = args[i];
           visargs[i] = Fkey_description (teml);
           break;