From 1989e7bccb387003e85a6fd789a5c230053018c6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 24 Jan 1995 22:13:42 +0000 Subject: [PATCH] (Fcall_interactively): Define K mostly like k. Pass new arg to Fread_key_sequence. --- src/callint.c | 10 ++++++++-- 1 file 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; -- 2.39.5