Mercurial > emacs
changeset 17024:6cfba7f41dca
(doc-string of `interactive'): Describe new code
letters `i', `z', and `Z'.
(Fcall_interactively): Handle them.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 20 Feb 1997 06:45:50 +0000 |
| parents | 78f7b873184b |
| children | 3c222a7edda1 |
| files | src/callint.c |
| diffstat | 1 files changed, 27 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callint.c Thu Feb 20 06:45:13 1997 +0000 +++ b/src/callint.c Thu Feb 20 06:45:50 1997 +0000 @@ -92,6 +92,7 @@ This skips events that are integers or symbols.\n\ f -- Existing file name.\n\ F -- Possibly nonexistent file name.\n\ +i -- Ignored, i.e. always nil. Does not do I/O.\n\ k -- Key sequence (downcase the last event if needed to get a definition).\n\ K -- Key sequence to be redefined (do not downcase the last event).\n\ m -- Value of mark as number. Does not do I/O.\n\ @@ -105,6 +106,8 @@ v -- Variable name: symbol that is user-variable-p.\n\ x -- Lisp expression read but not evaluated.\n\ X -- Lisp expression read and evaluated.\n\ +z -- Coding system.\n\ +Z -- Coding system, nil if no prefix arg.\n\ In addition, if the string begins with `*'\n\ then an error is signaled if the buffer is read-only.\n\ This happens before reading any arguments.\n\ @@ -523,6 +526,10 @@ Qnil, Qnil, Qnil, Qnil); break; + case 'i': /* Ignore an argument -- Does not do I/O */ + varies[i] = -1; + break; + case 'k': /* Key sequence. */ { int speccount1 = specpdl_ptr - specpdl; @@ -652,6 +659,26 @@ visargs[i] = last_minibuf_string; break; + case 'Z': /* Coding-system symbol, or ignore the + argument if no prefix */ + if (NILP (prefix_arg)) + { + args[i] = Qnil; + varies[i] = -1; + } + else + { + args[i] + = Fread_non_nil_coding_system (build_string (callint_message)); + visargs[i] = last_minibuf_string; + } + break; + + case 'z': /* Coding-system symbol or nil */ + args[i] = Fread_coding_system (build_string (callint_message)); + visargs[i] = last_minibuf_string; + break; + /* We have a case for `+' so we get an error if anyone tries to define one here. */ case '+':