Fix todo-mode AOT test failures (bug#51308)
This commit is contained in:
parent
8f42ff31f6
commit
805ed8d318
1 changed files with 1 additions and 1 deletions
|
@ -567,7 +567,7 @@ The remaining arguments (except _ARG, which is ignored) specify
|
||||||
item insertion parameters. This provides a noninteractive API
|
item insertion parameters. This provides a noninteractive API
|
||||||
for todo-insert-item for use in automatic testing."
|
for todo-insert-item for use in automatic testing."
|
||||||
(cl-letf (((symbol-function 'read-from-minibuffer)
|
(cl-letf (((symbol-function 'read-from-minibuffer)
|
||||||
(lambda (_prompt) item))
|
(lambda (_prompt &rest _) item))
|
||||||
((symbol-function 'read-number) ; For todo-set-item-priority
|
((symbol-function 'read-number) ; For todo-set-item-priority
|
||||||
(lambda (_prompt &optional _default) (or priority 1))))
|
(lambda (_prompt &optional _default) (or priority 1))))
|
||||||
(todo-insert-item--basic nil diary-type date-type time where)))
|
(todo-insert-item--basic nil diary-type date-type time where)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue