* 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.

diff --git a/lisp/org/org-export-latex.el b/lisp/org/org-export-latex.el
index a4e627498afc2f7ad5fa5ce55543761a93f809d1..a6958860276ddd9985fef06f5d0c92996001fa06 100644 (file)
--- 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