From 7efd61249b9937d4a19477d53ef1bdb99932c73d Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 13 Sep 2012 18:27:39 +0200 Subject: [PATCH] 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. --- contrib/lisp/org-e-latex.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el index 92cd87fa1..458579c16 100644 --- a/contrib/lisp/org-e-latex.el +++ b/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"