Browse Source

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 năm trước cách đây
mục cha
commit
82f0bd75e7
1 tập tin đã thay đổi với 4 bổ sung1 xóa
  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)))