Browse Source

Merge branch 'maint'

Nicolas Goaziou 8 years ago
parent
commit
dcad3499af
1 changed files with 3 additions and 3 deletions
  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>"