diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:01 +0200 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:01 +0200 |
commit | 7697fa4daf3ec84f85711a84035d8f0224afd4e3 (patch) | |
tree | 24d0f1d2a9751ca8c063409fd2ab71478b296efb /debian/patches/20-links-unescaping.patch |
Imported Upstream version 7.9.2
Diffstat (limited to 'debian/patches/20-links-unescaping.patch')
-rw-r--r-- | debian/patches/20-links-unescaping.patch | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/debian/patches/20-links-unescaping.patch b/debian/patches/20-links-unescaping.patch new file mode 100644 index 0000000..1a69118 --- /dev/null +++ b/debian/patches/20-links-unescaping.patch @@ -0,0 +1,26 @@ +Description: Proper unescaping in links +Author: Carsten Dominik <carsten.dominik@gmail.com> +Origin: upstream +Bug-Debian: http://bugs.debian.org/572404 + +Index: org-mode-6.34c/lisp/org.el +=================================================================== +--- org-mode-6.34c.orig/lisp/org.el 2010-01-18 00:10:45.000000000 +0100 ++++ org-mode-6.34c/lisp/org.el 2010-03-05 11:27:52.000000000 +0100 +@@ -7914,12 +7914,14 @@ + (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)))) + |