diff options
author | Bastien Guerry <bzg@altern.org> | 2011-12-31 17:41:23 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-12-31 17:41:23 +0100 |
commit | 4789bb5a79f004346c37e3a84d12f90ada24d277 (patch) | |
tree | 1d90c83fff35226e17c496e05b8d245789706fad | |
parent | 8c19c76d2e73dd7d59210534b1445c3cb3a938d3 (diff) | |
download | org-mode-4789bb5a79f004346c37e3a84d12f90ada24d277.tar.gz |
Fix problem with `org-ctrl-c-ctrl-c' on the checkbox of the first item.
* org.el (org-ctrl-c-ctrl-c): Don't make `C-c C-c' special
when ticking the checkbox of the first item.
-rw-r--r-- | lisp/org.el | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/lisp/org.el b/lisp/org.el index 5397e26..3b69ed2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18390,19 +18390,12 @@ This command does many different things, depending on context: block-item) ;; Use a light version of `org-toggle-checkbox' to avoid ;; computing list structure twice. - (let ((new-box (cond - ((equal arg '(16)) "[-]") - ((equal arg '(4)) nil) - ((equal "[X]" cbox) "[ ]") - (t "[X]")))) - (if firstp - ;; If at first item of sub-list, remove check-box from - ;; every item at the same level. - (mapc - (lambda (pos) (org-list-set-checkbox pos struct new-box)) - (org-list-get-all-items - (point-at-bol) struct (org-list-prevs-alist struct))) - (org-list-set-checkbox (point-at-bol) struct new-box))) + (org-list-set-checkbox (point-at-bol) struct + (cond + ((equal arg '(16)) "[-]") + ((equal arg '(4)) nil) + ((equal "[X]" cbox) "[ ]") + (t "[X]"))) ;; Replicate `org-list-write-struct', while grabbing a return ;; value from `org-list-struct-fix-box'. (org-list-struct-fix-ind struct parents 2) |