mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 10:02:52 +00:00
LaTeX export: Fix subscript export here as well.
This commit is contained in:
parent
13f619d07a
commit
31b3239f08
|
@ -1,5 +1,8 @@
|
||||||
2009-03-11 Carsten Dominik <carsten.dominik@gmail.com>
|
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
|
* org-exp.el (org-create-multibrace-regexp): Do not add
|
||||||
backslashes to the class.
|
backslashes to the class.
|
||||||
|
|
||||||
|
|
|
@ -968,7 +968,7 @@ See the `org-export-latex.el' code for a complete conversion table."
|
||||||
(match-string 3))) "") t t)))))))
|
(match-string 3))) "") t t)))))))
|
||||||
'(;"^\\([^\n$]*?\\|^\\)\\(\\\\?\\$\\)\\([^\n$]*\\)$"
|
'(;"^\\([^\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&#%{}\"]+\\)"
|
"\\(.\\|^\\)\\(\\\\\\)\\([ \t\n]\\|[a-zA-Z&#%{}\"]+\\)"
|
||||||
"\\(.\\|^\\)\\(&\\)"
|
"\\(.\\|^\\)\\(&\\)"
|
||||||
"\\(.\\|^\\)\\(#\\)"
|
"\\(.\\|^\\)\\(#\\)"
|
||||||
|
@ -1007,10 +1007,12 @@ Convert CHAR depending on STRING-BEFORE and STRING-AFTER."
|
||||||
(or (eq subsup t)
|
(or (eq subsup t)
|
||||||
(and (equal subsup '{}) (eq (string-to-char string-after) ?\{)))
|
(and (equal subsup '{}) (eq (string-to-char string-after) ?\{)))
|
||||||
(string-match "[({]?\\([^)}]+\\)[)}]?" string-after))
|
(string-match "[({]?\\([^)}]+\\)[)}]?" string-after))
|
||||||
(format "%s$%s{%s}$" string-before char
|
(org-export-latex-protect-string
|
||||||
(if (> (match-end 1) (1+ (match-beginning 1)))
|
(format "%s$%s{%s}$" string-before char
|
||||||
(concat "\\mathrm{" (match-string 1 string-after) "}")
|
(if (and (> (match-end 1) (1+ (match-beginning 1)))
|
||||||
(match-string 1 string-after))))
|
(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 "$"))
|
((eq subsup t) (concat string-before "$" char string-after "$"))
|
||||||
(t (org-export-latex-protect-string
|
(t (org-export-latex-protect-string
|
||||||
(concat string-before "\\" char "{}" string-after)))))
|
(concat string-before "\\" char "{}" string-after)))))
|
||||||
|
|
Loading…
Reference in a new issue