diff options
| author | Bastien Guerry <bzg@altern.org> | 2013-04-04 15:26:34 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-04-05 08:37:51 +0200 |
| commit | 3ad43055bf63b70fb0ba7c4f348c08bdb3cc412a (patch) | |
| tree | f87bbac034e35cf4b65c7b6fad341e25896c6417 | |
| parent | bd8ff1aade6c46f701f466035ef75ab8ee82c8fe (diff) | |
| download | org-mode-3ad43055bf63b70fb0ba7c4f348c08bdb3cc412a.tar.gz | |
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.
| -rw-r--r-- | lisp/org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index c291666..8affebf 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) |