diff options
author | Richard M. Stallman <[email protected]> | 2005-03-08 03:06:53 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2005-03-08 03:06:53 +0000 |
commit | 51485df27dccfc08ee97d08c8489625177fdd66e (patch) | |
tree | 28dc3e09fdd3f1af9f55de02ed4427af349f0fbb /lispref/internals.texi | |
parent | 937dbf8c44ef25f3453372a4ebe6e3708d41095b (diff) |
(Writing Emacs Primitives): Update `or' example.
Update limit on # args of subr.
Diffstat (limited to 'lispref/internals.texi')
-rw-r--r-- | lispref/internals.texi | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/lispref/internals.texi b/lispref/internals.texi index a4c641a40a..5a83c82ff5 100644 --- a/lispref/internals.texi +++ b/lispref/internals.texi @@ -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 |