diff options
Diffstat (limited to 'lisp/url/url-cache.el')
| -rw-r--r-- | lisp/url/url-cache.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index e80ba059393..40967446dd7 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; url-cache.el --- Uniform Resource Locator retrieval tool | 1 | ;;; url-cache.el --- Uniform Resource Locator retrieval tool |
| 2 | 2 | ||
| 3 | ;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2004, |
| 4 | ;; 2005 Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Keywords: comm, data, processes, hypermedia | 6 | ;; Keywords: comm, data, processes, hypermedia |
| 6 | 7 | ||
| @@ -39,7 +40,7 @@ | |||
| 39 | (if (file-exists-p file) | 40 | (if (file-exists-p file) |
| 40 | (not (file-directory-p file)) | 41 | (not (file-directory-p file)) |
| 41 | (file-directory-p (file-name-directory file))))) | 42 | (file-directory-p (file-name-directory file))))) |
| 42 | 43 | ||
| 43 | (defun url-cache-prepare (file) | 44 | (defun url-cache-prepare (file) |
| 44 | "Makes it possible to cache data in FILE. | 45 | "Makes it possible to cache data in FILE. |
| 45 | Creates any necessary parent directories, deleting any non-directory files | 46 | Creates any necessary parent directories, deleting any non-directory files |
| @@ -70,7 +71,7 @@ FILE can be created or overwritten." | |||
| 70 | (if (url-cache-prepare fname) | 71 | (if (url-cache-prepare fname) |
| 71 | (let ((coding-system-for-write 'binary)) | 72 | (let ((coding-system-for-write 'binary)) |
| 72 | (write-region (point-min) (point-max) fname nil 5))))))) | 73 | (write-region (point-min) (point-max) fname nil 5))))))) |
| 73 | 74 | ||
| 74 | ;;;###autoload | 75 | ;;;###autoload |
| 75 | (defun url-is-cached (url) | 76 | (defun url-is-cached (url) |
| 76 | "Return non-nil if the URL is cached." | 77 | "Return non-nil if the URL is cached." |