org-html: remove unneeded newline characters in list export
This commit is contained in:
parent
4fd61d8021
commit
3d34dd47dd
|
@ -2427,7 +2427,7 @@ the alist of previous items."
|
||||||
;; Ending for every item
|
;; Ending for every item
|
||||||
(org-close-li type)
|
(org-close-li type)
|
||||||
;; We're ending last item of the list: end list.
|
;; We're ending last item of the list: end list.
|
||||||
(when lastp (insert (format "\n</%sl>\n" type)))))
|
(when lastp (insert (format "</%sl>\n" type)))))
|
||||||
(funcall get-closings pos))
|
(funcall get-closings pos))
|
||||||
(cond
|
(cond
|
||||||
;; At an item: insert appropriate tags in export buffer.
|
;; At an item: insert appropriate tags in export buffer.
|
||||||
|
@ -2458,10 +2458,10 @@ the alist of previous items."
|
||||||
(insert (format "<%sl>\n" type)))
|
(insert (format "<%sl>\n" type)))
|
||||||
(insert (cond
|
(insert (cond
|
||||||
((equal type "d")
|
((equal type "d")
|
||||||
(format "<dt>%s</dt><dd>\n" desc-tag))
|
(format "<dt>%s</dt><dd>" desc-tag))
|
||||||
((and (equal type "o") counter)
|
((and (equal type "o") counter)
|
||||||
(format "<li value=\"%s\">\n" counter))
|
(format "<li value=\"%s\">" counter))
|
||||||
(t "<li>\n")))
|
(t "<li>")))
|
||||||
;; If line had a checkbox, some additional modification is required.
|
;; If line had a checkbox, some additional modification is required.
|
||||||
(when checkbox
|
(when checkbox
|
||||||
(setq body
|
(setq body
|
||||||
|
|
Loading…
Reference in New Issue