Commit e2bac5f6 authored by Paul Eggert's avatar Paul Eggert
Browse files

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

parent 98768aeb
......@@ -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>
......
......@@ -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)
......
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