From f67370f6ea4de47919636e14cd82406fbd809035 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 19 Jan 2013 15:37:16 +0100 Subject: [PATCH] org-list: Fix bug when repairing checkbox with an ORDERED property * lisp/org-list.el (org-list-struct-fix-box): When a checkbox has to be resetted because of a non-nil ORDERED property value, make sure it had a checkbox already. --- lisp/org-list.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index 78cb2a621..474764816 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)