禁用Carbon Emacs滚动蜂鸣声

我一直在考虑在我的Mac上使用Carbon Emacs,而我遇到的唯一绊脚石就是当你试图滚过文档末尾时发出令人讨厌的滚动声.我看过网上但我似乎无法找到我应该添加到我的.emacs中的内容,这会阻止它在滚动时发出哔哔声.滚动时我不想完全沉默它.有任何想法吗？

(setq visible-bell t)

这使emacs闪烁而不是哔哔声.

使用Emacs wiki AlarmBell页面中的提示,这对我来说:

(defun my-bell-function ()
  (unless (memq this-command
        '(isearch-abort abort-recursive-edit exit-minibuffer
              keyboard-quit mwheel-scroll down up next-line previous-line
              backward-char forward-char))
    (ding)))
(setq ring-bell-function 'my-bell-function)

如果您不知道命令的名称,请按下C-h k您想要获取名称的键/操作.