Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
40b2421c
Commit
40b2421c
authored
Feb 20, 1997
by
Karl Heuer
Browse files
(doc-string of `interactive'): Describe new code
letters `i', `z', and `Z'. (Fcall_interactively): Handle them.
parent
96b65d4e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
27 additions
and
0 deletions
+27
-0
src/callint.c
src/callint.c
+27
-0
No files found.
src/callint.c
View file @
40b2421c
...
...
@@ -92,6 +92,7 @@ e -- Parametrized event (i.e., one that's a list) that invoked this command.\n\
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 @@ S -- Any symbol.\n\
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 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
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 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
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
'+'
:
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment