From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:303:e16b::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms8.migadu.com with LMTPS id aA7AGbLXSWXS9AAAauVa8A:P1 (envelope-from ) for ; Tue, 07 Nov 2023 07:22:42 +0100 Received: from aspmx1.migadu.com ([2001:41d0:303:e16b::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id aA7AGbLXSWXS9AAAauVa8A (envelope-from ) for ; Tue, 07 Nov 2023 07:22:42 +0100 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id EA1BC52AEF for ; Tue, 7 Nov 2023 07:22:41 +0100 (CET) Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20230601 header.b=nnipKTyr; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1699338162; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=xrtpJXehNhzR4W+WQXttnGZJZoirj5QlgmH2Ps6Kj90=; b=gTxY+bdmnroXOeIHzrQkI8ik3sgcpujfm60ONqjF2mPtRKMrrgUGoIPvKqpwFKk0b1aiQf zBiYXFkA9PuzKtJ+7rDnCFaLbds13iymDKPeftGQZJzuCX9VvqUNM8jABfERUmqoqEnHMH HnTVZqjZpUgxShmZkdng0DwHZSHaA2ZezJMC6h+NdQMxMfzkjZqMoCQo0pB6Ooj+myHu3M VEVREpQm6bMESDQ5RHfF1BCMs0H2qSS5x7pcAIG8PCovFizAqh/oH3aGtpzHOcs8+5re1M 9m+NZehqR+fgqFFo5j8jq5DJDdujhFrvvJqj+s7ZwEn76pCgoXAuXmUoQcISgw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20230601 header.b=nnipKTyr; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com ARC-Seal: i=1; s=key1; d=yhetil.org; t=1699338162; a=rsa-sha256; cv=none; b=Yob5k/Vf9/4oiArFRoR3dosEGy1CgGRfn9sCnreEBTpzeTCcsuhuKXTcY0yWROtQFJ79YZ mTq+hb7EUwhH7tNOdeGzOeZTYJF3VF6HZ1/AZ2t/4vvlNorISwl8f/n9yuPoMX/pq7+msO Hn0uN+skxFqCQD+XjTfJ9blgrxKrexRWLeCF9qdwJAItvYxo2sts4HhQRq0h4K+oVcOlmu vDsL8ITSX5G12UpSPe71fW+cLWSalpgTb6nnHjgt0WEtGRGtDkfDN90Qi4ravuLsAxMkU/ 4kjVxhxpkxasLn+QhceQohuFN4RSyK0EQco/vUC5DX9cqbPkh24+1VSwBWgF5w== Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1r0FSz-0005rd-Uz; Tue, 07 Nov 2023 01:21:38 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1r0FSw-0005r7-AF for emacs-orgmode@gnu.org; Tue, 07 Nov 2023 01:21:34 -0500 Received: from mail-pl1-x635.google.com ([2607:f8b0:4864:20::635]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1r0FSt-0001Ie-3Z for emacs-orgmode@gnu.org; Tue, 07 Nov 2023 01:21:34 -0500 Received: by mail-pl1-x635.google.com with SMTP id d9443c01a7336-1cc0d0a0355so39898425ad.3 for ; Mon, 06 Nov 2023 22:21:28 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1699338087; x=1699942887; darn=gnu.org; h=mime-version:reply-to:date:subject:to:from:user-agent:message-id :from:to:cc:subject:date:message-id:reply-to; bh=xrtpJXehNhzR4W+WQXttnGZJZoirj5QlgmH2Ps6Kj90=; b=nnipKTyrA0P+4gIRSzzfqrvtm6W3WDS5PEQMYfIv2Rs5NWHq9rvMhVZrh4si4oNBVe SPsJF53cglKA3JVbKyJu9D16RGE4ppx6aJTBszVFqv/4MYItzSh1L1NPXxJvlBpZ92bL 76wsswbvH0vQ2tvuwycyNzV7/u9uWeh7gZbNZvI6R5uId9mIx+02B49LLX8L4EJvH9VG RSZWsVW0nba6X1e9Nv0SI0FfT3ghJzQGEEf8R/jjLsPm8o9/cpFmHiFPBwNLJHOva6/9 P5sHxh1CZr8HsHb6aSM6ohBYQRt69pcw4292RDgseo+AAakT3GkGGbju6LQ5x++eTAZk RjLw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1699338087; x=1699942887; h=mime-version:reply-to:date:subject:to:from:user-agent:message-id :x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=xrtpJXehNhzR4W+WQXttnGZJZoirj5QlgmH2Ps6Kj90=; b=p4qu9ehQQv0OhhbffvsEYJRCHOwe/N7cOY1wo9u9/x+p7aTns8JRV8pKQQ4gaeQNhv A8EA9AvLcId2cYgXQFzns3WrGah7qpt3BlYtbEXxIDnMAJDMQKh582sidvaA+6OLEtPI rw0EREKM+7zeyxKlZf1O9h1LGOKqlWXY9XcVmPMd6ZZj3PU/MasIV9gCnnG7s/TZDXCX LSkovfjMF7p1M0/zyOY3kqIAZM7U/n3YicdK0ntdYMl/vxnYmq7IoCrmI2k1RH8+a1WZ RL69PkkQNmIYexxBHcHS2++zVDwfC2zZn2oHocWCdTfbsbX1ELrYB0sUPhvNstB1fnVu 6vXg== X-Gm-Message-State: AOJu0Yzk6kYgpwTONXPZIOf9BQzf8dLNZBR3bEqk2+tl77+pS/HvzF/q 58zPqCFeSHs1qpO8rPJL8d2T0wT0TvkJ3Uw= X-Google-Smtp-Source: AGHT+IGBuGWOfmrpSb06A9X0fjwawLKoR4A16MUwCXNYeo0dj2Xpll1+8eN0FDhJPTUKxqAAD8yiiQ== X-Received: by 2002:a17:902:e1cd:b0:1c7:49dd:2df with SMTP id t13-20020a170902e1cd00b001c749dd02dfmr21343147pla.32.1699338086135; Mon, 06 Nov 2023 22:21:26 -0800 (PST) Received: from Mac-mini.local ([39.171.198.189]) by smtp.gmail.com with ESMTPSA id 21-20020a170902c15500b001b8b2b95068sm6788995plj.204.2023.11.06.22.21.23 for (version=TLS1_3 cipher=TLS_CHACHA20_POLY1305_SHA256 bits=256/256); Mon, 06 Nov 2023 22:21:25 -0800 (PST) Message-ID: <6549d765.170a0220.d5fad.fa50@mx.google.com> X-Google-Original-Message-ID: Received: by Mac-mini.local (Postfix, from userid 501) id 46CBAAD15751; Tue, 7 Nov 2023 14:21:17 +0800 (CST) User-agent: mu4e 1.11.6; emacs 30.0.50 From: "Christopher M. Miles" To: Org mode (mailing-list) Subject: [BUG] `org-todo` [C-c C-t] got error (args-out-of-range # 0 48016) Date: Tue, 07 Nov 2023 14:17:46 +0800 MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" Received-SPF: pass client-ip=2607:f8b0:4864:20::635; envelope-from=numbchild@gmail.com; helo=mail-pl1-x635.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, MSGID_FROM_MTA_HEADER=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: numbchild@gmail.com Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US X-Migadu-Spam-Score: -11.02 X-Spam-Score: -11.02 X-Migadu-Queue-Id: EA1BC52AEF X-Migadu-Scanner: mx13.migadu.com X-TUID: C87UYuNPM+1K --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Here is the backtrace after I toggled debug-on-error: #+begin_example Debugger entered--Lisp error: (args-out-of-range # = 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)) n= il (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-beginn= ing-position)) nil (org-fold-region (line-beginning-position) (line-end-pos= ition) nil))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-= chars-modified-tick))) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (go= to-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-p= osition))) (force-log (and (equal arg '...) (prog1 t (setq arg nil)))) (log= ging (let ((saved-match-data ...)) (unwind-protect (progn ...) (set-match-d= ata 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 t= his "")) (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-sel= ection this)) ((null member) (or head ...)) ((equal this final-done-word) n= il) ((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-s= tate) (concat " " org-state " ") " ")) (change-plist (list :type 'todo-stat= e-change :from this :to org-state :position startpos)) dolog now-done-p) (i= f org-blocker-hook (progn (let (org-blocked-by-checkboxes block-reason) (se= tq org-last-todo-state-is-todo (not ...)) (if (save-excursion ...) nil (set= q 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-in= herit 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 or= g-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 (len= gth ...)) (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-keyw= ords) (not (member this org-done-keywords)))) (and logging (org-local-loggi= ng logging)) (if (or (and (or org-todo-log-states org-log-done) (not (eq or= g-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 t= his 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 'o= rg-after-todo-state-change-hook) (if (and arg (not (member org-state org-do= ne-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 (l= ooking-at " *:")) (just-one-space)))) (if org-trigger-hook (progn (save-exc= ursion (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-beginnin= g-position))) (force-log (and (equal arg '...) (prog1 t (setq arg nil)))) (= logging (let ((saved-match-data ...)) (unwind-protect (progn ...) (set-matc= h-data saved-match-data t)))) (org-log-done org-log-done) (org-log-repeat o= rg-log-repeat) (org-todo-log-states org-todo-log-states) (org-inhibit-loggi= ng (if (equal arg 0) (progn (setq arg nil) 'note) org-inhibit-logging)) (th= is (match-string 1)) (hl-pos (match-beginning 0)) (head (org-get-todo-seque= nce-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 (o= r this "")) (completion-ignore-case t) (member (member this org-todo-keywor= ds-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 ta= il)))) (org-state (or (run-hook-with-args-until-success 'org-todo-get-defau= lt-hook org-state org-last-state) org-state)) (next (if (org-string-nw-p or= g-state) (concat " " org-state " ") " ")) (change-plist (list :type 'todo-s= tate-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-dat= a) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (g= oto-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-modifi= ed-tick)))) (cond ((and org-state (equal this org-state)) (message "TODO st= ate 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 (pro= gn (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 a= ss)) (setq final-done-word (nth 4 ass)))) (if (memq arg '(nextset previouss= et)) (progn (message "Keyword-Set %d/%d: %s" (- (length org-todo-sets) -1 (= length ...)) (length org-todo-sets) (mapconcat 'identity (assoc org-state o= rg-todo-sets) " ")))) (setq org-last-todo-state-is-todo (not (member org-st= ate org-done-keywords))) (setq now-done-p (and (member org-state org-done-k= eywords) (not (member this org-done-keywords)))) (and logging (org-local-lo= gging 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 dolo= g (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 ...))) (i= f (and now-done-p org-log-done) (progn (org-add-planning-info ... ...) (if = ... ...))) (if (and org-state dolog) (progn (org-add-log-setup ... org-stat= e this dolog))))) (org-todo-trigger-tag-changes org-state) (if org-auto-ali= gn-tags (progn (org-align-tags))) (if org-provide-todo-statistics (progn (o= rg-update-parent-todo-statistics))) (if (and (boundp 'org-clock-out-when-do= ne) 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-to= do-head head) (if now-done-p (progn (if (boundp 'org-agenda-headline-snapsh= ot-before-repeat) (progn (let ... ...))) (org-auto-repeat-maybe org-state))= ) (if (and (outline-on-heading-p) (not (bolp)) (save-excursion (forward-lin= e 0) (looking-at org-todo-line-regexp)) (< (point) (+ 2 (or ... ...)))) (pr= ogn (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 commen= tp (progn (org-toggle-comment))))) (save-excursion (catch 'exit (org-back-to-heading t) (if (org-in-commente= d-heading-p t) (progn (org-toggle-comment) (setq commentp t))) (if (looking= -at org-outline-regexp) (progn (goto-char (1- (match-end 0))))) (or (lookin= g-at (concat " +" org-todo-regexp "\\( +\\|[ \11]*$\\)")) (looking-at "\\(?= : *\\|[ \11]*$\\)")) (let* ((match-data (match-data)) (startpos (copy-marke= r (line-beginning-position))) (force-log (and (equal arg '...) (prog1 t (se= tq arg nil)))) (logging (let ((saved-match-data ...)) (unwind-protect (prog= n ...) (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) (o= rg-inhibit-logging (if (equal arg 0) (progn (setq arg nil) 'note) org-inhib= it-logging)) (this (match-string 1)) (hl-pos (match-beginning 0)) (head (or= g-get-todo-sequence-head this)) (ass (assoc head org-todo-kwd-alist)) (inte= rpret (nth 1 ass)) (done-word (nth 3 ass)) (final-done-word (nth 4 ass)) (o= rg-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 'or= g-todo-get-default-hook org-state org-last-state) org-state)) (next (if (or= g-string-nw-p org-state) (concat " " org-state " ") " ")) (change-plist (li= st :type 'todo-state-change :from this :to org-state :position startpos)) d= olog now-done-p) (if org-blocker-hook (progn (let (org-blocked-by-checkboxe= s block-reason) (setq org-last-todo-state-is-todo (not ...)) (if (save-excu= rsion ...) nil (setq block-reason ...) (if ... ... ... ...))))) (store-matc= h-data match-data) (let ((org-fold-core--ignore-modifications t)) (unwind-p= rotect (progn (goto-char (match-beginning 0)) (replace-match "") (insert-be= fore-markers-and-inherit next) (if (org-invisible-p ...) nil (org-fold-regi= on ... ... nil))) (setq org-fold-core--last-buffer-chars-modified-tick (buf= fer-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 do= ne-word (nth 3 ass)) (setq final-done-word (nth 4 ass)))) (if (memq arg '(n= extset previousset)) (progn (message "Keyword-Set %d/%d: %s" (- (length org= -todo-sets) -1 (length ...)) (length org-todo-sets) (mapconcat 'identity (a= ssoc org-state org-todo-sets) " ")))) (setq org-last-todo-state-is-todo (no= t (member org-state org-done-keywords))) (setq now-done-p (and (member org-= state org-done-keywords) (not (member this org-done-keywords)))) (and loggi= ng (org-local-logging logging)) (if (or (and (or org-todo-log-states org-lo= g-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 n= il nil ...))) (if (and now-done-p org-log-done) (progn (org-add-planning-in= fo ... ...) (if ... ...))) (if (and org-state dolog) (progn (org-add-log-se= tup ... org-state this dolog))))) (org-todo-trigger-tag-changes org-state) = (if org-auto-align-tags (progn (org-align-tags))) (if org-provide-todo-stat= istics (progn (org-update-parent-todo-statistics))) (if (and (boundp 'org-c= lock-out-when-done) org-clock-out-when-done) (progn (org-clock-out-if-curre= nt))) (run-hooks 'org-after-todo-state-change-hook) (if (and arg (not (memb= er org-state org-done-keywords))) (progn (setq head (org-get-todo-sequence-= head org-state)))) (put-text-property (line-beginning-position) (line-end-p= osition) 'org-todo-head head) (if now-done-p (progn (if (boundp 'org-agenda= -headline-snapshot-before-repeat) (progn (let ... ...))) (org-auto-repeat-m= aybe org-state))) (if (and (outline-on-heading-p) (not (bolp)) (save-excurs= ion (forward-line 0) (looking-at org-todo-line-regexp)) (< (point) (+ 2 (or= ... ...)))) (progn (goto-char (or (match-end 2) (match-end 1))) (and (look= ing-at " ") (not (looking-at " *:")) (just-one-space)))) (if org-trigger-ho= ok (progn (save-excursion (run-hook-with-args 'org-trigger-hook change-plis= t)))) (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 "N= OBLOCKING"))) (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) (p= rogn (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 (...) (un= wind-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)) (as= s (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 "")) (comple= tion-ignore-case t) (member (member this org-todo-keywords-1)) (tail (cdr m= ember)) (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-stri= ng-nw-p org-state) (concat " " org-state " ") " ")) (change-plist (list :ty= pe 'todo-state-change :from this :to org-state :position startpos)) dolog n= ow-done-p) (if org-blocker-hook (progn (let (org-blocked-by-checkboxes bloc= k-reason) (setq org-last-todo-state-is-todo ...) (if ... nil ... ...)))) (s= tore-match-data match-data) (let ((org-fold-core--ignore-modifications t)) = (unwind-protect (progn (goto-char ...) (replace-match "") (insert-before-ma= rkers-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-sequenc= e-head org-state)) (setq ass (assoc head org-todo-kwd-alist)) (setq interpr= et (nth 1 ass)) (setq done-word (nth 3 ass)) (setq final-done-word (nth 4 a= ss)))) (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 (o= r (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-t= odo-statistics (progn (org-update-parent-todo-statistics))) (if (and (bound= p '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 (n= ot (member org-state org-done-keywords))) (progn (setq head (org-get-todo-s= equence-head org-state)))) (put-text-property (line-beginning-position) (li= ne-end-position) 'org-todo-head head) (if now-done-p (progn (if (boundp ...= ) (progn ...)) (org-auto-repeat-maybe org-state))) (if (and (outline-on-hea= ding-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) 'r= egion-start-level 'region)) org-loop-over-headlines-in-active-region) (org-= map-entries #'(lambda nil (org-todo arg)) nil cl (if (org-invisible-p) (pro= gn (org-end-of-subtree nil t))))) (if (equal arg '(16)) (progn (setq arg 'n= extset))) (if (equal (prefix-numeric-value arg) -1) (progn (org-cancel-repe= ater) (setq arg nil))) (if (< (prefix-numeric-value arg) -1) (progn (user-e= rror "Prefix argument %d not supported" arg))) (let ((org-blocker-hook org-= blocker-hook) commentp case-fold-search) (if (equal arg '(64)) (progn (prog= n (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 comment= p t))) (if (looking-at org-outline-regexp) (progn (goto-char (1- ...)))) (o= r (looking-at (concat " +" org-todo-regexp "\\( +\\|[ \11]*$\\)")) (looking= -at "\\(?: *\\|[ \11]*$\\)")) (let* ((match-data (match-data)) (startpos (c= opy-marker ...)) (force-log (and ... ...)) (logging (let ... ...)) (org-log= -done org-log-done) (org-log-repeat org-log-repeat) (org-todo-log-states or= g-todo-log-states) (org-inhibit-logging (if ... ... org-inhibit-logging)) (= this (match-string 1)) (hl-pos (match-beginning 0)) (head (org-get-todo-seq= uence-head this)) (ass (assoc head org-todo-kwd-alist)) (interpret (nth 1 a= ss)) (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-keyw= ords-1)) (tail (cdr member)) (org-state (cond ... ... ... ... ... ... ... .= .. ...)) (org-state (or ... org-state)) (next (if ... ... " ")) (change-pli= st (list :type ... :from this :to org-state :position startpos)) dolog now-= done-p) (if org-blocker-hook (progn (let ... ... ...))) (store-match-data m= atch-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 (prog= n (setq head ...) (setq ass ...) (setq interpret ...) (setq done-word ...) = (setq final-done-word ...))) (if (memq arg '...) (progn (message "Keyword-S= et %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-sta= tistics (progn (org-update-parent-todo-statistics))) (if (and (boundp ...) = org-clock-out-when-done) (progn (org-clock-out-if-current))) (run-hooks 'or= g-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-trigge= r-hook (progn (save-excursion ...))) (if commentp (progn (org-toggle-commen= t)))))))) org-todo(nil) funcall-interactively(org-todo nil) call-interactively(org-todo nil nil) command-execute(org-todo) #+end_example Environments: =2D macOS system =2D 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 =2D Org mode version: 9.7-pre, using source code branch "main" at commit "0= 89fda121" =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express without mi= sunderstanding. Blog: https://stardiviner.github.io/ IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAmVJ11kACgkQG13xyVro msNzjQf/a6/k37VOKu5HGKOrAcJB5rU1lV+SDKttVl9TMlygPeYOKDyyuN9nMQW3 hUVPl7MoRrC8wpO+qYh6iRGp3HzsA1TwhWmmy0UOq2AIoSgqt6LT0gjAmMnFWyJT Dtu+nECFOIxpsTbJuFip5pMeGn+1Kcho1sFgpNjSWs4R/LsUkqMRO1AT3XXztsLq WLVf3bLt1SXz46KKkdJwSj+dVuIRqtPRiSkOnQwg4/btVsrXedTgCbHs5BD3RC0n fjLSrclRpBCwpp3gTLEPiRbYJgfMetav++s8W/zvopSKEiZsXEF6dElEOdFcYNv9 SnPl4myVcRbUAC6Eyg24B6GxzDl+WQ== =6OJC -----END PGP SIGNATURE----- --=-=-=--