diff options
Diffstat (limited to 'lisp/cmuscheme.el')
| -rw-r--r-- | lisp/cmuscheme.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index d590b9ecf61..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")) @@ -517,6 +516,8 @@ command to run." This is a good place to put keybindings." :type 'hook :group 'cmuscheme) +(make-obsolete-variable 'cmuscheme-load-hook + "use `with-eval-after-load' instead." "28.1") (run-hooks 'cmuscheme-load-hook) |