+org/dwim-at-point: cycle checkboxes (#63)

2017-05-17 22:46:04 +02:00 · 2017-05-17 22:46:04 +02:00 · 5a162e0dc9
commit 5a162e0dc9
parent b1d545dafe
1 changed files with 2 additions and 1 deletions
--- a/modules/lang/org/autoload/org.el
+++ b/modules/lang/org/autoload/org.el
@ -170,7 +170,8 @@ fragments, opening links, or refreshing images."
        (org-table-align)))

     ((org-element-property :checkbox (org-element-lineage context '(item) t))
-      (org-toggle-checkbox))
+      (let ((match (and (org-at-item-checkbox-p) (match-string 1))))
+        (org-toggle-checkbox (if (equal match "[ ]") '(16)))))

     ((and (eq type 'headline)
           (org-element-property :todo-type context))