Procházet zdrojové kódy

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 před 14 roky
rodič
revize
4f85aa21c6
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  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))))))))