From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Mon, 10 Sep 2007 18:24:38 +0000 (+0000)
Subject: (browse-url-encode-url): Use copy-sequence.
X-Git-Tag: emacs-pretest-23.0.90~10978
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28421945875ac7541b11a168f7fdda0edc309674;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61ff8ec83e6..5f4209b66fa 100644
--- 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,Ad(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 0263a620f31..d152f202561 100644
--- 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)