0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-22 12:48:42 +00:00

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.
This commit is contained in:
Bastien Guerry 2013-04-04 15:26:34 +02:00
parent bd8ff1aade
commit 3ad43055bf

View file

@ -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)