(Fcall_interactively): Define K mostly like k.

Pass new arg to Fread_key_sequence.

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;