From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 16 Oct 2022 10:59:13 +0000 (+0200)
Subject: Don't ding when exiting help-for-help with C-g
X-Git-Tag: emacs-29.0.90~1616^2~588
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82257951e9794ac368c405d1ab8ec86a7c175a31;p=emacs.git

Don't ding when exiting help-for-help with C-g

* lisp/help-macro.el (make-help-screen): Don't ding on "C-g".
---

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