diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-12-27 17:01:01 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-12-27 17:01:01 +0000 |
| commit | 32d5ce4db47966d03c984dcf8b69473bb6dad48c (patch) | |
| tree | 2e364908f4c0f5e046b290a263b378510f448cd1 /lisp/url/url-cache.el | |
| parent | d476efde686ba465cb75b0f2d0b5219da0c6cc0a (diff) | |
| download | emacs-32d5ce4db47966d03c984dcf8b69473bb6dad48c.tar.gz | |
(url-store-in-cache): Use save-current-buffer.
Diffstat (limited to 'lisp/url/url-cache.el')
| -rw-r--r-- | lisp/url/url-cache.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index 40967446dd7..b8c2b063adc 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el @@ -65,7 +65,7 @@ FILE can be created or overwritten." "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 @@ Very fast if you have an `md5' primitive function, suitably fast otherwise." (provide 'url-cache) -;;; arch-tag: 95b050a6-8e81-4f23-8e63-191b9d1d657c +;; arch-tag: 95b050a6-8e81-4f23-8e63-191b9d1d657c ;;; url-cache.el ends here |