Revert "Bug: possible bug in latex export [7.01trans (release_6.36.735.g15ca.dirty)]"

This reverts commit bb0a1f190b.
This commit is contained in:
Carsten Dominik 2010-08-27 09:29:25 +02:00
parent 33f9d116ba
commit f0d58188ca
1 changed files with 7 additions and 22 deletions

View File

@ -952,28 +952,13 @@ Return a list reflecting the document structure."
(defun org-export-latex-parse-subcontent (level odd)
"Extract the subcontent of a section at LEVEL.
If ODD Is non-nil, assume subcontent only contains odd sections."
(let (nstars new-level)
;; In the search, we should not assume there will be exactly
;; LEVEL+1 stars in the next heading, as there may be more than
;; that number of stars. hence the regexp should be \\*{N,}
;; rather than just \\*{N} (i.e. no upper bound, but N is minimum
;; number of stars to expect.)
;; We then have to check how many stars were found, rather than
;; assuming there were exactly N.
(when (org-re-search-forward-unprotected
(concat "^\\(\\(?:\\*\\)\\{"
(number-to-string (+ (if odd 4 2) level))
",\\}\\) \\(.*\\)$")
nil t)
(setq nstars (1- (- (match-end 1) (match-beginning 1))))
(setq new-level (if odd
(/ (+ 3 nstars) 2);; not entirely sure why +3!
nstars)))
(if nstars
(org-export-latex-parse-global new-level odd)
nil) ; subcontent is nil
))
(if (not (org-re-search-forward-unprotected
(concat "^\\(\\(?:\\*\\)\\{"
(number-to-string (+ (if odd 4 2) level))
"\\}\\) \\(.*\\)$")
nil t))
nil ; subcontent is nil
(org-export-latex-parse-global (+ (if odd 2 1) level) odd)))
;;; Rendering functions:
(defun org-export-latex-global (content)