mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-08 21:38:10 +00:00
Code

Solve issue with lower-case hex escapes

Browse Source
This commit is contained in:
Carsten Dominik 2010-03-05 13:36:44 +01:00
parent 9178620128
commit edffca45e9
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-03-05 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-link-unescape): Solve issue with lower-case escapes.
2010-03-04 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-classes): Add

6
lisp/org.el
View File

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