mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-17 02:06:28 +00:00
Code Releases Activity

Checkboxes: Make C-u C-c C-c C-c set the box to "[-]"

Browse source 
Requested by Chris Randle.
This commit is contained in:
Carsten Dominik 2009-02-15 10:00:44 +01:00
parent 8b62ec56cf
commit ae5b0f5c44
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-02-15 Carsten Dominik <carsten.dominik@gmail.com>
* org-list.el (org-toggle-checkbox): Make double prefix set the
checkbox to "[-]".
* org.el (org-add-log-setup): Fix positioning when
`org-log-states-order-reversed' is nil.

6
lisp/org-list.el
View file

@ -251,6 +251,7 @@ Return t when things worked, nil when we are not in an item."
(defun org-toggle-checkbox (&optional toggle-presence)
"Toggle the checkbox in the current line.
With prefix arg TOGGLE-PRESENCE, add or remove checkboxes.
With double prefix, set checkbox to [-].
When there is an active region, toggle status or presence of the checkbox
in the first line, and make every item in the region have the same
status or presence, respectively.
@ -266,13 +267,14 @@ text below the heading."
(setq beg (point) end (save-excursion (outline-next-heading) (point))))
((org-at-item-checkbox-p)
(let ((pos (point)))
(if toggle-presence
(if (equal toggle-presence '(4))
(progn
(replace-match "")
(goto-char (match-beginning 0))
(just-one-space))
(replace-match
(cond ((member (match-string 0) '("[ ]" "[-]")) "[X]")
(cond ((equal toggle-presence '(16)) "[-]")
((member (match-string 0) '("[ ]" "[-]")) "[X]")
(t "[ ]"))
t t))
(goto-char pos))