From 6f8ec3086053b01f2f09f5df881e33815afb004e Mon Sep 17 00:00:00 2001 From: Sebastien Delafond Date: Thu, 3 Aug 2017 08:26:08 -0700 Subject: Import org-mode_9.0.9+dfsg-3.debian.tar.xz [dgit import tarball org-mode 9.0.9+dfsg-3 org-mode_9.0.9+dfsg-3.debian.tar.xz] --- patches/20-links-unescaping.patch | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 patches/20-links-unescaping.patch (limited to 'patches/20-links-unescaping.patch') diff --git a/patches/20-links-unescaping.patch b/patches/20-links-unescaping.patch new file mode 100644 index 0000000..1a69118 --- /dev/null +++ b/patches/20-links-unescaping.patch @@ -0,0 +1,26 @@ +Description: Proper unescaping in links +Author: Carsten Dominik +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)))) + -- cgit v1.2.3