diff options
| author | Julien Danjou <julien@danjou.info> | 2010-09-19 11:48:11 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-09-19 11:48:11 -0700 |
| commit | 50e4f0bf347c8e977d9c1564f9bd9a8af3dcf140 (patch) | |
| tree | 76004cdbdf8643ac052060ec6bec318866250d03 /lisp/url | |
| parent | 2bc0110432b123c1b109acf7cd60a23c728b9b0a (diff) | |
| download | emacs-50e4f0bf347c8e977d9c1564f9bd9a8af3dcf140.tar.gz | |
* lisp/url/url-cache.el (url-fetch-from-cache): New function.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/url/url-cache.el | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index f8987cb64d9..9bc9d3110f8 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,7 @@ +2010-09-19 Julien Danjou <julien@danjou.info> + + * url-cache.el (url-fetch-from-cache): New function. + 2010-09-18 Julien Danjou <julien@danjou.info> * url-vars.el (url-cache-expired): Remove unused variable. diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index 3a6f00db306..28d0af761ea 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el @@ -68,6 +68,12 @@ FILE can be created or overwritten." (let ((coding-system-for-write 'binary)) (write-region (point-min) (point-max) fname nil 5)))))) +(defun url-fetch-from-cache (url) + "Fetch URL from cache and return a buffer with the content." + (with-current-buffer (generate-new-buffer " *temp*") + (url-cache-extract (url-cache-create-filename url)) + (current-buffer))) + ;;;###autoload (defun url-is-cached (url) "Return non-nil if the URL is cached." |