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
51485df2
Commit
51485df2
authored
Mar 08, 2005
by
Richard M. Stallman
Browse files
(Writing Emacs Primitives): Update `or' example.
Update limit on # args of subr.
parent
937dbf8c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
13 deletions
+7
-13
lispref/internals.texi
lispref/internals.texi
+7
-13
No files found.
lispref/internals.texi
View file @
51485df2
...
...
@@ -477,28 +477,22 @@ usage: (or CONDITIONS ...) */)
(args)
Lisp_Object args;
@{
register Lisp_Object val;
Lisp_Object args_left;
register Lisp_Object val = Qnil;
struct gcpro gcpro1;
@end group
@group
if (NILP (args))
return Qnil;
args_left = args;
GCPRO1 (args_left);
GCPRO1 (args);
@end group
@group
do
while (CONSP (args))
@{
val = Feval (
Fcar
(args
_left
));
val = Feval (
XCAR
(args));
if (!NILP (val))
break;
args
_left = Fcdr
(args
_left
);
break;
args
= XCDR
(args);
@}
while (!NILP (args_left));
@end group
@group
...
...
@@ -549,7 +543,7 @@ indicating a special form that receives unevaluated arguments, or
@code{MANY}, indicating an unlimited number of evaluated arguments (the
equivalent of @code{&rest}). Both @code{UNEVALLED} and @code{MANY} are
macros. If @var{max} is a number, it may not be less than @var{min} and
it may not be greater than
seven
.
it may not be greater than
eight
.
@item interactive
This is an interactive specification, a string such as might be used as
...
...
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