Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
28421945
Commit
28421945
authored
Sep 10, 2007
by
Thien-Thi Nguyen
Browse files
(browse-url-encode-url): Use copy-sequence.
parent
9c934431
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/net/browse-url.el
lisp/net/browse-url.el
+1
-1
No files found.
lisp/ChangeLog
View file @
28421945
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):
...
...
lisp/net/browse-url.el
View file @
28421945
...
...
@@ -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-seq
uence
url
)))
(
while
(
string-match
"%"
encoded-url
)
(
setq
encoded-url
(
replace-match
"%25"
t
t
encoded-url
)))
(
while
(
string-match
"[*\"()',=;? ]"
encoded-url
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment