summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-12-31 17:41:23 +0100
committerBastien Guerry <bzg@altern.org>2011-12-31 17:41:23 +0100
commit4789bb5a79f004346c37e3a84d12f90ada24d277 (patch)
tree1d90c83fff35226e17c496e05b8d245789706fad
parent8c19c76d2e73dd7d59210534b1445c3cb3a938d3 (diff)
downloadorg-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.el19
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)