[Emacs-diffs] Changes to emacs/lisp/subr.el

[Markus Rost]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.357 emacs/lisp/subr.el:1.358
*** emacs/lisp/subr.el:1.357    Mon Jun 30 06:33:52 2003
--- emacs/lisp/subr.el  Tue Jul  8 12:56:56 2003
***************
*** 114,120 ****
  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...)"
    (declare (indent 1) (debug ((symbolp form &optional form) body)))
    (let ((temp (make-symbol "--dolist-temp--")))
      `(let ((,temp ,(nth 1 spec))
--- 114,120 ----
  Evaluate BODY with VAR bound to each car from LIST, in turn.
  Then evaluate RESULT to get return value, default nil.
  
! \(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,138 ****
  inclusive, to COUNT, exclusive.  Then evaluate RESULT to get
  the return value (nil if RESULT is omitted).
  
! \(dotimes (VAR COUNT [RESULT]) BODY...)"
    (declare (indent 1) (debug dolist))
    (let ((temp (make-symbol "--dotimes-temp--"))
        (start 0)
--- 132,138 ----
  inclusive, to COUNT, exclusive.  Then evaluate RESULT to get
  the return value (nil if RESULT is omitted).
  
! \(fn (VAR COUNT [RESULT]) BODY...)"
    (declare (indent 1) (debug dolist))
    (let ((temp (make-symbol "--dotimes-temp--"))
        (start 0)