* lisp/calc/calc-ext.el (calc-do-prefix-help): Tidy up error message.

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.