mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-html: remove unneeded newline characters in list export

This commit is contained in:
Nicolas Goaziou 2011-02-08 20:54:58 +01:00
parent 4fd61d8021
commit 3d34dd47dd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-html.el
View File

@ -2427,7 +2427,7 @@ the alist of previous items."
;; Ending for every item
(org-close-li type)
;; 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))
(cond
;; At an item: insert appropriate tags in export buffer.
@ -2458,10 +2458,10 @@ the alist of previous items."
(insert (format "<%sl>\n" type)))
(insert (cond
((equal type "d")
(format "<dt>%s</dt><dd>\n" desc-tag))
(format "<dt>%s</dt><dd>" desc-tag))
((and (equal type "o") counter)
(format "<li value=\"%s\">\n" counter))
(t "<li>\n")))
(format "<li value=\"%s\">" counter))
(t "<li>")))
;; If line had a checkbox, some additional modification is required.
(when checkbox
(setq body