Commit 3de63bf8 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

This avoids using a free variable.
parent d224ac83
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment