[BUG] `org-todo` [C-c C-t] got error (args-out-of-range #<buffer Novel Books.org> 0 48016)

[Christopher M. Miles]

Here is the backtrace after I toggled debug-on-error:


#+begin_example
Debugger entered--Lisp error: (args-out-of-range #<buffer Novel Books.org> 0 
48016)
  replace-match("")
  (progn (goto-char (match-beginning 0)) (replace-match "") 
(insert-before-markers-and-inherit next) (if (org-invisible-p 
(line-beginning-position)) nil (org-fold-region (line-beginning-position) 
(line-end-position) nil)))
  (unwind-protect (progn (goto-char (match-beginning 0)) (replace-match "") 
(insert-before-markers-and-inherit next) (if (org-invisible-p 
(line-beginning-position)) nil (org-fold-region (line-beginning-position) 
(line-end-position) nil))) (setq org-fold-core--last-buffer-chars-modified-tick 
(buffer-chars-modified-tick)))
  (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn 
(goto-char (match-beginning 0)) (replace-match "") 
(insert-before-markers-and-inherit next) (if (org-invisible-p 
(line-beginning-position)) nil (org-fold-region (line-beginning-position) 
(line-end-position) nil))) (setq org-fold-core--last-buffer-chars-modified-tick 
(buffer-chars-modified-tick))))
  (let* ((match-data (match-data)) (startpos (copy-marker 
(line-beginning-position))) (force-log (and (equal arg '...) (prog1 t (setq arg 
nil)))) (logging (let ((saved-match-data ...)) (unwind-protect (progn ...) 
(set-match-data saved-match-data t)))) (org-log-done org-log-done) 
(org-log-repeat org-log-repeat) (org-todo-log-states org-todo-log-states) 
(org-inhibit-logging (if (equal arg 0) (progn (setq arg nil) 'note) 
org-inhibit-logging)) (this (match-string 1)) (hl-pos (match-beginning 0)) 
(head (org-get-todo-sequence-head this)) (ass (assoc head org-todo-kwd-alist)) 
(interpret (nth 1 ass)) (done-word (nth 3 ass)) (final-done-word (nth 4 ass)) 
(org-last-state (or this "")) (completion-ignore-case t) (member (member this 
org-todo-keywords-1)) (tail (cdr member)) (org-state (cond ((eq arg ...) (if 
this ... ...)) ((eq arg ...) (if ... nil ...)) (arg (cond ... ... ... ... ... 
... ... ...)) ((and org-todo-key-trigger org-use-fast-todo-selection) 
(org-fast-todo-selection this)) ((null member) (or head ...)) ((equal this 
final-done-word) nil) ((null tail) nil) ((memq interpret ...) (if ... ... ...)) 
(t (car tail)))) (org-state (or (run-hook-with-args-until-success 
'org-todo-get-default-hook org-state org-last-state) org-state)) (next (if 
(org-string-nw-p org-state) (concat " " org-state " ") " ")) (change-plist 
(list :type 'todo-state-change :from this :to org-state :position startpos)) 
dolog now-done-p) (if org-blocker-hook (progn (let (org-blocked-by-checkboxes 
block-reason) (setq org-last-todo-state-is-todo (not ...)) (if (save-excursion 
...) nil (setq block-reason ...) (if ... ... ... ...))))) (store-match-data 
match-data) (let ((org-fold-core--ignore-modifications t)) (unwind-protect 
(progn (goto-char (match-beginning 0)) (replace-match "") 
(insert-before-markers-and-inherit next) (if (org-invisible-p ...) nil 
(org-fold-region ... ... nil))) (setq 
org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick)))) 
(cond ((and org-state (equal this org-state)) (message "TODO state was already 
%s" (org-trim next))) ((not (pos-visible-in-window-p hl-pos)) (message "TODO 
state changed to %s" (org-trim next)))) (if head nil (progn (setq head 
(org-get-todo-sequence-head org-state)) (setq ass (assoc head 
org-todo-kwd-alist)) (setq interpret (nth 1 ass)) (setq done-word (nth 3 ass)) 
(setq final-done-word (nth 4 ass)))) (if (memq arg '(nextset previousset)) 
(progn (message "Keyword-Set %d/%d: %s" (- (length org-todo-sets) -1 (length 
...)) (length org-todo-sets) (mapconcat 'identity (assoc org-state 
org-todo-sets) " ")))) (setq org-last-todo-state-is-todo (not (member org-state 
org-done-keywords))) (setq now-done-p (and (member org-state org-done-keywords) 
(not (member this org-done-keywords)))) (and logging (org-local-logging 
logging)) (if (or (and (or org-todo-log-states org-log-done) (not (eq 
org-inhibit-logging t)) (not (memq arg ...))) force-log) (progn (setq dolog (or 
(if force-log ...) (nth 1 ...) (nth 2 ...))) (if (and (eq dolog ...) (eq 
org-inhibit-logging ...)) (progn (setq dolog ...))) (if (or (and ... ...) (and 
org-state ... ...)) (progn (org-add-planning-info nil nil ...))) (if (and 
now-done-p org-log-done) (progn (org-add-planning-info ... ...) (if ... ...))) 
(if (and org-state dolog) (progn (org-add-log-setup ... org-state this 
dolog))))) (org-todo-trigger-tag-changes org-state) (if org-auto-align-tags 
(progn (org-align-tags))) (if org-provide-todo-statistics (progn 
(org-update-parent-todo-statistics))) (if (and (boundp 
'org-clock-out-when-done) org-clock-out-when-done) (progn 
(org-clock-out-if-current))) (run-hooks 'org-after-todo-state-change-hook) (if 
(and arg (not (member org-state org-done-keywords))) (progn (setq head 
(org-get-todo-sequence-head org-state)))) (put-text-property 
(line-beginning-position) (line-end-position) 'org-todo-head head) (if 
now-done-p (progn (if (boundp 'org-agenda-headline-snapshot-before-repeat) 
(progn (let ... ...))) (org-auto-repeat-maybe org-state))) (if (and 
(outline-on-heading-p) (not (bolp)) (save-excursion (forward-line 0) 
(looking-at org-todo-line-regexp)) (< (point) (+ 2 (or ... ...)))) (progn 
(goto-char (or (match-end 2) (match-end 1))) (and (looking-at " ") (not 
(looking-at " *:")) (just-one-space)))) (if org-trigger-hook (progn 
(save-excursion (run-hook-with-args 'org-trigger-hook change-plist)))) (if 
commentp (progn (org-toggle-comment))))
  (catch 'exit (org-back-to-heading t) (if (org-in-commented-heading-p t) 
(progn (org-toggle-comment) (setq commentp t))) (if (looking-at 
org-outline-regexp) (progn (goto-char (1- (match-end 0))))) (or (looking-at 
(concat " +" org-todo-regexp "\\( +\\|[ \11]*$\\)")) (looking-at "\\(?: *\\|[ 
\11]*$\\)")) (let* ((match-data (match-data)) (startpos (copy-marker 
(line-beginning-position))) (force-log (and (equal arg '...) (prog1 t (setq arg 
nil)))) (logging (let ((saved-match-data ...)) (unwind-protect (progn ...) 
(set-match-data saved-match-data t)))) (org-log-done org-log-done) 
(org-log-repeat org-log-repeat) (org-todo-log-states org-todo-log-states) 
(org-inhibit-logging (if (equal arg 0) (progn (setq arg nil) 'note) 
org-inhibit-logging)) (this (match-string 1)) (hl-pos (match-beginning 0)) 
(head (org-get-todo-sequence-head this)) (ass (assoc head org-todo-kwd-alist)) 
(interpret (nth 1 ass)) (done-word (nth 3 ass)) (final-done-word (nth 4 ass)) 
(org-last-state (or this "")) (completion-ignore-case t) (member (member this 
org-todo-keywords-1)) (tail (cdr member)) (org-state (cond ((eq arg ...) (if 
this ... ...)) ((eq arg ...) (if ... nil ...)) (arg (cond ... ... ... ... ... 
... ... ...)) ((and org-todo-key-trigger org-use-fast-todo-selection) 
(org-fast-todo-selection this)) ((null member) (or head ...)) ((equal this 
final-done-word) nil) ((null tail) nil) ((memq interpret ...) (if ... ... ...)) 
(t (car tail)))) (org-state (or (run-hook-with-args-until-success 
'org-todo-get-default-hook org-state org-last-state) org-state)) (next (if 
(org-string-nw-p org-state) (concat " " org-state " ") " ")) (change-plist 
(list :type 'todo-state-change :from this :to org-state :position startpos)) 
dolog now-done-p) (if org-blocker-hook (progn (let (org-blocked-by-checkboxes 
block-reason) (setq org-last-todo-state-is-todo (not ...)) (if (save-excursion 
...) nil (setq block-reason ...) (if ... ... ... ...))))) (store-match-data 
match-data) (let ((org-fold-core--ignore-modifications t)) (unwind-protect 
(progn (goto-char (match-beginning 0)) (replace-match "") 
(insert-before-markers-and-inherit next) (if (org-invisible-p ...) nil 
(org-fold-region ... ... nil))) (setq 
org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick)))) 
(cond ((and org-state (equal this org-state)) (message "TODO state was already 
%s" (org-trim next))) ((not (pos-visible-in-window-p hl-pos)) (message "TODO 
state changed to %s" (org-trim next)))) (if head nil (progn (setq head 
(org-get-todo-sequence-head org-state)) (setq ass (assoc head 
org-todo-kwd-alist)) (setq interpret (nth 1 ass)) (setq done-word (nth 3 ass)) 
(setq final-done-word (nth 4 ass)))) (if (memq arg '(nextset previousset)) 
(progn (message "Keyword-Set %d/%d: %s" (- (length org-todo-sets) -1 (length 
...)) (length org-todo-sets) (mapconcat 'identity (assoc org-state 
org-todo-sets) " ")))) (setq org-last-todo-state-is-todo (not (member org-state 
org-done-keywords))) (setq now-done-p (and (member org-state org-done-keywords) 
(not (member this org-done-keywords)))) (and logging (org-local-logging 
logging)) (if (or (and (or org-todo-log-states org-log-done) (not (eq 
org-inhibit-logging t)) (not (memq arg ...))) force-log) (progn (setq dolog (or 
(if force-log ...) (nth 1 ...) (nth 2 ...))) (if (and (eq dolog ...) (eq 
org-inhibit-logging ...)) (progn (setq dolog ...))) (if (or (and ... ...) (and 
org-state ... ...)) (progn (org-add-planning-info nil nil ...))) (if (and 
now-done-p org-log-done) (progn (org-add-planning-info ... ...) (if ... ...))) 
(if (and org-state dolog) (progn (org-add-log-setup ... org-state this 
dolog))))) (org-todo-trigger-tag-changes org-state) (if org-auto-align-tags 
(progn (org-align-tags))) (if org-provide-todo-statistics (progn 
(org-update-parent-todo-statistics))) (if (and (boundp 
'org-clock-out-when-done) org-clock-out-when-done) (progn 
(org-clock-out-if-current))) (run-hooks 'org-after-todo-state-change-hook) (if 
(and arg (not (member org-state org-done-keywords))) (progn (setq head 
(org-get-todo-sequence-head org-state)))) (put-text-property 
(line-beginning-position) (line-end-position) 'org-todo-head head) (if 
now-done-p (progn (if (boundp 'org-agenda-headline-snapshot-before-repeat) 
(progn (let ... ...))) (org-auto-repeat-maybe org-state))) (if (and 
(outline-on-heading-p) (not (bolp)) (save-excursion (forward-line 0) 
(looking-at org-todo-line-regexp)) (< (point) (+ 2 (or ... ...)))) (progn 
(goto-char (or (match-end 2) (match-end 1))) (and (looking-at " ") (not 
(looking-at " *:")) (just-one-space)))) (if org-trigger-hook (progn 
(save-excursion (run-hook-with-args 'org-trigger-hook change-plist)))) (if 
commentp (progn (org-toggle-comment)))))
  (save-excursion (catch 'exit (org-back-to-heading t) (if 
(org-in-commented-heading-p t) (progn (org-toggle-comment) (setq commentp t))) 
(if (looking-at org-outline-regexp) (progn (goto-char (1- (match-end 0))))) (or 
(looking-at (concat " +" org-todo-regexp "\\( +\\|[ \11]*$\\)")) (looking-at 
"\\(?: *\\|[ \11]*$\\)")) (let* ((match-data (match-data)) (startpos 
(copy-marker (line-beginning-position))) (force-log (and (equal arg '...) 
(prog1 t (setq arg nil)))) (logging (let ((saved-match-data ...)) 
(unwind-protect (progn ...) (set-match-data saved-match-data t)))) 
(org-log-done org-log-done) (org-log-repeat org-log-repeat) 
(org-todo-log-states org-todo-log-states) (org-inhibit-logging (if (equal arg 
0) (progn (setq arg nil) 'note) org-inhibit-logging)) (this (match-string 1)) 
(hl-pos (match-beginning 0)) (head (org-get-todo-sequence-head this)) (ass 
(assoc head org-todo-kwd-alist)) (interpret (nth 1 ass)) (done-word (nth 3 
ass)) (final-done-word (nth 4 ass)) (org-last-state (or this "")) 
(completion-ignore-case t) (member (member this org-todo-keywords-1)) (tail 
(cdr member)) (org-state (cond ((eq arg ...) (if this ... ...)) ((eq arg ...) 
(if ... nil ...)) (arg (cond ... ... ... ... ... ... ... ...)) ((and 
org-todo-key-trigger org-use-fast-todo-selection) (org-fast-todo-selection 
this)) ((null member) (or head ...)) ((equal this final-done-word) nil) ((null 
tail) nil) ((memq interpret ...) (if ... ... ...)) (t (car tail)))) (org-state 
(or (run-hook-with-args-until-success 'org-todo-get-default-hook org-state 
org-last-state) org-state)) (next (if (org-string-nw-p org-state) (concat " " 
org-state " ") " ")) (change-plist (list :type 'todo-state-change :from this 
:to org-state :position startpos)) dolog now-done-p) (if org-blocker-hook 
(progn (let (org-blocked-by-checkboxes block-reason) (setq 
org-last-todo-state-is-todo (not ...)) (if (save-excursion ...) nil (setq 
block-reason ...) (if ... ... ... ...))))) (store-match-data match-data) (let 
((org-fold-core--ignore-modifications t)) (unwind-protect (progn (goto-char 
(match-beginning 0)) (replace-match "") (insert-before-markers-and-inherit 
next) (if (org-invisible-p ...) nil (org-fold-region ... ... nil))) (setq 
org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick)))) 
(cond ((and org-state (equal this org-state)) (message "TODO state was already 
%s" (org-trim next))) ((not (pos-visible-in-window-p hl-pos)) (message "TODO 
state changed to %s" (org-trim next)))) (if head nil (progn (setq head 
(org-get-todo-sequence-head org-state)) (setq ass (assoc head 
org-todo-kwd-alist)) (setq interpret (nth 1 ass)) (setq done-word (nth 3 ass)) 
(setq final-done-word (nth 4 ass)))) (if (memq arg '(nextset previousset)) 
(progn (message "Keyword-Set %d/%d: %s" (- (length org-todo-sets) -1 (length 
...)) (length org-todo-sets) (mapconcat 'identity (assoc org-state 
org-todo-sets) " ")))) (setq org-last-todo-state-is-todo (not (member org-state 
org-done-keywords))) (setq now-done-p (and (member org-state org-done-keywords) 
(not (member this org-done-keywords)))) (and logging (org-local-logging 
logging)) (if (or (and (or org-todo-log-states org-log-done) (not (eq 
org-inhibit-logging t)) (not (memq arg ...))) force-log) (progn (setq dolog (or 
(if force-log ...) (nth 1 ...) (nth 2 ...))) (if (and (eq dolog ...) (eq 
org-inhibit-logging ...)) (progn (setq dolog ...))) (if (or (and ... ...) (and 
org-state ... ...)) (progn (org-add-planning-info nil nil ...))) (if (and 
now-done-p org-log-done) (progn (org-add-planning-info ... ...) (if ... ...))) 
(if (and org-state dolog) (progn (org-add-log-setup ... org-state this 
dolog))))) (org-todo-trigger-tag-changes org-state) (if org-auto-align-tags 
(progn (org-align-tags))) (if org-provide-todo-statistics (progn 
(org-update-parent-todo-statistics))) (if (and (boundp 
'org-clock-out-when-done) org-clock-out-when-done) (progn 
(org-clock-out-if-current))) (run-hooks 'org-after-todo-state-change-hook) (if 
(and arg (not (member org-state org-done-keywords))) (progn (setq head 
(org-get-todo-sequence-head org-state)))) (put-text-property 
(line-beginning-position) (line-end-position) 'org-todo-head head) (if 
now-done-p (progn (if (boundp 'org-agenda-headline-snapshot-before-repeat) 
(progn (let ... ...))) (org-auto-repeat-maybe org-state))) (if (and 
(outline-on-heading-p) (not (bolp)) (save-excursion (forward-line 0) 
(looking-at org-todo-line-regexp)) (< (point) (+ 2 (or ... ...)))) (progn 
(goto-char (or (match-end 2) (match-end 1))) (and (looking-at " ") (not 
(looking-at " *:")) (just-one-space)))) (if org-trigger-hook (progn 
(save-excursion (run-hook-with-args 'org-trigger-hook change-plist)))) (if 
commentp (progn (org-toggle-comment))))))
  (let ((org-blocker-hook org-blocker-hook) commentp case-fold-search) (if 
(equal arg '(64)) (progn (progn (setq arg nil) (setq org-blocker-hook nil)))) 
(if (and org-blocker-hook (or org-inhibit-blocking (org-entry-get nil 
"NOBLOCKING"))) (progn (setq org-blocker-hook nil))) (save-excursion (catch 
'exit (org-back-to-heading t) (if (org-in-commented-heading-p t) (progn 
(org-toggle-comment) (setq commentp t))) (if (looking-at org-outline-regexp) 
(progn (goto-char (1- (match-end 0))))) (or (looking-at (concat " +" 
org-todo-regexp "\\( +\\|[ \11]*$\\)")) (looking-at "\\(?: *\\|[ \11]*$\\)")) 
(let* ((match-data (match-data)) (startpos (copy-marker 
(line-beginning-position))) (force-log (and (equal arg ...) (prog1 t ...))) 
(logging (let (...) (unwind-protect ... ...))) (org-log-done org-log-done) 
(org-log-repeat org-log-repeat) (org-todo-log-states org-todo-log-states) 
(org-inhibit-logging (if (equal arg 0) (progn ... ...) org-inhibit-logging)) 
(this (match-string 1)) (hl-pos (match-beginning 0)) (head 
(org-get-todo-sequence-head this)) (ass (assoc head org-todo-kwd-alist)) 
(interpret (nth 1 ass)) (done-word (nth 3 ass)) (final-done-word (nth 4 ass)) 
(org-last-state (or this "")) (completion-ignore-case t) (member (member this 
org-todo-keywords-1)) (tail (cdr member)) (org-state (cond (... ...) (... ...) 
(arg ...) (... ...) (... ...) (... nil) (... nil) (... ...) (t ...))) 
(org-state (or (run-hook-with-args-until-success ... org-state org-last-state) 
org-state)) (next (if (org-string-nw-p org-state) (concat " " org-state " ") " 
")) (change-plist (list :type 'todo-state-change :from this :to org-state 
:position startpos)) dolog now-done-p) (if org-blocker-hook (progn (let 
(org-blocked-by-checkboxes block-reason) (setq org-last-todo-state-is-todo ...) 
(if ... nil ... ...)))) (store-match-data match-data) (let 
((org-fold-core--ignore-modifications t)) (unwind-protect (progn (goto-char 
...) (replace-match "") (insert-before-markers-and-inherit next) (if ... nil 
...)) (setq org-fold-core--last-buffer-chars-modified-tick 
(buffer-chars-modified-tick)))) (cond ((and org-state (equal this org-state)) 
(message "TODO state was already %s" (org-trim next))) ((not 
(pos-visible-in-window-p hl-pos)) (message "TODO state changed to %s" (org-trim 
next)))) (if head nil (progn (setq head (org-get-todo-sequence-head org-state)) 
(setq ass (assoc head org-todo-kwd-alist)) (setq interpret (nth 1 ass)) (setq 
done-word (nth 3 ass)) (setq final-done-word (nth 4 ass)))) (if (memq arg 
'(nextset previousset)) (progn (message "Keyword-Set %d/%d: %s" (- ... -1 ...) 
(length org-todo-sets) (mapconcat ... ... " ")))) (setq 
org-last-todo-state-is-todo (not (member org-state org-done-keywords))) (setq 
now-done-p (and (member org-state org-done-keywords) (not (member this 
org-done-keywords)))) (and logging (org-local-logging logging)) (if (or (and 
(or org-todo-log-states org-log-done) (not ...) (not ...)) force-log) (progn 
(setq dolog (or ... ... ...)) (if (and ... ...) (progn ...)) (if (or ... ...) 
(progn ...)) (if (and now-done-p org-log-done) (progn ... ...)) (if (and 
org-state dolog) (progn ...)))) (org-todo-trigger-tag-changes org-state) (if 
org-auto-align-tags (progn (org-align-tags))) (if org-provide-todo-statistics 
(progn (org-update-parent-todo-statistics))) (if (and (boundp 
'org-clock-out-when-done) org-clock-out-when-done) (progn 
(org-clock-out-if-current))) (run-hooks 'org-after-todo-state-change-hook) (if 
(and arg (not (member org-state org-done-keywords))) (progn (setq head 
(org-get-todo-sequence-head org-state)))) (put-text-property 
(line-beginning-position) (line-end-position) 'org-todo-head head) (if 
now-done-p (progn (if (boundp ...) (progn ...)) (org-auto-repeat-maybe 
org-state))) (if (and (outline-on-heading-p) (not (bolp)) (save-excursion 
(forward-line 0) (looking-at org-todo-line-regexp)) (< (point) (+ 2 ...))) 
(progn (goto-char (or ... ...)) (and (looking-at " ") (not ...) 
(just-one-space)))) (if org-trigger-hook (progn (save-excursion 
(run-hook-with-args ... change-plist)))) (if commentp (progn 
(org-toggle-comment)))))))
  (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (let 
((cl (if (eq org-loop-over-headlines-in-active-region 'start-level) 
'region-start-level 'region)) org-loop-over-headlines-in-active-region) 
(org-map-entries #'(lambda nil (org-todo arg)) nil cl (if (org-invisible-p) 
(progn (org-end-of-subtree nil t))))) (if (equal arg '(16)) (progn (setq arg 
'nextset))) (if (equal (prefix-numeric-value arg) -1) (progn 
(org-cancel-repeater) (setq arg nil))) (if (< (prefix-numeric-value arg) -1) 
(progn (user-error "Prefix argument %d not supported" arg))) (let 
((org-blocker-hook org-blocker-hook) commentp case-fold-search) (if (equal arg 
'(64)) (progn (progn (setq arg nil) (setq org-blocker-hook nil)))) (if (and 
org-blocker-hook (or org-inhibit-blocking (org-entry-get nil "NOBLOCKING"))) 
(progn (setq org-blocker-hook nil))) (save-excursion (catch 'exit 
(org-back-to-heading t) (if (org-in-commented-heading-p t) (progn 
(org-toggle-comment) (setq commentp t))) (if (looking-at org-outline-regexp) 
(progn (goto-char (1- ...)))) (or (looking-at (concat " +" org-todo-regexp "\\( 
+\\|[ \11]*$\\)")) (looking-at "\\(?: *\\|[ \11]*$\\)")) (let* ((match-data 
(match-data)) (startpos (copy-marker ...)) (force-log (and ... ...)) (logging 
(let ... ...)) (org-log-done org-log-done) (org-log-repeat org-log-repeat) 
(org-todo-log-states org-todo-log-states) (org-inhibit-logging (if ... ... 
org-inhibit-logging)) (this (match-string 1)) (hl-pos (match-beginning 0)) 
(head (org-get-todo-sequence-head this)) (ass (assoc head org-todo-kwd-alist)) 
(interpret (nth 1 ass)) (done-word (nth 3 ass)) (final-done-word (nth 4 ass)) 
(org-last-state (or this "")) (completion-ignore-case t) (member (member this 
org-todo-keywords-1)) (tail (cdr member)) (org-state (cond ... ... ... ... ... 
... ... ... ...)) (org-state (or ... org-state)) (next (if ... ... " ")) 
(change-plist (list :type ... :from this :to org-state :position startpos)) 
dolog now-done-p) (if org-blocker-hook (progn (let ... ... ...))) 
(store-match-data match-data) (let ((org-fold-core--ignore-modifications t)) 
(unwind-protect (progn ... ... ... ...) (setq 
org-fold-core--last-buffer-chars-modified-tick ...))) (cond ((and org-state 
...) (message "TODO state was already %s" ...)) ((not ...) (message "TODO state 
changed to %s" ...))) (if head nil (progn (setq head ...) (setq ass ...) (setq 
interpret ...) (setq done-word ...) (setq final-done-word ...))) (if (memq arg 
'...) (progn (message "Keyword-Set %d/%d: %s" ... ... ...))) (setq 
org-last-todo-state-is-todo (not (member org-state org-done-keywords))) (setq 
now-done-p (and (member org-state org-done-keywords) (not ...))) (and logging 
(org-local-logging logging)) (if (or (and ... ... ...) force-log) (progn (setq 
dolog ...) (if ... ...) (if ... ...) (if ... ...) (if ... ...))) 
(org-todo-trigger-tag-changes org-state) (if org-auto-align-tags (progn 
(org-align-tags))) (if org-provide-todo-statistics (progn 
(org-update-parent-todo-statistics))) (if (and (boundp ...) 
org-clock-out-when-done) (progn (org-clock-out-if-current))) (run-hooks 
'org-after-todo-state-change-hook) (if (and arg (not ...)) (progn (setq head 
...))) (put-text-property (line-beginning-position) (line-end-position) 
'org-todo-head head) (if now-done-p (progn (if ... ...) (org-auto-repeat-maybe 
org-state))) (if (and (outline-on-heading-p) (not ...) (save-excursion ... ...) 
(< ... ...)) (progn (goto-char ...) (and ... ... ...))) (if org-trigger-hook 
(progn (save-excursion ...))) (if commentp (progn (org-toggle-comment))))))))
  org-todo(nil)
  funcall-interactively(org-todo nil)
  call-interactively(org-todo nil nil)
  command-execute(org-todo)
#+end_example

Environments:
- macOS system
- Emacs version: GNU Emacs 30.0.50 (build 1, aarch64-apple-darwin23.0.0, NS 
appkit-2487.00 Version 14.0 (Build 23A344)) of 2023-09-26
- Org mode version: 9.7-pre, using source code branch "main" at commit 
"089fda121"

-- 

[ stardiviner ]
I try to make every word tell the meaning that I want to express without 
misunderstanding.

Blog: https://stardiviner.github.io/
IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner
GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

signature.asc
Description: PGP signature