diff options
| author | Joakim Verona | 2013-02-04 00:03:35 +0100 |
|---|---|---|
| committer | Joakim Verona | 2013-02-04 00:03:35 +0100 |
| commit | c877afeb2bdca205b7d4e19fb37eb0c9cf209540 (patch) | |
| tree | eddb6a0ea25c25796e0686a0c2b186e5dbfac95a /lisp/url | |
| parent | cfefa7e817861c3fdf541becf7fbcfa00fa16858 (diff) | |
| parent | 69d52b98fc53446450319ae96881dd57683e0349 (diff) | |
| download | emacs-c877afeb2bdca205b7d4e19fb37eb0c9cf209540.tar.gz emacs-c877afeb2bdca205b7d4e19fb37eb0c9cf209540.zip | |
auto upstream
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)) |