(url-generic-parse-url): Use with-temp-buffer.

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 22fc1ab0a0..27f463b0b9 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-15  Magnus Henoch  <[email protected]>
+
+	* url-parse.el (url-generic-parse-url): Use with-temp-buffer.
+
 2006-11-15  Shun-ichi GOTO  <[email protected]> (tiny change)
 
 	* url-http.el (url-http-wait-for-headers-change-function): Defer
diff --git a/lisp/url/url-parse.el b/lisp/url/url-parse.el
index 2e4fc8a9f2..bda303697f 100644
--- a/lisp/url/url-parse.el
+++ b/lisp/url/url-parse.el
@@ -135,8 +135,7 @@ Format is:
       (url-set-full retval nil)
       retval))
    (t
-    (save-excursion
-      (set-buffer (get-buffer-create " *urlparse*"))
+    (with-temp-buffer
       (set-syntax-table url-parse-syntax-table)
       (let ((save-pos nil)
 	    (prot nil)