From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Tue, 8 Jul 2003 16:57:15 +0000 (+0000)
Subject: (dolist, dotimes):  Doc fix.
X-Git-Tag: ttn-vms-21-2-B4~9431
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d775d486e940230aaed8c313a2a16c205b6ac54c;p=emacs.git

(dolist, dotimes):  Doc fix.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05bffad4c08..bb19968983b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-08  Markus Rost  <rost@math.ohio-state.edu>
+
+	* subr.el (dolist, dotimes):  Doc fix.
+
 2003-07-08  Kim F. Storm  <storm@cua.dk>
 
 	* international/mule-cmds.el (set-display-table-and-terminal-coding-system):
diff --git a/lisp/subr.el b/lisp/subr.el
index 31903a895a5..0251180f8f9 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -114,7 +114,7 @@ change the list."
 Evaluate BODY with VAR bound to each car from LIST, in turn.
 Then evaluate RESULT to get return value, default nil.
 
-\(dolist (VAR LIST [RESULT]) BODY...)"
+\(fn (VAR LIST [RESULT]) BODY...)"
   (declare (indent 1) (debug ((symbolp form &optional form) body)))
   (let ((temp (make-symbol "--dolist-temp--")))
     `(let ((,temp ,(nth 1 spec))
@@ -132,7 +132,7 @@ Evaluate BODY with VAR bound to successive integers running from 0,
 inclusive, to COUNT, exclusive.  Then evaluate RESULT to get
 the return value (nil if RESULT is omitted).
 
-\(dotimes (VAR COUNT [RESULT]) BODY...)"
+\(fn (VAR COUNT [RESULT]) BODY...)"
   (declare (indent 1) (debug dolist))
   (let ((temp (make-symbol "--dotimes-temp--"))
 	(start 0)