From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 27 Dec 2005 17:01:01 +0000 (+0000)
Subject: (url-store-in-cache): Use save-current-buffer.
X-Git-Tag: emacs-pretest-22.0.90~5036
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32d5ce4db47966d03c984dcf8b69473bb6dad48c;p=emacs.git

(url-store-in-cache): Use save-current-buffer.
---

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index aa87264dfef..ac6afe45608 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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.
 
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