mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/url/url-cache (url-store-in-cache): Make `buff' argument really optional.

Browse source
This commit is contained in:
Julien Danjou 2010-09-10 18:55:55 -07:00 • committed by Glenn Morris
parent 639b9d87d2
commit 6f6dc4da1d
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/url/ChangeLog
View file

@ -1,3 +1,7 @@
2010-09-11 Julien Danjou <julien@danjou.info>
* url-cache (url-store-in-cache): Make `buff' argument really optional.
2010-09-09 Glenn Morris <rgm@gnu.org>
* url-cookie.el (url-cookie-expired-p): Tweak previous change.

13
lisp/url/url-cache.el
View file

@ -62,14 +62,11 @@ FILE can be created or overwritten."
;;;###autoload
(defun url-store-in-cache (&optional buff)
"Store buffer BUFF in the cache."
(if (not (and buff (get-buffer buff)))
nil
(save-current-buffer
(and buff (set-buffer buff))
(let* ((fname (url-cache-create-filename (url-view-url t))))
(if (url-cache-prepare fname)
(let ((coding-system-for-write 'binary))
(write-region (point-min) (point-max) fname nil 5)))))))
(with-current-buffer (get-buffer (or buff (current-buffer)))
(let ((fname (url-cache-create-filename (url-view-url t))))
(if (url-cache-prepare fname)
(let ((coding-system-for-write 'binary))
(write-region (point-min) (point-max) fname nil 5))))))
;;;###autoload
(defun url-is-cached (url)