[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 404f3af: * lisp/calc/calc-ext.el (calc-do-prefix-help): Tidy up error message.,
Jay Belanger <=