From: Carsten Dominik <dominik@science.uva.nl>
Date: Mon, 26 Jan 2009 08:40:19 +0000 (+0000)
Subject: * org-export-latex.el (org-export-as-latex): Call
X-Git-Tag: emacs-pretest-23.0.90~193
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfe9b8c1f1acc2d8fb5629b0d156e3ec62ce0039;p=emacs.git

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