diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-01-19 15:40:39 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-01-19 15:40:39 +0100 |
commit | c300a50402c0225a033214729e2a0f5c4013bdb5 (patch) | |
tree | 97cb68921ea0be27dce6a5fc5867ebf86f2cd401 | |
parent | 780b4532270f38e6befe4cdbb24e817d5ee1fc28 (diff) | |
parent | f67370f6ea4de47919636e14cd82406fbd809035 (diff) | |
download | org-mode-c300a50402c0225a033214729e2a0f5c4013bdb5.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-list.el | 4 |
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) |