tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Nicolas Goaziou 2012-09-13 18:27:39 +02:00
parent a0e3e84edc
commit 7efd61249b
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/lisp/org-e-latex.el
View File

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