Mercurial > emacs
changeset 67851:eebc9bf86f06
(url-store-in-cache): Use save-current-buffer.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 27 Dec 2005 17:01:01 +0000 |
| parents | 5a29e54d6794 |
| children | 5b7ceef33307 |
| files | lisp/url/ChangeLog lisp/url/url-cache.el |
| diffstat | 2 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/ChangeLog Tue Dec 27 16:59:45 2005 +0000 +++ b/lisp/url/ChangeLog Tue Dec 27 17:01:01 2005 +0000 @@ -1,5 +1,7 @@ 2005-12-27 Stefan Monnier <monnier@iro.umontreal.ca> + * url-cache.el (url-store-in-cache): Use save-current-buffer. + * url.el (url-configuration-directory): Don't autoload because the default value needs to be computed at run-time, not dump-time.
--- a/lisp/url/url-cache.el Tue Dec 27 16:59:45 2005 +0000 +++ b/lisp/url/url-cache.el Tue Dec 27 17:01:01 2005 +0000 @@ -65,7 +65,7 @@ "Store buffer BUFF in the cache." (if (not (and buff (get-buffer buff))) nil - (save-excursion + (save-current-buffer (and buff (set-buffer buff)) (let* ((fname (url-cache-create-filename (url-view-url t)))) (if (url-cache-prepare fname) @@ -202,5 +202,5 @@ (provide 'url-cache) -;;; arch-tag: 95b050a6-8e81-4f23-8e63-191b9d1d657c +;; arch-tag: 95b050a6-8e81-4f23-8e63-191b9d1d657c ;;; url-cache.el ends here