tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

LaTeX export: Fix subscript export here as well.

This commit is contained in:
Carsten Dominik 2009-03-11 10:32:54 +01:00
parent 13f619d07a
commit 31b3239f08
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-03-11 Carsten Dominik <carsten.dominik@gmail.com>
* org-export-latex.el (org-export-latex-special-chars)
(org-export-latex-treat-sub-super-char): Fix subscript export.
* org-exp.el (org-create-multibrace-regexp): Do not add
backslashes to the class.

12
lisp/org-export-latex.el
View File

@ -968,7 +968,7 @@ See the `org-export-latex.el' code for a complete conversion table."
(match-string 3))) "") t t)))))))
'(;"^\\([^\n$]*?\\|^\\)\\(\\\\?\\$\\)\\([^\n$]*\\)$"
"\\(\\(\\\\?\\$\\)\\)"
"\\([a-za-z0-9]+\\|[ \t\n]\\|\\b\\|\\\\\\)\\(_\\|\\^\\)\\([a-za-z0-9]+\\|[ \t\n]\\|[:punct:]\\|{[a-za-z0-9]+}\\|([a-za-z0-9]+)\\)"
"\\([a-za-z0-9]+\\|[ \t\n]\\|\\b\\|\\\\\\)\\(_\\|\\^\\)\\({[^{}]+}\\|[a-za-z0-9]+\\|[ \t\n]\\|[:punct:]\\|{[a-za-z0-9]+}\\|([a-za-z0-9]+)\\)"
"\\(.\\|^\\)\\(\\\\\\)\\([ \t\n]\\|[a-zA-Z&#%{}\"]+\\)"
"\\(.\\|^\\)\\(&\\)"
"\\(.\\|^\\)\\(#\\)"
@ -1007,10 +1007,12 @@ Convert CHAR depending on STRING-BEFORE and STRING-AFTER."
(or (eq subsup t)
(and (equal subsup '{}) (eq (string-to-char string-after) ?\{)))
(string-match "[({]?\\([^)}]+\\)[)}]?" string-after))
(format "%s$%s{%s}$" string-before char
(if (> (match-end 1) (1+ (match-beginning 1)))
(concat "\\mathrm{" (match-string 1 string-after) "}")
(match-string 1 string-after))))
(org-export-latex-protect-string
(format "%s$%s{%s}$" string-before char
(if (and (> (match-end 1) (1+ (match-beginning 1)))
(not (equal (substring string-after 0 2) "{\\")))
(concat "\\mathrm{" (match-string 1 string-after) "}")
(match-string 1 string-after)))))
((eq subsup t) (concat string-before "$" char string-after "$"))
(t (org-export-latex-protect-string
(concat string-before "\\" char "{}" string-after)))))