@@ -40,12 +40,8 @@ (blink-cursor-mode -1)
 
 (setq-default truncate-lines t)
 
-;; Ring the bell sometimes, but not so often
-(setq ring-bell-function
-      (lambda ()
-        (unless (memq this-command
-                      '(isearch-abort abort-recursive-edit exit-minibuffer keyboard-quit minibuffer-keyboard-quit undo-tree-undo))
-          (ding))))
+;; Don't ring the bell
+(setq ring-bell-function #'ignore)
 
 (when (or (daemonp)
           window-system)