[Emacs-diffs] /srv/bzr/emacs/trunk r104859: * lisp/type-break.el (type-break-time-sum): Use dolist.

[Glenn Morris]

------------------------------------------------------------
revno: 104859
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2011-07-01 14:21:09 -0400
message:
  * lisp/type-break.el (type-break-time-sum): Use dolist.
  This avoids using a free variable.
modified:
  lisp/ChangeLog
  lisp/type-break.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-01 18:13:17 +0000
+++ b/lisp/ChangeLog    2011-07-01 18:21:09 +0000
@@ -1,5 +1,7 @@
 2011-07-01  Glenn Morris  <address@hidden>
 
+       * type-break.el (type-break-time-sum): Use dolist.
+
        * textmodes/flyspell.el (flyspell-word-search-backward):
        Replace CL function.
 

=== modified file 'lisp/type-break.el'
--- a/lisp/type-break.el        2011-07-01 04:36:40 +0000
+++ b/lisp/type-break.el        2011-07-01 18:21:09 +0000
@@ -1009,13 +1009,10 @@
 ;; "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)