Mercurial > emacs
changeset 10540:161014ddd3c5
(Fcall_interactively): Define K mostly like k.
Pass new arg to Fread_key_sequence.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 24 Jan 1995 22:13:42 +0000 |
| parents | ffef84d4d8a8 |
| children | 8cf015100d54 |
| files | src/callint.c |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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;