tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix ae0f1c56a7

Browse source 
* lisp/org.el (org-toggle-item): Fix ae0f1c56a7.
This commit is contained in:
Nicolas Goaziou 2014-01-19 18:15:56 +01:00
parent 848d1926ec
commit 5f04b3815f
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/org.el
View file

@ -20680,10 +20680,14 @@ With a prefix argument ARG, change the region in a single item."
(replace-match bul t t)
(org-indent-line-to (+ start-ind (* delta bul-len)))
(when (or done todo)
(let ((struct (org-list-struct)))
(org-list-set-checkbox (point) struct (if done "[X]" "[ ]"))
(let* ((struct (org-list-struct))
(old (copy-tree struct)))
(org-list-set-checkbox (line-beginning-position)
struct
(if done "[X]" "[ ]"))
(org-list-write-struct struct
(org-list-parents-alist struct))))
(org-list-parents-alist struct)
old)))
;; Ensure all text down to END (or SECTION-END) belongs
;; to the newly created item.
(let ((section-end (save-excursion