فهرست منبع

LaTeX export: Fix export problems when exporting a region

Dan Griswold writes:

> Hi there,
>
> Well, I think this a bug.
>
> Given this org input file:
>
> ,----
> | * Things
> | ** A Heading
> |    - some
> |    - stuff
> |    - in
> |    - a
> |    - list
> | ** Another heading
> |    - another
> |    - list
> `----
>
> then if I select the level one heading (titled "Things")
> with C-c @, and export to LaTeX using C-c C-e l, I get this
> output:
>
> ,----
> | % Created 2009-07-29 Wed 20:24
> | \documentclass[12pt]{article}
> | \usepackage[utf8]{inputenc}
> | \usepackage[T1]{fontenc}
> | \usepackage{graphicx}
> | \usepackage{longtable}
> | \usepackage{hyperref}
> |
> |
> | \title{Things}
> | \author{Daniel M. Griswold}
> | \date{July 29, 2009}
> |
> | \begin{document}
> |
> | \maketitle
> |
> | ** A Heading
> | \begin{itemize}
> | \item some
> | \item stuff
> | \item in
> | \item a
> | \item list
> | \end{itemize}
> | ** Another heading
> | \begin{itemize}
> | \item another
> | \item list
> | \end{itemize}
> |
> | \end{document}
> `----
>
> Note that the top level headings ("A Heading" and "Another
> Heading") are not exported as \section, but with the
> asterisks they have in the org file:
>
> ,----
> | ** A Heading
> | \begin{itemize}
> |
> |   ... snip ...
> |
> | \end{itemize}
> | ** Another heading
> `----
>
> Exporting the whole file does what it's supposed to do:
> export the headlines as \section and \subsection.

This commit fixes the issue.
Carsten Dominik 15 سال پیش
والد
کامیت
8eba33958f
2فایلهای تغییر یافته به همراه6 افزوده شده و 4 حذف شده
  1. 3 0
      lisp/ChangeLog
  2. 3 4
      lisp/org-latex.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-08-05  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-latex.el (org-export-latex-first-lines): Fix bug with
+	finding the end of the first lines.
+
 	* org.el (org-create-formula-image): Remove the -E option for
 	dvipng.
 

+ 3 - 4
lisp/org-latex.el

@@ -961,10 +961,9 @@ If END is non-nil, it is the end of the region."
   (save-excursion
     (goto-char (or beg (point-min)))
     (let* ((pt (point))
-	   (end (or end
-		    (if (re-search-forward "^\\*+ " end t)
-			(goto-char (match-beginning 0))
-		      (goto-char (point-max))))))
+	   (end (if (re-search-forward "^\\*+ " end t)
+		    (goto-char (match-beginning 0))
+		  (goto-char end))))
       (prog1
 	  (org-export-latex-content
 	   (org-export-preprocess-string