Bläddra i källkod

Bug fix: `org-list-struct' would get the last item twice sometimes.

Nicolas Goaziou 14 år sedan
förälder
incheckning
668e5832c2
1 ändrade filer med 2 tillägg och 3 borttagningar
  1. 2 3
      lisp/org-list.el

+ 2 - 3
lisp/org-list.el

@@ -1147,9 +1147,8 @@ change is an outdent."
 					post-list)))
 		;; Is list is malformed? If some items are less
 		;; indented that top-item, add them anyhow.
-		(when (and (= (caar pre-list) 0) (org-at-item-p))
-		  (setq post-list (cons (org-list-struct-assoc-at-point)
-					post-list))
+		(when (and (= (caar pre-list) 0) (< (point) bottom))
+		  (beginning-of-line)
 		  (while (org-search-forward-unenclosed
 			  org-item-beginning-re bottom t)
 		    (setq post-list (cons (org-list-struct-assoc-at-point)