diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 872eeffbf..eef4f5a63 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2896,19 +2896,12 @@ the plist used as a communication channel." (org-export-read-attribute :attr_html paragraph))) (extra (or (cadr (assoc parent-type style)) ""))) (cond - ((and (eq (org-element-type parent) 'item) - (= (org-element-property :begin paragraph) - (org-element-property :contents-begin parent)) - (not (org-element-map (org-export-get-parent parent) 'item - (lambda (item) - (let ((contents (org-element-contents item))) - (and contents - (or (cdr contents) - (not (eq (org-element-type (car contents)) - 'paragraph)))))) - info 'first-match 'item))) - ;; Leading paragraph in a list item have no tags if every - ;; element of the containing list is only a single paragraph. + ((and (not (org-export-get-previous-element paragraph info)) + (let ((followers (org-export-get-next-element paragraph info 2))) + (and (not (cdr followers)) + (memq (org-element-type (car followers)) '(nil plain-list))))) + ;; First paragraph in an item has no tag if it is alone or + ;; followed, at most, by a sub-list. contents) ((org-html-standalone-image-p paragraph info) ;; Standalone image.