diff options
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/url/url-cache.el | 1 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 969d3c7d269..72842ad188d 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-02-03 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * url-cache.el (url-cache-create-filename-using-md5): Don't waste your | ||
| 4 | time `requiring' a builtin feature. | ||
| 5 | |||
| 1 | 2012-12-22 Takafumi Arakaki <aka.tkf@gmail.com> (tiny change) | 6 | 2012-12-22 Takafumi Arakaki <aka.tkf@gmail.com> (tiny change) |
| 2 | 7 | ||
| 3 | * url-http.el (url-http-end-of-document-sentinel): Bind relevant | 8 | * url-http.el (url-http-end-of-document-sentinel): Bind relevant |
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index a5e5ebf1ed4..cb0281b87f2 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el | |||
| @@ -149,7 +149,6 @@ The actual return value is the last modification time of the cache file." | |||
| 149 | (defun url-cache-create-filename-using-md5 (url) | 149 | (defun url-cache-create-filename-using-md5 (url) |
| 150 | "Create a cached filename using MD5. | 150 | "Create a cached filename using MD5. |
| 151 | Very fast if you have an `md5' primitive function, suitably fast otherwise." | 151 | Very fast if you have an `md5' primitive function, suitably fast otherwise." |
| 152 | (require 'md5) | ||
| 153 | (if url | 152 | (if url |
| 154 | (let* ((checksum (md5 url)) | 153 | (let* ((checksum (md5 url)) |
| 155 | (urlobj (url-generic-parse-url url)) | 154 | (urlobj (url-generic-parse-url url)) |