[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101492: * lisp/url/url-cache.el (url
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101492: * lisp/url/url-cache.el (url-fetch-from-cache): New function. |
Date: |
Sun, 19 Sep 2010 11:48:11 -0700 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101492
author: Julien Danjou <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-19 11:48:11 -0700
message:
* lisp/url/url-cache.el (url-fetch-from-cache): New function.
modified:
lisp/url/ChangeLog
lisp/url/url-cache.el
=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog 2010-09-18 20:54:55 +0000
+++ b/lisp/url/ChangeLog 2010-09-19 18:48:11 +0000
@@ -1,3 +1,7 @@
+2010-09-19 Julien Danjou <address@hidden>
+
+ * url-cache.el (url-fetch-from-cache): New function.
+
2010-09-18 Julien Danjou <address@hidden>
* url-vars.el (url-cache-expired): Remove unused variable.
=== modified file 'lisp/url/url-cache.el'
--- a/lisp/url/url-cache.el 2010-09-14 14:41:53 +0000
+++ b/lisp/url/url-cache.el 2010-09-19 18:48:11 +0000
@@ -68,6 +68,12 @@
(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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101492: * lisp/url/url-cache.el (url-fetch-from-cache): New function.,
Glenn Morris <=