Browse Source

org-list: fix a small error when guessing blank lines before items

* lisp/org-list.el: search blank lines down to the end of the item
  instead of stopping at the item, in order to possibly match such
  lines within the item.
Nicolas Goaziou 14 năm trước cách đây
mục cha
commit
4f85aa21c6
1 tập tin đã thay đổi với 2 bổ sung1 xóa
  1. 2 1
      lisp/org-list.el

+ 2 - 1
lisp/org-list.el

@@ -1197,7 +1197,8 @@ some heuristics to guess the result."
 	     ;; Are there blank lines inside the list so far?
 	     ((save-excursion
 		(goto-char (org-list-get-top-point struct))
-		(org-list-search-forward "^[ \t]*$" item t))
+		(org-list-search-forward
+		 "^[ \t]*$" (org-list-get-item-end-before-blank item struct) t))
 	      1)
 	     ;; Default choice: no blank line.
 	     (t 0))))))))