diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-03-12 16:40:37 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-03-12 16:40:37 +0100 |
commit | df26ae8e69dd8a93fe74ff122e39c69b38a63973 (patch) | |
tree | ffc8e4ff7da16e37500786fc91585dbf6c2a7422 | |
parent | 70de130bba6302a46c94c37ed717953c8deea987 (diff) | |
download | org-mode-df26ae8e69dd8a93fe74ff122e39c69b38a63973.tar.gz |
Checkboxes should progress from intermediate state to checked
Thanks to Matt Lundin for pointing that out.
-rw-r--r-- | lisp/org-list.el | 4 | ||||
-rw-r--r-- | lisp/org.el | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index a092e2b..4b50910 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -2107,8 +2107,8 @@ in subtree, ignoring drawers." ((equal toggle-presence '(16)) "[-]") ((equal toggle-presence '(4)) (unless cbox "[ ]")) - ((equal "[ ]" cbox) "[X]") - (t "[ ]")))))) + ((equal "[X]" cbox) "[ ]") + (t "[X]")))))) ;; When an item is found within bounds, grab the full list at ;; point structure, then: 1. set checkbox of all its items ;; within bounds to ref-checkbox; 2. fix checkboxes of the whole diff --git a/lisp/org.el b/lisp/org.el index 717b7d1..96ad8ff 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17514,8 +17514,8 @@ This command does many different things, depending on context: (cond ((equal arg '(16)) "[-]") ((equal arg '(4)) nil) - ((equal "[ ]" cbox) "[X]") - (t "[ ]"))) + ((equal "[X]" cbox) "[ ]") + (t "[X]"))) (org-list-struct-fix-ind struct parents) (org-list-struct-fix-bul struct prevs) (setq block-item |