Browse Source

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.
Nicolas Goaziou 12 years ago
parent
commit
daf0275085
1 changed files with 7 additions and 3 deletions
  1. 7 3
      contrib/lisp/org-e-latex.el

+ 7 - 3
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