diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-06 23:44:09 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-06 23:44:09 +0200 |
commit | 816975f4bbf906c838753e7e43f74b5a190376b6 (patch) | |
tree | 7a1d36d9a5aa80d677a0cf01a9174b85e28e011d /lisp/cmuscheme.el | |
parent | 1b390c3cbf996d7d77e3c2d823ca891b8c0f09c6 (diff) | |
download | emacs-816975f4bbf906c838753e7e43f74b5a190376b6.tar.gz |
Use format-prompt in some read-string calls
* lisp/progmodes/prolog.el (prolog-help-on-predicate):
* lisp/cmuscheme.el (scheme-trace-procedure):
* lisp/calendar/todo-mode.el (todo-convert-legacy-files): Use
format-prompt in some read-string calls (that have default values).
* lisp/printing.el (pr-interactive-regexp): No need to use "" as
the default value, because that's the default default value.
(pr-interactive-n-up): Use read-number instead of read-string and
then parsing the string.
Diffstat (limited to 'lisp/cmuscheme.el')
-rw-r--r-- | lisp/cmuscheme.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index d4bec95ebad..7191b933e41 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -327,9 +327,8 @@ With a prefix argument switch off tracing of procedure PROC." (interactive (list (let ((current (symbol-at-point)) (action (if current-prefix-arg "Untrace" "Trace"))) - (if current - (read-string (format "%s procedure [%s]: " action current) nil nil (symbol-name current)) - (read-string (format "%s procedure: " action)))) + (read-string (format-prompt "%s procedure" current action) + nil nil (and current (symbol-name current)))) current-prefix-arg)) (when (= (length proc) 0) (error "Invalid procedure name")) |