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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ce1eb61f14705898736e2edeacbdba9c392cf8d..d7795b6e307f0f3fd7297019a931ba8fc29eb540 100644 (file)
--- 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 0f1fe8501233855738a7cd314c0da2dbda601fd2..8dab7411750210faa87ec08753310ff2026bb1e6 100644 (file)
--- 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)