LaTeX export: Protect eqnarray* and similar environments.
Environment names ending in a star were not properly protected. Now they are.
This commit is contained in:
parent
0fb28c3405
commit
5f86fd7ae2
|
@ -1,5 +1,8 @@
|
|||
2009-04-29 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-latex.el (org-export-latex-preprocess): Also protect
|
||||
environments ending in a star.
|
||||
|
||||
* org-list.el (org-at-item-p): Fix regular expression.
|
||||
|
||||
2009-04-24 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
|
|
@ -1399,10 +1399,12 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
|
|||
|
||||
;; Preserve latex environments
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "^[ \t]*\\\\begin{\\([a-zA-Z]+\\)}" nil t)
|
||||
(while (re-search-forward "^[ \t]*\\\\begin{\\([a-zA-Z]+\\*?\\)}" nil t)
|
||||
(let* ((start (progn (beginning-of-line) (point)))
|
||||
(end (or (and (re-search-forward
|
||||
(concat "^[ \t]*\\\\end{" (match-string 1) "}") nil t)
|
||||
(concat "^[ \t]*\\\\end{"
|
||||
(regexp-quote (match-string 1))
|
||||
"}") nil t)
|
||||
(point-at-eol))
|
||||
(point-max))))
|
||||
(add-text-properties start end '(org-protected t))))
|
||||
|
|
Loading…
Reference in New Issue