From 35837f519ed62d7e87bc913711fb4ecacd5721f6 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 30 Jun 2011 17:11:50 -0700 Subject: [PATCH] * allout-widgets.el (allout-elapsed-time-seconds): Use float-time. --- lisp/ChangeLog | 4 ++++ lisp/allout-widgets.el | 4 +--- 2 files changed, 5 insertions(+), 3 deletions(-) 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 + + * allout-widgets.el (allout-elapsed-time-seconds): Use float-time. + 2011-06-30 Lars Magne Ingebrigtsen * 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) -- 2.39.2