mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* type-break.el (type-break-time-sum): Rewrite using time-add.

Browse Source
This commit is contained in:
Paul Eggert 2011-06-30 21:36:40 -07:00
parent 845b5c3e2a
commit 2f81380d8d
2 changed files with 7 additions and 25 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 Paul Eggert <eggert@cs.ucla.edu>
* type-break.el (type-break-time-sum): Rewrite using time-add.
* play/hanoi.el (hanoi-current-time-float): Remove.
All uses replaced by float-time.

30
lisp/type-break.el
View File

@ -1008,34 +1008,14 @@ FRAC should be the inverse of the fractional value; for example, a value of
;; the result is passed to `current-time-string' it will toss some of the
;; "low" bits and format the time incorrectly.
(defun type-break-time-sum (&rest tmlist)
(let ((high 0)
(low 0)
(micro 0)
tem)
(let ((sum '(0 0 0)))
(while tmlist
(setq tem (car tmlist))
(setq tmlist (cdr tmlist))
(cond
((numberp tem)
(setq low (+ low tem)))
(t
(setq high (+ high (or (car tem) 0)))
(setq low (+ low (or (car (cdr tem)) 0)))
(setq micro (+ micro (or (car (cdr (cdr tem))) 0))))))
(and (>= micro 1000000)
(progn
(setq tem (/ micro 1000000))
(setq low (+ low tem))
(setq micro (- micro (* tem 1000000)))))
(setq tem (lsh low -16))
(and (> tem 0)
(progn
(setq low (logand low 65535))
(setq high (+ high tem))))
(list high low micro)))
(setq sum (time-add sum (if (integerp tem)
(list (floor tem 65536) (mod tem 65536))
tem))))
sum))
(defun type-break-time-stamp (&optional when)
(if (fboundp 'format-time-string)