[Emacs-diffs] emacs/lisp/org org-export-latex.el

[Carsten Dominik]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Carsten Dominik <cdominik>      09/01/26 08:40:19

Modified files:
        lisp/org       : org-export-latex.el 

Log message:
                * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-export-latex.el?cvsroot=emacs&r1=1.20&r2=1.21

Patches:
Index: org-export-latex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-export-latex.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- org-export-latex.el 26 Jan 2009 07:44:42 -0000      1.20
+++ org-export-latex.el 26 Jan 2009 08:40:19 -0000      1.21
@@ -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