From 3ad43055bf63b70fb0ba7c4f348c08bdb3cc412a Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 4 Apr 2013 15:26:34 +0200 Subject: [PATCH] org.el (org-ctrl-c-ctrl-c): Fix bug wrt updating checkboxes * org.el (org-ctrl-c-ctrl-c): Fix bug wrt updating checkboxes: the list beginning should be stored using a marker so that updating [%0] to [%50] will not throw an error. --- lisp/org.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index c291666c8..8affebf63 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -20158,6 +20158,7 @@ This command does many different things, depending on context: ;; first item in the list. Without an argument, repair the ;; list. (let* ((begin (org-element-property :contents-begin context)) + (beginm (move-marker (make-marker) begin)) (struct (org-element-property :structure context)) (old-struct (copy-tree struct)) (first-box (save-excursion @@ -20181,7 +20182,7 @@ This command does many different things, depending on context: (org-list-write-struct struct (org-list-parents-alist struct) old-struct) (org-update-checkbox-count-maybe) - (save-excursion (goto-char begin) (org-list-send-list 'maybe)))) + (save-excursion (goto-char beginm) (org-list-send-list 'maybe)))) ((property-drawer node-property) (call-interactively 'org-property-action)) ((radio-target target)