From daf0275085bf75ca83006317e0461c25da74c97a Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 17 Nov 2012 14:47:26 +0100 Subject: [PATCH] org-e-latex: Stuff label and caption within special blocks * contrib/lisp/org-e-latex.el (org-e-latex-special-block): Stuff label and caption within special blocks. --- contrib/lisp/org-e-latex.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el index 5635c6a89..41513a182 100644 --- a/contrib/lisp/org-e-latex.el +++ b/contrib/lisp/org-e-latex.el @@ -1973,9 +1973,13 @@ holding contextual information." CONTENTS holds the contents of the block. INFO is a plist holding contextual information." (let ((type (downcase (org-element-property :type special-block)))) - (org-e-latex--wrap-label - special-block - (format "\\begin{%s}\n%s\\end{%s}" type contents type)))) + (concat (format "\\begin{%s}\n" type) + ;; Insert any label or caption within the block + ;; (otherwise, a reference pointing to that element will + ;; count the section instead). + (org-e-latex--caption/label-string special-block info) + contents + (format "\\end{%s}" type)))) ;;;; Src Block