X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/416148257afedb97bbe6d732eea3a0c72473dab0..45c92ddd99f5d3ceb520f9a27678bbedde83589b:/lisp/allout-widgets.el diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index f2dcdb4042..3c71a810bf 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el @@ -1,6 +1,6 @@ ;; allout-widgets.el --- Visually highlight allout outline structure. -;; Copyright (C) 2005-2014 Free Software Foundation, Inc. +;; Copyright (C) 2005-2015 Free Software Foundation, Inc. ;; Author: Ken Manheimer ;; Maintainer: Ken Manheimer @@ -348,7 +348,7 @@ to `allout-body-modification-handler', and is always reset by images with lists containing the name of the icon directory (as found on the `load-path') and the icon name. -Set this variable to `nil' to empty the cache, and have it replenish from the +Set this variable to nil to empty the cache, and have it replenish from the filesystem.") ;;;_ = allout-widgets-unset-inhibit-read-only (defvar allout-widgets-unset-inhibit-read-only nil @@ -2342,9 +2342,9 @@ We use a caching strategy, so the caller doesn't need to do so." got))) ;;;_ : Miscellaneous -;;;_ > allout-elapsed-time-seconds (triple) +;;;_ > allout-elapsed-time-seconds (time-value time-value) (defun allout-elapsed-time-seconds (end start) - "Return seconds between `current-time' style time START/END triples." + "Return seconds between START/END time values." (let ((elapsed (time-subtract end start))) (float-time elapsed))) ;;;_ > allout-frame-property (frame property)