]> git.eshelyaron.com Git - emacs.git/commitdiff
(Fcall_interactively): Define K mostly like k.
authorRichard M. Stallman <rms@gnu.org>
Tue, 24 Jan 1995 22:13:42 +0000 (22:13 +0000)
committerRichard M. Stallman <rms@gnu.org>
Tue, 24 Jan 1995 22:13:42 +0000 (22:13 +0000)
Pass new arg to Fread_key_sequence.

src/callint.c

index 3de79be2a39f69c799d9e68e67f24e245efb4f24..a6c5570bb3a71a079417c20b6ba43c60e1243137 100644 (file)
@@ -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;