(browse-url-encode-url): Use copy-sequence.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61ff8ec83e60934292e0e6c4ccb0171f91fd1928..5f4209b66fa57c7661636c8ba4ca08990fc323ce 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-10  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+       * net/browse-url.el (browse-url-encode-url): Use copy-sequence.
+       Reported by Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>.
+
 2007-09-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * outline.el (outline-4, outline-5, outline-7):

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 0263a620f314deb375776c1314c26853ed9a2024..d152f2025610ddad0985fbf413ea00552b1108cc 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -621,7 +621,7 @@ down (this *won't* always work)."
 
 (defun browse-url-encode-url (url)
   "Encode all `confusing' characters in URL."
-  (let ((encoded-url (copy-seq url)))
+  (let ((encoded-url (copy-sequence url)))
     (while (string-match "%" encoded-url)
       (setq encoded-url (replace-match "%25" t t encoded-url)))
     (while (string-match "[*\"()',=;? ]" encoded-url)