tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

More small fixes on `C-u C-c C-c' and checkboxes. 

* org.el (org-ctrl-c-ctrl-c): Preserve symmetry when adding
and removing checkboxes with `C-u C-c C-c' on the first item
of a list.  Also, don't reinitialize checkboxes that are
already ticked.

Thanks to Nicolas Goaziou for these fixes.
This commit is contained in:
Bastien Guerry 2011-12-31 18:20:30 +01:00
parent b77df8397d
commit c535c276fe
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -18330,7 +18330,7 @@ This command does many different things, depending on context:
((equal arg '(4)) nil)
((equal "[X]" cbox) "[ ]")
(t "[X]"))))
(if firstp
(if (and firstp arg)
;; If at first item of sub-list, remove check-box from
;; every item at the same level.
(mapc
@ -18367,7 +18367,9 @@ This command does many different things, depending on context:
;; If at first item of sub-list, add check-box to every
;; item at the same level.
(mapc
(lambda (pos) (org-list-set-checkbox pos new-struct "[ ]"))
(lambda (pos)
(unless (org-list-get-checkbox pos new-struct)
(org-list-set-checkbox pos new-struct "[ ]")))
(org-list-get-all-items
(point-at-bol) new-struct (org-list-prevs-alist new-struct)))
(org-list-set-checkbox (point-at-bol) new-struct "[ ]")))