浏览代码

Delete `org-list-end-re' when `org-list-parse-list' is used for
export.

* org-list.el (org-list-parse-list): Delete `org-list-end-re' when
called with t argument.

Nicolas Goaziou 15 年之前
父节点
当前提交
82f0bd75e7
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      lisp/org-list.el

+ 4 - 1
lisp/org-list.el

@@ -1306,7 +1306,10 @@ sublevels as a list of strings."
 	  (save-restriction
 	    (narrow-to-region (point) nextitem)
 	    (push (org-list-parse-list) output)))))
-    (when delete (delete-region start end))
+    (when delete
+      (delete-region start end)
+      (when (looking-at (org-list-end-re))
+	(replace-match "")))
     (setq output (nreverse output))
     (push ltype output)))