From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 1 Jul 2011 00:11:50 +0000 (-0700)
Subject: * allout-widgets.el (allout-elapsed-time-seconds): Use float-time.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35837f519ed62d7e87bc913711fb4ecacd5721f6;p=emacs.git

* allout-widgets.el (allout-elapsed-time-seconds): Use float-time.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ce1eb61f14..d7795b6e307 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-01  Paul Eggert  <eggert@cs.ucla.edu>
+
+	* allout-widgets.el (allout-elapsed-time-seconds): Use float-time.
+
 2011-06-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* textmodes/flyspell.el (flyspell-word): Consider words that
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 0f1fe850123..8dab7411750 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -2324,9 +2324,7 @@ We use a caching strategy, so the caller doesn't need to do so."
 (defun allout-elapsed-time-seconds (end start)
   "Return seconds between `current-time' style time START/END triples."
   (let ((elapsed (time-subtract end start)))
-    (+ (* (car elapsed) (expt 2.0 16))
-       (cadr elapsed)
-       (/ (caddr elapsed) (expt 10.0 6)))))
+    (float-time elapsed)))
 ;;;_  > allout-frame-property (frame property)
 (defalias 'allout-frame-property
   (cond ((fboundp 'frame-parameter)