禁用 Carbon Emacs 滚动提示音

Posted 2023-02-24

【中文标题】禁用 Carbon Emacs 滚动提示音

【英文标题】：Disable Carbon Emacs scroll beep

【发布时间】：2008-11-27 18:38:22

【问题描述】：

我一直在考虑在我的 Mac 上使用 Carbon Emacs，我遇到的唯一障碍是当您尝试滚动到文档末尾时发出令人讨厌的滚动哔声。我在网上查看过，但似乎找不到应该添加到我的 .emacs 中的内容，以阻止它在滚动时发出哔哔声。我不想让它完全静音，只是在滚动时。有什么想法吗？

【参考方案1】：

(setq visible-bell t)

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

【讨论】：

是的，但这将使 OP 想要避免的一切都沉默。不过，这就是我使用的 - 视觉铃与声音铃一样有用，并且在我使用耳机时不会干扰音乐。无论如何，我都会向“没人”推荐它。

【参考方案2】：

使用来自Emacs wiki AlarmBell page 的提示，这对我有用：

(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，然后按您想获得名称的键/操作。

【参考方案3】：

您必须自定义ring-bell-function。

此页面可能会提供提示：

http://www.emacswiki.org/emacs/AlarmBell

【讨论】：

唉，这行不通。例如，下一行函数有一个硬编码的“ding”。

嗯。难道你不能在你的 .emacs 中重新定义下一行函数吗？

你不仅要重新定义下一行和上一行，还需要重新定义向上滚动、向下滚动和一大堆功能；其中许多是在“C 源代码”中定义的，并且其源代码不随 Carbon Emacs 提供。如果我错了，请有人纠正我。

【参考方案4】：

在 Stephen Hassard 的回答和 Kipton Barros 的评论之间：

(setq ring-bell-function 'ignore)

似乎是最简洁的，适用于emacs 24.x，并回答了原始问题。

【参考方案5】：

这似乎可以解决问题：

(setq ring-bell-function nil)

【讨论】：

更正：nil 应替换为 'ignore。这将禁用所有铃声。