diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2015-09-19 21:44:45 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2015-09-19 21:44:45 -0500 |
| commit | 404f3aff4f709641b45e5bcd61f91f860426e0cf (patch) | |
| tree | 6dfefcf0e134b7eda9a4875478750199a548f81e /lisp/calc/calc-ext.el | |
| parent | 89898fcd83db040923a2d454e849bfcc0f463bd4 (diff) | |
| download | emacs-404f3aff4f709641b45e5bcd61f91f860426e0cf.tar.gz | |
* lisp/calc/calc-ext.el (calc-do-prefix-help): Tidy up error message.
Diffstat (limited to 'lisp/calc/calc-ext.el')
| -rw-r--r-- | lisp/calc/calc-ext.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index adbb20c82f8..83722e761b0 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -1323,12 +1323,13 @@ calc-kill calc-kill-region calc-yank)))) (message "%s: (none) %c-" group key)) (message "%s: %s" group (car msgs)))) (let* ((chr (read-char)) - (keys (if key (string key chr) (string chr))) - (bnd (local-key-binding keys))) + (bnd (local-key-binding (if key (string key chr) (string chr))))) (setq calc-prefix-help-retry (= chr ??)) (if bnd (call-interactively bnd) - (message (concat keys " is undefined")))))) + (if key + (message (concat (key-description (vector key chr)) " is undefined")) + (message (concat (key-description (vector chr)) " is undefined"))))))) ;;;; Commands. |