summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2022-10-16 13:02:24 +0200
committerStefan Kangas <stefankangas@gmail.com>2022-10-16 13:03:59 +0200
commitd4244ec8cc42672fbec5fdbbd8eb9f257d2f974c (patch)
tree8ef39ad91f18e3cc898c6041ec9443099c343d64
parent77d5be5877f7a6c2622d6d78d15bbfd89f8751f4 (diff)
downloademacs-d4244ec8cc42672fbec5fdbbd8eb9f257d2f974c.tar.gz
Make help-for-help echo key on failure
* lisp/help-macro.el (make-help-screen): Echo key on failure.
-rw-r--r--lisp/help-macro.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 962bc5a8d87..cf024afe254 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -211,6 +211,9 @@ and then returns."
(iconify-frame new-frame))
(setq new-frame nil)))
(unless (equal (key-description key) "C-g")
+ (message (substitute-command-keys
+ (format "No help command is bound to `\\`%s''"
+ (key-description key))))
(ding))))))
(when config
(set-window-configuration config))