procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/calendar/todo-mode.el (todo-insert-item--next-param):
Initially assign each key in todo-mode-map a function identifying
it as invalid for item insertion, thus preventing mistakenly
pressing a key from executing an unwanted different todo-mode
command; the actual item insertion keys are redefined when looping
over the item insertion parameters.
This commit is contained in:
Stephen Berman 2024-05-21 11:04:17 +02:00
parent d00eb1c902
commit 7f80070232
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/calendar/todo-mode.el
View file

@ -5794,7 +5794,24 @@ keys already entered and those still available."
(apply #'todo-insert-item--basic (nconc arg parlist)))))
;; Operate on a copy of the parameter list so the original is
;; not consumed, thus available for the next key typed.
(params0 params))
(params0 params)
(tm-keys (let (l)
(map-keymap (lambda (key _binding)
(push key l))
todo-mode-map)
l)))
;; Initially assign each key in todo-mode-map a function identifying
;; it as invalid for item insertion, thus preventing mistakenly
;; pressing a key from executing an unwanted different todo-mode
;; command (bug#70937); the actual item insertion keys are redefined
;; when looping over the item insertion parameters.
(dolist (k tm-keys)
(when (characterp k)
(define-key map (string k)
(lambda ()
(interactive)
(message (concat "`%s' is not a valid remaining item insertion key")
(string k))))))
(when last
(if (memq last '(default copy))
(progn