Selaa lähdekoodia

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

This reverts commit bb0a1f190be361ce1d717d79d411b88406d74c33.
Carsten Dominik 14 vuotta sitten
vanhempi
commit
f0d58188ca
1 muutettua tiedostoa jossa 7 lisäystä ja 22 poistoa
  1. 7 22
      lisp/org-latex.el

+ 7 - 22
lisp/org-latex.el

@@ -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)