ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
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 ;; first item in the list. Without an argument, repair the
;; list. ;; list.
(let* ((begin (org-element-property :contents-begin context)) (let* ((begin (org-element-property :contents-begin context))
(beginm (move-marker (make-marker) begin))
(struct (org-element-property :structure context)) (struct (org-element-property :structure context))
(old-struct (copy-tree struct)) (old-struct (copy-tree struct))
(first-box (save-excursion (first-box (save-excursion
@ -20181,7 +20182,7 @@ This command does many different things, depending on context:
(org-list-write-struct (org-list-write-struct
struct (org-list-parents-alist struct) old-struct) struct (org-list-parents-alist struct) old-struct)
(org-update-checkbox-count-maybe) (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) ((property-drawer node-property)
(call-interactively 'org-property-action)) (call-interactively 'org-property-action))
((radio-target target) ((radio-target target)