Преглед на файлове

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 преди 13 години
родител
ревизия
4f85aa21c6
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  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))))))))