mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

* url-cache.el (url-cache-expired): Don't autoload. Tweak previous change.

Browse Source
This commit is contained in:
Glenn Morris 2010-09-22 22:59:20 -07:00
parent 18d68e52f6
commit 48ff1664e2
2 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/url/ChangeLog
View File

@ -1,3 +1,8 @@
2010-09-23 Glenn Morris <rgm@gnu.org>
* url-cache.el (url-cache-expired): Don't autoload.
Tweak previous change.
2010-09-23 Julien Danjou <julien@danjou.info>
* url-cache.el (url-cache-expire-time): New option.

25
lisp/url/url-cache.el
View File

@ -191,20 +191,19 @@ Very fast if you have an `md5' primitive function, suitably fast otherwise."
(erase-buffer)
(insert-file-contents-literally fnam))
;;;###autoload
(defun url-cache-expired (url &optional expire-time)
"Return t if a cached URL is more than EXPIRE-TIME old.
If EXPIRE-TIME is not set, `url-cache-expire-time' is used instead."
(cond (url-standalone-mode
(not (file-exists-p (url-cache-create-filename url))))
(t (let ((cache-time (url-is-cached url)))
(if cache-time
(time-less-p
(time-add
(url-is-cached url)
(seconds-to-time (or expire-time url-cache-expire-time)))
(current-time))
t)))))
"Return non-nil if a cached URL is older than EXPIRE-TIME seconds.
The default value of EXPIRE-TIME is `url-cache-expire-time'.
If `url-standalone-mode' is non-nil, cached items never expire."
(if url-standalone-mode
(not (file-exists-p (url-cache-create-filename url)))
(let ((cache-time (url-is-cached url)))
(and cache-time
(time-less-p
(time-add
cache-time
(seconds-to-time (or expire-time url-cache-expire-time)))
(current-time))))))
(provide 'url-cache)