Answers:
最直接的方法是
M-%(query-replace)C-q C-j RET </li> C-q C-j <li> RET(C-q C-j插入带引号的换行符)!以替换所有情况或者查询替换,您可以使用多个光标:

还可以考虑使用以下内容:
(defun wrap-html-tag (tagName)
"Add a tag to beginning and ending of current word or text selection."
(interactive "sEnter tag name: ")
(let (p1 p2 inputText)
(if (use-region-p)
(progn
(setq p1 (region-beginning) )
(setq p2 (region-end) )
)
(let ((bds (bounds-of-thing-at-point 'symbol)))
(setq p1 (car bds) )
(setq p2 (cdr bds) ) ) )
(goto-char p2)
(insert "</" tagName ">")
(goto-char p1)
(insert "<" tagName ">")
))
要获得功能全面的解决方案,请将您的文本转换为组织模式列表,然后导出为HTML。给行加上'*',active org-mode和run 前缀org-html-export-to-html。
org-mode然后激活,然后导出为HTML),那很好,但是我认为责怪人们要“快而脏”是没有道理的HTML生成。