mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Paul Eggert 2011-06-30 17:11:50 -07:00
parent 34d0a92369
commit 35837f519e
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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> 2011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
* textmodes/flyspell.el (flyspell-word): Consider words that * textmodes/flyspell.el (flyspell-word): Consider words that

4
lisp/allout-widgets.el
View File

@ -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) (defun allout-elapsed-time-seconds (end start)
"Return seconds between `current-time' style time START/END triples." "Return seconds between `current-time' style time START/END triples."
(let ((elapsed (time-subtract end start))) (let ((elapsed (time-subtract end start)))
(+ (* (car elapsed) (expt 2.0 16)) (float-time elapsed)))
(cadr elapsed)
(/ (caddr elapsed) (expt 10.0 6)))))
;;;_ > allout-frame-property (frame property) ;;;_ > allout-frame-property (frame property)
(defalias 'allout-frame-property (defalias 'allout-frame-property
(cond ((fboundp 'frame-parameter) (cond ((fboundp 'frame-parameter)