Commit 50e4f0bf authored by Julien Danjou's avatar Julien Danjou Committed by Glenn Morris
Browse files

* lisp/url/url-cache.el (url-fetch-from-cache): New function.

parent 2bc01104
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.
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment