summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-01-19 14:40:39 (GMT)
committer Nicolas Goaziou <n.goaziou@gmail.com>2013-01-19 14:40:39 (GMT)
commitc300a50402c0225a033214729e2a0f5c4013bdb5 (patch)
tree97cb68921ea0be27dce6a5fc5867ebf86f2cd401
parent780b4532270f38e6befe4cdbb24e817d5ee1fc28 (diff)
parentf67370f6ea4de47919636e14cd82406fbd809035 (diff)
downloadorg-mode-c300a50402c0225a033214729e2a0f5c4013bdb5.zip
org-mode-c300a50402c0225a033214729e2a0f5c4013bdb5.tar.gz
Merge branch 'maint'
-rw-r--r--lisp/org-list.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el
index a85f769..70e86e5 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -1802,7 +1802,9 @@ This function modifies STRUCT."
;; There are boxes checked after an unchecked one: fix that.
(when (member "[X]" after-unchecked)
(let ((index (- (length struct) (length after-unchecked))))
- (mapc (lambda (e) (org-list-set-checkbox e struct "[ ]"))
+ (mapc (lambda (e)
+ (when (org-list-get-checkbox e struct)
+ (org-list-set-checkbox e struct "[ ]")))
(nthcdr index all-items))
;; Verify once again the structure, without ORDERED.
(org-list-struct-fix-box struct parents prevs nil)