Mercurial > emacs
diff src/callint.c @ 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 | 9952a5ab70d1 |
| children | 5a049637599a |
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;