Sfoglia il codice sorgente

Merge branch 'maint'

Nicolas Goaziou 9 anni fa
parent
commit
dcad3499af
1 ha cambiato i file con 3 aggiunte e 3 eliminazioni
  1. 3 3
      lisp/ox-html.el

+ 3 - 3
lisp/ox-html.el

@@ -1602,12 +1602,12 @@ INFO is a plist used as a communication channel.  When optional
 arguments CAPTION and LABEL are given, use them for caption and
 arguments CAPTION and LABEL are given, use them for caption and
 \"id\" attribute."
 \"id\" attribute."
   (let ((html5-fancy (org-html--html5-fancy-p info)))
   (let ((html5-fancy (org-html--html5-fancy-p info)))
-    (format (if html5-fancy "\n<figure%s>%s%s\n</figure>"
-	      "\n<div%s class=\"figure\">%s%s\n</div>")
+    (format (if html5-fancy "\n<figure%s>\n%s%s\n</figure>"
+	      "\n<div%s class=\"figure\">\n%s%s\n</div>")
 	    ;; ID.
 	    ;; ID.
 	    (if (org-string-nw-p label) (format " id=\"%s\"" label) "")
 	    (if (org-string-nw-p label) (format " id=\"%s\"" label) "")
 	    ;; Contents.
 	    ;; Contents.
-	    (format "\n<p>%s</p>" contents)
+	    (if html5-fancy contents (format "<p>%s</p>" contents))
 	    ;; Caption.
 	    ;; Caption.
 	    (if (not (org-string-nw-p caption)) ""
 	    (if (not (org-string-nw-p caption)) ""
 	      (format (if html5-fancy "\n<figcaption>%s</figcaption>"
 	      (format (if html5-fancy "\n<figcaption>%s</figcaption>"