summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-07-26 17:46:24 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-07-26 17:46:55 +0200
commit4f85aa21c6f09ac82b6ba923eeadda511af19999 (patch)
tree8819632aabb93f51d6a24d73a5f82eb40d14fafa
parent5221317aa5dccc495700a79a7e7ef1de3eba4630 (diff)
downloadorg-mode-4f85aa21c6f09ac82b6ba923eeadda511af19999.tar.gz
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.
-rw-r--r--lisp/org-list.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el
index 7c9ef01..2104c32 100644
--- a/lisp/org-list.el
+++ b/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))))))))