ソースを参照

ox-latex: Fix behaviour when headline sectionning command is a function

* lisp/ox-latex.el (org-latex-headline): When a function returns
  a sectionning command, only one placeholder should be required.

Thanks to Florian Beck for reporting this.
Nicolas Goaziou 12 年 前
コミット
ba38de197e
1 ファイル変更4 行追加4 行削除
  1. 4 4
      lisp/ox-latex.el

+ 4 - 4
lisp/ox-latex.el

@@ -1420,15 +1420,15 @@ holding contextual information."
 	 ;; Section formatting will set two placeholders: one for the
 	 ;; title and the other for the contents.
 	 (section-fmt
-	  (let ((sec (if (and (symbolp (nth 2 class-sectionning))
-			      (fboundp (nth 2 class-sectionning)))
+	  (let ((sec (if (functionp (nth 2 class-sectionning))
 			 (funcall (nth 2 class-sectionning) level numberedp)
 		       (nth (1+ level) class-sectionning))))
 	    (cond
 	     ;; No section available for that LEVEL.
 	     ((not sec) nil)
-	     ;; Section format directly returned by a function.
-	     ((stringp sec) sec)
+	     ;; Section format directly returned by a function.  Add
+	     ;; placeholder for contents.
+	     ((stringp sec) (concat sec "\n%s"))
 	     ;; (numbered-section . unnumbered-section)
 	     ((not (consp (cdr sec)))
 	      (concat (funcall (if numberedp #'car #'cdr) sec) "\n%s"))