Commit 28421945 authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

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

parent 9c934431
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):
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment