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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 346c290ab7b8d70388c995b49b48773afc64a32a..ab071c79454667e175bee020ee49dd948719f518 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>

diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el
index 86063c512c68d0a5118bd3e1f79e82d2f9766ac5..aa84a075b76d3188a3da8bf4fe9099c1c746708f 100644 (file)
--- a/lisp/emacs-lisp/benchmark.el
+++ b/lisp/emacs-lisp/benchmark.el
@@ -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)