diff options
Diffstat (limited to 'lisp/calendar/todo-mode.el')
| -rw-r--r-- | lisp/calendar/todo-mode.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 0e4446f77de..3975a9ba6a9 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -4076,7 +4076,9 @@ regexp items." ((equal (file-name-extension f) "todt") "top") ((equal (file-name-extension f) "tody") "diary")))) (push (cons (concat sf-name " (" type ")") f) falist))) - (setq file (completing-read "Choose a filtered items file: " falist nil t nil + (setq file (completing-read (format-prompt "Choose a filtered items file" + (caar falist)) + falist nil t nil 'todo--fifiles-history (caar falist))) (setq file (cdr (assoc-string file falist))) (find-file file) @@ -4724,9 +4726,8 @@ name in `todo-directory'. See also the documentation string of (todo-convert-legacy-date-time))) (forward-line)) (setq file (concat todo-directory - (read-string - (format "Save file as (default \"%s\"): " default) - nil nil default) + (read-string (format-prompt "Save file as" default) + nil nil default) ".todo")) (unless (file-exists-p todo-directory) (make-directory todo-directory)) @@ -6108,11 +6109,12 @@ Valid time strings are those matching `diary-time-regexp'. Typing `<return>' at the prompt returns the current time, if the user option `todo-always-add-time-string' is non-nil, otherwise the empty string (i.e., no time string)." - (let (valid answer) + (let ((default (when todo-always-add-time-string + (format-time-string "%H:%M"))) + valid answer) (while (not valid) - (setq answer (read-string "Enter a clock time: " nil nil - (when todo-always-add-time-string - (format-time-string "%H:%M")))) + (setq answer (read-string (format-prompt "Enter a clock time" default) + nil nil default)) (when (or (string= "" answer) (string-match diary-time-regexp answer)) (setq valid t))) |