forked from mirrors/org-mode
Amend Bastiens fix in 3bc997fe8f
This fix did create a new problem with exporting selected subtrees. I hope it works now.
This commit is contained in:
parent
d892aa9642
commit
317ea8bf9d
|
@ -1,5 +1,8 @@
|
||||||
2009-09-10 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-09-10 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org-latex.el (org-export-latex-first-lines): Fix problem with
|
||||||
|
LaTeX export of first line and selected subtree.
|
||||||
|
|
||||||
* org.el (org-shifttab): Interpret arg differently when using only
|
* org.el (org-shifttab): Interpret arg differently when using only
|
||||||
odd levels.
|
odd levels.
|
||||||
|
|
||||||
|
|
|
@ -1003,11 +1003,10 @@ If BEG is non-nil, it is the beginning of the region.
|
||||||
If END is non-nil, it is the end of the region."
|
If END is non-nil, it is the end of the region."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char (or beg (point-min)))
|
(goto-char (or beg (point-min)))
|
||||||
(let* ((pt (point)))
|
(let* ((pt (point))
|
||||||
(or end
|
(end (if (re-search-forward "^\\*+ " end t)
|
||||||
(and (re-search-forward "^\\*+ " end t)
|
(goto-char (match-beginning 0))
|
||||||
(setq end (match-beginning 0)))
|
(goto-char (or end (point-max))))))
|
||||||
(setq end (point-max)))
|
|
||||||
(prog1
|
(prog1
|
||||||
(org-export-latex-content
|
(org-export-latex-content
|
||||||
(org-export-preprocess-string
|
(org-export-preprocess-string
|
||||||
|
|
Loading…
Reference in New Issue