From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 24 Jan 1995 22:13:42 +0000 (+0000)
Subject: (Fcall_interactively): Define K mostly like k.
X-Git-Tag: emacs-19.34~5318
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1989e7bccb387003e85a6fd789a5c230053018c6;p=emacs.git

(Fcall_interactively): Define K mostly like k.
Pass new arg to Fread_key_sequence.
---

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;