|
@@ -387,7 +387,8 @@ the value will be inserted right after the documentclass statement."
|
|
org-beamer-header-extra)
|
|
org-beamer-header-extra)
|
|
(goto-char (point-min))
|
|
(goto-char (point-min))
|
|
(cond
|
|
(cond
|
|
- ((re-search-forward "^[ \t]*BEAMER-HEADER-EXTRA-HERE[ \t]*$" nil t)
|
|
|
|
|
|
+ ((re-search-forward
|
|
|
|
+ "^[ \t]*\\[?BEAMER-HEADER-EXTRA\\(-HERE\\)?\\]?[ \t]*$" nil t)
|
|
(replace-match org-beamer-header-extra t t)
|
|
(replace-match org-beamer-header-extra t t)
|
|
(or (bolp) (insert "\n")))
|
|
(or (bolp) (insert "\n")))
|
|
((re-search-forward "^[ \t]*\\\\begin{document}" nil t)
|
|
((re-search-forward "^[ \t]*\\\\begin{document}" nil t)
|