Question

我用(mouse-wheel-mode -1)禁用鼠标滚动，但是当我拖动鼠标或点击鼠标时，会出现“三鼠标4未定义”，“鼠标-3未定义”等警告。

无论如何都要禁用这些提示，因为它非常烦人。

仅供参考，我在OS X Mavericks中使用Emacs 24.3和X11

Answer 1

将它们定义为'ignore。

(dolist (k mwheel-installed-bindings)
  (global-set-key k 'ignore))

如果您只想禁用鼠标滚动，则以下代码优于(mouse-wheel-mode -1)

(substitute-key-definition 'mwheel-scroll 'ignore global-map)

如果要禁用鼠标键绑定，请参阅中的代码 Disable mouse clicks in Emacs （但(global-set-key k 'ignore)代替(global-unset-key k)）

以下建议也解决了这个问题。它会禁用undefined显示的所有消息。在这里，我使用包noflet提供的宏noflet。请按noflet安装package-install。由于noflet非常强大，我认为上述解决方案更安全。

(require 'noflet)
(defadvice undefined (around no-message activate)
  (noflet ((message (msg &rest args)))
    ad-do-it))