瀏覽代碼

org-e-latex: Ignore empty captions in lstlisting environments

* contrib/lisp/org-e-latex.el (org-e-latex-src-block): Ignore empty
  captions in lstlisting environments.
Nicolas Goaziou 12 年之前
父節點
當前提交
7efd61249b
共有 1 個文件被更改,包括 7 次插入6 次删除
  1. 7 6
      contrib/lisp/org-e-latex.el

+ 7 - 6
contrib/lisp/org-e-latex.el

@@ -2096,12 +2096,13 @@ contextual information."
       (let ((lst-lang
 	     (or (cadr (assq (intern lang) org-e-latex-listings-langs)) lang))
 	    (caption-str
-	     (let ((main (org-export-get-caption src-block))
-		   (secondary (org-export-get-caption src-block t)))
-	       (if (not secondary) (format "{%s}" (org-export-data main info))
-		 (format "{[%s]%s}"
-			 (org-export-data secondary info)
-			 (org-export-data main info))))))
+	     (when caption
+	       (let ((main (org-export-get-caption src-block))
+		     (secondary (org-export-get-caption src-block t)))
+		 (if (not secondary) (format "{%s}" (org-export-data main info))
+		   (format "{[%s]%s}"
+			   (org-export-data secondary info)
+			   (org-export-data main info)))))))
 	(concat
 	 ;; Options.
 	 (format "\\lstset{%s}\n"