summaryrefslogtreecommitdiff
path: root/patches/20-links-unescaping.patch
diff options
context:
space:
mode:
authorSebastien Delafond <seb@debian.org>2017-08-03 08:26:08 -0700
committerSebastien Delafond <seb@debian.org>2017-08-03 08:26:08 -0700
commit6f8ec3086053b01f2f09f5df881e33815afb004e (patch)
tree1698b28e8e7456bf276e25d6e3d6cc4ba280e39a /patches/20-links-unescaping.patch
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]
Diffstat (limited to 'patches/20-links-unescaping.patch')
-rw-r--r--patches/20-links-unescaping.patch26
1 files changed, 26 insertions, 0 deletions
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 <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))))
+