diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-07-26 17:46:24 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-07-26 17:46:55 +0200 |
commit | 4f85aa21c6f09ac82b6ba923eeadda511af19999 (patch) | |
tree | 8819632aabb93f51d6a24d73a5f82eb40d14fafa | |
parent | 5221317aa5dccc495700a79a7e7ef1de3eba4630 (diff) | |
download | org-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.el | 3 |
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)))))))) |