From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 20 Sep 2015 02:44:45 +0000 (-0500)
Subject: * lisp/calc/calc-ext.el (calc-do-prefix-help): Tidy up error message.
X-Git-Tag: emacs-25.0.90~1224^2~75
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/404f3aff4f709641b45e5bcd61f91f860426e0cf?ds=sidebyside

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

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index adbb20c82f..83722e761b 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.