Commit 35837f51 authored by Paul Eggert's avatar Paul Eggert
Browse files

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

parent 34d0a923
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment