diff options
author | David Maus <dmaus@ictsoc.de> | 2010-11-10 21:11:17 +0100 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-11-10 21:11:17 +0100 |
commit | 57a4bd31b778eb7be8288a52fae5c1e40beb856a (patch) | |
tree | 4bdfcb937b8a2212aa4881083835a6da018c665c | |
parent | 68b5ca3989e2cd8023fcac8551b3884f9b6bdf08 (diff) | |
download | org-mode-57a4bd31b778eb7be8288a52fae5c1e40beb856a.tar.gz |
Normalize percent escape sequence to upper case letters
* org-protocol.el (org-protocol-unhex-string): Normalize percent
escape sequence to upper case letters.
Otherwise the underlying function produces wrong results for percent
escape sequences that happen to use lower case characters.
-rw-r--r-- | lisp/org-protocol.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-protocol.el b/lisp/org-protocol.el index 3a20c5f..1c501f3 100644 --- a/lisp/org-protocol.el +++ b/lisp/org-protocol.el @@ -313,7 +313,7 @@ encodeURIComponent. E.g. `%C3%B6' is the german Umlaut `ΓΌ'." (let* ((start (match-beginning 0)) (end (match-end 0)) (hex (match-string 0 str)) - (replacement (org-protocol-unhex-compound hex))) + (replacement (org-protocol-unhex-compound (upcase hex)))) (setq tmp (concat tmp (substring str 0 start) replacement)) (setq str (substring str end)))) (setq tmp (concat tmp str)) |