emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 404f3af: * lisp/calc/calc-ext.el (calc-do-prefix-he


From: Jay Belanger
Subject: [Emacs-diffs] master 404f3af: * lisp/calc/calc-ext.el (calc-do-prefix-help): Tidy up error message.
Date: Sun, 20 Sep 2015 02:45:28 +0000

branch: master
commit 404f3aff4f709641b45e5bcd61f91f860426e0cf
Author: Jay Belanger <address@hidden>
Commit: Jay Belanger <address@hidden>

    * lisp/calc/calc-ext.el (calc-do-prefix-help): Tidy up error message.
---
 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 adbb20c..83722e7 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.
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]