diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2022-10-16 12:59:13 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-16 13:03:59 +0200 |
commit | 82257951e9794ac368c405d1ab8ec86a7c175a31 (patch) | |
tree | 634e1aca4cb7c693798882efe17a6090d81258c6 | |
parent | 0164d5e71ddc05108834d92d333959397d4f6f46 (diff) | |
download | emacs-82257951e9794ac368c405d1ab8ec86a7c175a31.tar.gz |
Don't ding when exiting help-for-help with C-g
* lisp/help-macro.el (make-help-screen): Don't ding on "C-g".
-rw-r--r-- | lisp/help-macro.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 91c2a804000..687d6fbb4eb 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -210,7 +210,8 @@ and then returns." (unless (eq new-frame (selected-frame)) (iconify-frame new-frame)) (setq new-frame nil))) - (ding))))) + (unless (equal (key-description key) "C-g") + (ding)))))) (when config (set-window-configuration config)) (when new-frame |