diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-06-30 17:11:50 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-06-30 17:11:50 -0700 |
| commit | 35837f519ed62d7e87bc913711fb4ecacd5721f6 (patch) | |
| tree | 1dbed66a003e8be37e315da02e3bde098afa5220 /lisp/allout-widgets.el | |
| parent | 34d0a92369bca068847db5576988d461f46e1351 (diff) | |
| download | emacs-35837f519ed62d7e87bc913711fb4ecacd5721f6.tar.gz | |
* allout-widgets.el (allout-elapsed-time-seconds): Use float-time.
Diffstat (limited to 'lisp/allout-widgets.el')
| -rw-r--r-- | lisp/allout-widgets.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |