diff options
Diffstat (limited to 'lisp/calc/calc.el')
-rw-r--r-- | lisp/calc/calc.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index f129552c9a4..a1545edba19 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -1188,8 +1188,12 @@ Used by `calc-user-invocation'.") "Start the Calculator." (let ((key (calc-read-key-sequence (if calc-dispatch-help - "Calc options: Calc, Keypad, Quick, Embed; eXit; Info, Tutorial; Grab; ?=more" - (format "%s (Type ? for a list of Calc options)" + (substitute-command-keys + (concat + "Calc options: \\`c'alc, \\`k'eypad, \\`q'uick, \\`e'mbed; " + "e\\`x'it; \\`i'nfo, \\`t'utorial; \\`g'rab; \\`?'=more")) + (format (substitute-command-keys + "%s (Type \\`?' for a list of Calc options)") (key-description (this-command-keys)))) calc-dispatch-map))) (setq key (lookup-key calc-dispatch-map key)) @@ -2478,7 +2482,8 @@ the United States." (interactive) (cond ((eq last-command 'calcDigit-start) (erase-buffer)) - (t (backward-delete-char 1))) + (t (with-suppressed-warnings ((interactive-only backward-delete-char)) + (backward-delete-char 1)))) (if (= (calc-minibuffer-size) 0) (progn (setq last-command-event 13) |