From edffca45e9f4f0f2a86988fb77884fe61885f902 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 5 Mar 2010 13:36:44 +0100 Subject: [PATCH] Solve issue with lower-case hex escapes --- lisp/ChangeLog | 4 ++++ lisp/org.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fbd1483fe..25c4359f2 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-03-05 Carsten Dominik + + * org.el (org-link-unescape): Solve issue with lower-case escapes. + 2010-03-04 Carsten Dominik * org-latex.el (org-export-latex-classes): Add diff --git a/lisp/org.el b/lisp/org.el index 85b74fae6..59d2acf29 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7950,12 +7950,14 @@ This is the list that is used before handing over to the browser.") (url-unhex-string text) (setq table (or table org-link-escape-chars)) (when text - (let ((re (mapconcat (lambda (x) (regexp-quote (cdr x))) + (let ((case-fold-search t) + (re (mapconcat (lambda (x) (regexp-quote (downcase (cdr x)))) table "\\|"))) (while (string-match re text) (setq text (replace-match - (char-to-string (car (rassoc (match-string 0 text) table))) + (char-to-string (car (rassoc (upcase (match-string 0 text)) + table))) t t text))) text))))