# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790985622 0
# Node ID 161014ddd3c5f52a458e6b18fe5ccf07deced279
# Parent  ffef84d4d8a8fd2a47eba17b4f83b69f7dd5e3b0
(Fcall_interactively): Define K mostly like k.
Pass new arg to Fread_key_sequence.

diff -r ffef84d4d8a8 -r 161014ddd3c5 src/callint.c
--- a/src/callint.c	Tue Jan 24 22:13:07 1995 +0000
+++ b/src/callint.c	Tue Jan 24 22:13:42 1995 +0000
@@ -462,8 +462,14 @@
 				     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;