diff options
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")) |