diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-01-19 15:37:16 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-01-19 15:37:16 +0100 |
commit | f67370f6ea4de47919636e14cd82406fbd809035 (patch) | |
tree | 662e6b4bd5b8f9a623bd5702894ade838d43a573 | |
parent | bd779fad624af01dbcb35b381dee10452dc945b1 (diff) | |
download | org-mode-f67370f6ea4de47919636e14cd82406fbd809035.tar.gz |
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.
-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 78cb2a6..4747648 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) |