From: Stephen Berman <stephen.berman@gmx.net>
Date: Tue, 20 May 2025 13:29:58 +0000 (+0200)
Subject: Fix todo-mode item insertion bug (bug#78506)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af7de5924b3afff5ec0776f375b2fcd3bcc4f09a;p=emacs.git

Fix todo-mode item insertion bug (bug#78506)

* lisp/calendar/todo-mode.el (todo-insert-item--next-param): Unset
transient keymap on completing default or copy item insertion
command, to ensure that the next Todo mode key is recognized.

(cherry picked from commit e0c6f3e765684a7f6d93702ad3ca4abe2b802579)
---

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index c18cb39ef9e..5b9bf2d8e16 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -5819,7 +5819,13 @@ keys already entered and those still available."
       (if (memq last '(default copy))
 	  (progn
 	    (setq params0 nil)
-            (funcall gen-and-exec))
+            (funcall gen-and-exec)
+	    ;; Since the item insertion command is now done, unset
+	    ;; transient keymap to ensure the next Todo mode key is
+	    ;; recognized (bug#78506).  (Only for "default" and "copy"
+	    ;; parameters: for others, `last' may not yet be the final
+	    ;; parameter, so the map must still be evaluated.)
+	    (setq map nil))
         (let ((key (funcall key-of last)))
 	  (funcall add-to-prompt key (make-symbol
                                       (concat (symbol-name last) ":GO!")))