ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2015-08-11 14:13:46 +02:00
parent a0c634ba3c 9bb87f49f7
commit 4a7b2c5072
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-list.el
View File

@ -2550,10 +2550,13 @@ With optional prefix argument ALL, do this for the whole buffer."
(when (eq (org-element-type element) 'item) (when (eq (org-element-type element) 'item)
(push (org-element-property :structure element) (push (org-element-property :structure element)
structs) structs)
(goto-char (org-element-property ;; Skip whole list since we have its
:end ;; structure anyway.
(org-element-property :parent (while (setq element (org-element-lineage
element)))))) element '(plain-list)))
(goto-char
(min (org-element-property :end element)
end))))))
;; Cache count for cookies applying to the same ;; Cache count for cookies applying to the same
;; area. Then return it. ;; area. Then return it.
(let ((count (let ((count