(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 22fc1ab0a02..27f463b0b97 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-15  Magnus Henoch  <mange@freemail.hu>
+
+        * url-parse.el (url-generic-parse-url): Use with-temp-buffer.
+
 2006-11-15  Shun-ichi GOTO  <gotoh@taiyo.co.jp> (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 2e4fc8a9f27..bda303697fb 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)