From 28421945875ac7541b11a168f7fdda0edc309674 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 10 Sep 2007 18:24:38 +0000 Subject: [PATCH] (browse-url-encode-url): Use copy-sequence. --- lisp/ChangeLog | 5 +++++ lisp/net/browse-url.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * net/browse-url.el (browse-url-encode-url): Use copy-sequence. + Reported by Jan Dj,Ad(Brv . + 2007-09-10 Stefan Monnier * 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) -- 2.39.5