From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Mar 2005 03:06:53 +0000 (+0000)
Subject: (Writing Emacs Primitives): Update `or' example.
X-Git-Tag: ttn-vms-21-2-B4~1893
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51485df27dccfc08ee97d08c8489625177fdd66e;p=emacs.git

(Writing Emacs Primitives): Update `or' example.
Update limit on # args of subr.
---

diff --git a/lispref/internals.texi b/lispref/internals.texi
index a4c641a40a8..5a83c82ff5f 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