From bfe9b8c1f1acc2d8fb5629b0d156e3ec62ce0039 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 26 Jan 2009 08:40:19 +0000 Subject: [PATCH] * 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. --- lisp/org/org-export-latex.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org/org-export-latex.el b/lisp/org/org-export-latex.el index a4e627498af..a6958860276 100644 --- a/lisp/org/org-export-latex.el +++ b/lisp/org/org-export-latex.el @@ -434,7 +434,7 @@ when PUB-DIR is set, use this as the publishing directory." (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 @@ OPT-PLIST is the options plist for current buffer." (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 -- 2.39.5