* lisp/type-break.el (type-break-time-sum): Use dolist.

This avoids using a free variable.

2 files changed, 4 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69d6c888271..a05c85f56ce 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-07-01  Glenn Morris  <rgm@gnu.org>
 
+        * type-break.el (type-break-time-sum): Use dolist.
+
         * textmodes/flyspell.el (flyspell-word-search-backward):
         Replace CL function.
 
diff --git a/lisp/type-break.el b/lisp/type-break.el
index a41fb1d423f..2d6960c77bc 100644
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -1009,13 +1009,10 @@ FRAC should be the inverse of the fractional value; for example, a value of
 ;; "low" bits and format the time incorrectly.
 (defun type-break-time-sum (&rest tmlist)
   (let ((sum '(0 0 0)))
-    (while tmlist
-      (setq tem (car tmlist))
-      (setq tmlist (cdr tmlist))
+    (dolist (tem tmlist sum)
       (setq sum (time-add sum (if (integerp tem)
                                   (list (floor tem 65536) (mod tem 65536))
-                                tem))))
-    sum))
+                                tem))))))
 
 (defun type-break-time-stamp (&optional when)
   (if (fboundp 'format-time-string)