Mercurial > emacs
changeset 101517:9f423e131117
* org-export-latex.el (org-export-as-latex): Call
`org-export-latex-first-lines' with OPT-PLIST as a parameter.
(org-export-latex-first-lines): New parameter OPT-PLIST.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Mon, 26 Jan 2009 08:40:19 +0000 |
| parents | e7f67dc08ae3 |
| children | 280a537a4f06 |
| files | lisp/org/org-export-latex.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/org/org-export-latex.el Mon Jan 26 08:39:48 2009 +0000 +++ b/lisp/org/org-export-latex.el Mon Jan 26 08:40:19 2009 +0000 @@ -434,7 +434,7 @@ (region-p nil) (t (plist-get opt-plist :skip-before-1st-heading)))) (text (plist-get opt-plist :text)) - (first-lines (if skip "" (org-export-latex-first-lines rbeg))) + (first-lines (if skip "" (org-export-latex-first-lines opt-plist rbeg))) (coding-system (and (boundp 'buffer-file-coding-system) buffer-file-coding-system)) (coding-system-for-write (or org-export-latex-coding-system @@ -771,7 +771,7 @@ (toc (format "\\setcounter{tocdepth}{%s}\n\\tableofcontents\n\\vspace*{1cm}\n" (plist-get opt-plist :headline-levels)))))))) -(defun org-export-latex-first-lines (&optional beg) +(defun org-export-latex-first-lines (opt-plist &optional beg) "Export the first lines before first headline. If BEG is non-nil, the is the beginning of he region." (save-excursion