aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/url/url-cache.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/url/url-cache.el')
-rw-r--r--lisp/url/url-cache.el7
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.
45Creates any necessary parent directories, deleting any non-directory files 46Creates 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."