[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 82257951e9 1/3: Don't ding when exiting help-for-help with C-g
From: |
Stefan Kangas |
Subject: |
master 82257951e9 1/3: Don't ding when exiting help-for-help with C-g |
Date: |
Sun, 16 Oct 2022 07:04:29 -0400 (EDT) |
branch: master
commit 82257951e9794ac368c405d1ab8ec86a7c175a31
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
Don't ding when exiting help-for-help with C-g
* lisp/help-macro.el (make-help-screen): Don't ding on "C-g".
---
lisp/help-macro.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 91c2a80400..687d6fbb4e 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