Make `ring-bell-function' customizable.

* lisp/cus-start.el (all): Make `ring-bell-function' customizable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 908c02788cfdcae8323f3e79642b89592f862492..fbfd68e873063b441b7019fb67cd64dd2039cd87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-16  Daniel Colascione  <dancol@dancol.org>
+
+       * cus-start.el (all): Make `ring-bell-function' customizable.
+
 2015-01-16  Dmitry Gutov  <dgutov@yandex.ru>
 
        * vc/vc-svn.el (vc-svn-dir-status-files): Pass t as

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 299b18d0118857bd4fe3abe1fbc1fcbcb87fba86..71506cb680ea45a986c66f8b3a2b7d8e1f2cc830 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -421,6 +421,12 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
                                                    "21.1")
              ;; term.c
              (visible-cursor cursor boolean "22.1")
+             ;; terminal.c
+             (ring-bell-function display
+              (choice
+               (const :tag "Default" nil)
+               (const :tag "Silent" ignore)
+               function))
             ;; undo.c
             (undo-limit undo integer)
             (undo-strong-limit undo integer)