From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 1 Jul 2011 00:27:45 +0000 (-0700)
Subject: * emacs-lisp/benchmark.el (benchmark-elapse): Use float-time.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2bac5f625481e45ccd1a217af0cd211df461a20;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 346c290ab7b..ab071c79454 100644
--- 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 86063c512c6..aa84a075b76 100644
--- 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)