From d775d486e940230aaed8c313a2a16c205b6ac54c Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Tue, 8 Jul 2003 16:57:15 +0000 Subject: [PATCH] (dolist, dotimes): Doc fix. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * subr.el (dolist, dotimes): Doc fix. + 2003-07-08 Kim F. Storm * 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) -- 2.39.2