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生成。