From: Julien Danjou <julien@danjou.info>
To: emacs-devel@gnu.org
Cc: Julien Danjou <julien@danjou.info>
Subject: [PATCH 2/5] url-cache.el: (url-fetch-from-cache): Add new function
Date: Wed, 15 Sep 2010 10:51:25 +0200 [thread overview]
Message-ID: <1284540688-7912-3-git-send-email-julien@danjou.info> (raw)
In-Reply-To: <1284540688-7912-1-git-send-email-julien@danjou.info>
Signed-off-by: Julien Danjou <julien@danjou.info>
---
lisp/url/ChangeLog | 1 +
lisp/url/url-cache.el | 7 +++++++
2 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index a5e5c26..d4602aa 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -2,6 +2,7 @@
* url-cache (url-store-in-cache): Make `buff' argument really optional.
(url-cache-expired): Handle any type of cached object.
+ (url-fetch-from-cache): Add new function.
2010-09-14 Glenn Morris <rgm@gnu.org>
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el
index 015a1ff..6ca4c44 100644
--- a/lisp/url/url-cache.el
+++ b/lisp/url/url-cache.el
@@ -69,6 +69,13 @@ FILE can be created or overwritten."
(write-region (point-min) (point-max) fname nil 5))))))
;;;###autoload
+(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."
(let* ((fname (url-cache-create-filename url))
--
1.7.1
next prev parent reply other threads:[~2010-09-15 8:51 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-09-15 8:51 Enhance url-cache Julien Danjou
2010-09-15 8:51 ` [PATCH 1/5] url-cache.el (url-cache-expired): Handle any type of cached object Julien Danjou
2010-09-15 8:51 ` Julien Danjou [this message]
2010-09-19 18:50 ` [PATCH 2/5] url-cache.el: (url-fetch-from-cache): Add new function Glenn Morris
2010-09-15 8:51 ` [PATCH 3/5] url-cache.el: (url-is-cached): Enhance docstring Julien Danjou
2010-09-18 20:44 ` Glenn Morris
2010-09-15 8:51 ` [PATCH 4/5] url-vars.el: Remove useless variable `url-cache-expired' Julien Danjou
2010-09-18 20:50 ` Glenn Morris
2010-09-15 8:51 ` [PATCH 5/5] url-cache: add url-cache-expire-time Julien Danjou
2010-09-22 16:29 ` Enhance url-cache Julien Danjou
2010-09-22 17:09 ` Glenn Morris
2010-09-23 9:46 ` [PATCH] Fix URL documentation Julien Danjou
2010-09-24 2:38 ` Glenn Morris
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1284540688-7912-3-git-send-email-julien@danjou.info \
--to=julien@danjou.info \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.