diff options
| -rw-r--r-- | lisp/url/url-cache.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index e76186faefc..d279a88951d 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el | |||
| @@ -23,6 +23,7 @@ | |||
| 23 | ;;; Boston, MA 02111-1307, USA. | 23 | ;;; Boston, MA 02111-1307, USA. |
| 24 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 24 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 25 | (require 'url-parse) | 25 | (require 'url-parse) |
| 26 | (require 'url-util) | ||
| 26 | 27 | ||
| 27 | (defcustom url-cache-directory | 28 | (defcustom url-cache-directory |
| 28 | (expand-file-name "cache" url-configuration-directory) | 29 | (expand-file-name "cache" url-configuration-directory) |
| @@ -138,7 +139,7 @@ FILE can be created or overwritten." | |||
| 138 | 139 | ||
| 139 | (defun url-cache-create-filename-using-md5 (url) | 140 | (defun url-cache-create-filename-using-md5 (url) |
| 140 | "Create a cached filename using MD5. | 141 | "Create a cached filename using MD5. |
| 141 | Very fast if you are in XEmacs, suitably fast otherwise." | 142 | Very fast if you have an `md5' primitive function, suitably fast otherwise." |
| 142 | (require 'md5) | 143 | (require 'md5) |
| 143 | (if url | 144 | (if url |
| 144 | (let* ((url (if (vectorp url) (url-recreate-url url) url)) | 145 | (let* ((url (if (vectorp url) (url-recreate-url url) url)) |