diff options
| author | Chong Yidong | 2010-09-23 15:00:31 -0400 |
|---|---|---|
| committer | Chong Yidong | 2010-09-23 15:00:31 -0400 |
| commit | 266a86bd7fedf743225c2497956b73ecb2245196 (patch) | |
| tree | 7d0c8b128070eac293ce2606acb4e55de5843ba8 /lisp/url | |
| parent | 29cdc13ed61e5a64ba30df1030029898a26b7947 (diff) | |
| parent | af3ccb5cc061bccab1c9b024ea444d01c0767767 (diff) | |
| download | emacs-266a86bd7fedf743225c2497956b73ecb2245196.tar.gz emacs-266a86bd7fedf743225c2497956b73ecb2245196.zip | |
Merge changes from emacs-23 branch
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/url/url-cache.el | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 02e135bf7a4..0d1645b25c3 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,5 +1,9 @@ | |||
| 1 | 2010-09-23 Glenn Morris <rgm@gnu.org> | 1 | 2010-09-23 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * url-cache.el (url-is-cached): Doc fix. | ||
| 4 | |||
| 5 | 2010-09-23 Glenn Morris <rgm@gnu.org> | ||
| 6 | |||
| 3 | * url-cache.el (url-cache-expired): Don't autoload. | 7 | * url-cache.el (url-cache-expired): Don't autoload. |
| 4 | Tweak previous change. | 8 | Tweak previous change. |
| 5 | (url-cache-expire-time): Doc fix. | 9 | (url-cache-expire-time): Doc fix. |
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index 418a8e22672..53222cbc4e6 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el | |||
| @@ -83,7 +83,8 @@ FILE can be created or overwritten." | |||
| 83 | 83 | ||
| 84 | ;;;###autoload | 84 | ;;;###autoload |
| 85 | (defun url-is-cached (url) | 85 | (defun url-is-cached (url) |
| 86 | "Return non-nil if the URL is cached." | 86 | "Return non-nil if the URL is cached. |
| 87 | The actual return value is the last modification time of the cache file." | ||
| 87 | (let* ((fname (url-cache-create-filename url)) | 88 | (let* ((fname (url-cache-create-filename url)) |
| 88 | (attribs (file-attributes fname))) | 89 | (attribs (file-attributes fname))) |
| 89 | (and fname ; got a filename | 90 | (and fname ; got a filename |