mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Thien-Thi Nguyen 2007-09-10 18:24:38 +00:00
parent 9c9344319e
commit 2842194587
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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):

2
lisp/net/browse-url.el
View File

@ -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)