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))))