diff options
author | Chong Yidong <cyd@gnu.org> | 2012-05-09 20:39:40 +0800 |
---|---|---|
committer | Chong Yidong <cyd@gnu.org> | 2012-05-09 20:39:40 +0800 |
commit | 00fd78ed4f34548d1e7bca6fe28b74decd4bef39 (patch) | |
tree | 70672283a4906f356db67a5503cd8c0529127593 /lisp/net/browse-url.el | |
parent | bdac2d37fa5f83ec57d794523147dc5d5a179992 (diff) | |
download | emacs-00fd78ed4f34548d1e7bca6fe28b74decd4bef39.tar.gz |
Encoding fix for browse-url-encode-url.
* lisp/net/browse-url.el (browse-url-url-encode-chars): Use upper-case.
(browse-url-encode-url): Encode spaces and quotes.
Fixes: debbugs:6300
Diffstat (limited to 'lisp/net/browse-url.el')
-rw-r--r-- | lisp/net/browse-url.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 62c0e317a81..f4e7e942931 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -642,7 +642,7 @@ CHARS is a regexp-like character alternative (e.g., \"[)$]\")." (s 0)) (while (setq s (string-match chars encoded-text s)) (setq encoded-text - (replace-match (format "%%%x" + (replace-match (format "%%%X" (string-to-char (match-string 0 encoded-text))) t t encoded-text) s (1+ s))) @@ -655,7 +655,7 @@ regarding its parameter treatment." ;; FIXME: Is there an actual example of a web browser getting ;; confused? (This used to encode commas, but at least Firefox ;; handles commas correctly and doesn't accept encoded commas.) - (browse-url-url-encode-chars url "[)$]")) + (browse-url-url-encode-chars url "[\")$] ")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; URL input |