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:
Carsten Dominik 2009-04-29 21:36:28 +02:00
parent 0fb28c3405
commit 5f86fd7ae2
2 changed files with 7 additions and 2 deletions

View File

@ -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>

View File

@ -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))))