procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
This avoids using a free variable.
This commit is contained in:
Glenn Morris 2011-07-01 14:21:09 -04:00
parent d224ac8375
commit 3de63bf809
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2011-07-01 Glenn Morris <rgm@gnu.org> 2011-07-01 Glenn Morris <rgm@gnu.org>
* type-break.el (type-break-time-sum): Use dolist.
* textmodes/flyspell.el (flyspell-word-search-backward): * textmodes/flyspell.el (flyspell-word-search-backward):
Replace CL function. Replace CL function.

7
lisp/type-break.el
View file

@ -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. ;; "low" bits and format the time incorrectly.
(defun type-break-time-sum (&rest tmlist) (defun type-break-time-sum (&rest tmlist)
(let ((sum '(0 0 0))) (let ((sum '(0 0 0)))
(while tmlist (dolist (tem tmlist sum)
(setq tem (car tmlist))
(setq tmlist (cdr tmlist))
(setq sum (time-add sum (if (integerp tem) (setq sum (time-add sum (if (integerp tem)
(list (floor tem 65536) (mod tem 65536)) (list (floor tem 65536) (mod tem 65536))
tem)))) tem))))))
sum))
(defun type-break-time-stamp (&optional when) (defun type-break-time-stamp (&optional when)
(if (fboundp 'format-time-string) (if (fboundp 'format-time-string)