[Orgmode] [PATCH] Fix the export of underscores in links in the LaTeX export

[Christian Egli]

Hi

I have the attached org file which I export to LaTeX. With the current
version of git the export produces the link as follows:

\href{http://wiki.dspace.org/index.php/Configure\_media\_{}filters}{media 
filters}

Notice the spurious '{}' before filters. Needless to say this link
doesn't work.

I tried to understand the source of the problem and came up with the
following patch which seems to work. However since I don't quite
understand this code you should take my change with a grain of salt.
With my patch I now get the following link.

 \href{http://wiki.dspace.org/index.php/Configure\_media\_filters}{media 
filters}

#+OPTIONS:   ^:nil TeX:nil toc:nil

* Title
** Subtitle
[[http://wiki.dspace.org/index.php/Configure_media_filters][media filters]]

Thanks
Christian
---
 lisp/org-export-latex.el |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org-export-latex.el b/lisp/org-export-latex.el
index daa75dc..eeb8199 100644
--- a/lisp/org-export-latex.el
+++ b/lisp/org-export-latex.el
@@ -958,12 +958,13 @@ SUBSUP corresponds to the ^: option in the #+OPTIONS line.
 Convert CHAR depending on STRING-BEFORE and STRING-AFTER."
   (cond ((equal string-before "\\")
         (concat string-before char string-after))
+       ; deal with links
+       ((eq 'org-link (get-text-property 0 'face char))
+        (concat string-before "\\" char string-after))
        ;; this is part of a math formula
        ((and (string-match "\\S-+" string-before)
              (string-match "\\S-+" string-after))
-        (cond ((eq 'org-link (get-text-property 0 'face char))
-               (concat string-before "\\" char string-after))
-              ((save-match-data (org-inside-latex-math-p))
+        (cond ((save-match-data (org-inside-latex-math-p))
                (if subsup
                    (cond ((eq 1 (length string-after))
                           (concat string-before char string-after))
-- 
1.5.6.3