mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

* emacs-lisp/benchmark.el (benchmark-elapse): Use float-time.

Browse source
This commit is contained in:
Paul Eggert 2011-06-30 17:27:45 -07:00
parent 98768aebbe
commit e2bac5f625
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -3,6 +3,7 @@
* calendar/timeclock.el (timeclock-seconds-to-time):
Defalias to seconds-to-time, since they're the same thing.
* emacs-lisp/benchmark.el (benchmark-elapse):
* allout-widgets.el (allout-elapsed-time-seconds): Use float-time.
2011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org>

5
lisp/emacs-lisp/benchmark.el
View file

@ -39,9 +39,8 @@
(setq ,t1 (current-time))
,@forms
(setq ,t2 (current-time))
(+ (* (- (car ,t2) (car ,t1)) 65536.0)
(- (nth 1 ,t2) (nth 1 ,t1))
(* (- (nth 2 ,t2) (nth 2 ,t1)) 1.0e-6)))))
(float-time (time-subtract ,t2 ,t1)))))
(put 'benchmark-elapse 'edebug-form-spec t)
(put 'benchmark-elapse 'lisp-indent-function 0)