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.
This commit is contained in:
Nicolas Goaziou 2011-07-26 17:46:24 +02:00
parent 5221317aa5
commit 4f85aa21c6
1 changed files with 2 additions and 1 deletions

View File

@ -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))))))))