单击 emacs 会取消 x 选择

Question

很多时候，当我使用鼠标单击 emacs 窗口时，我希望粘贴到缓冲区中的 x 选择会被吹走。这似乎是由于我单击左键时手的轻微移动导致了无意的“拖动复制”。我不相信我能够改掉这个特殊的习惯。

我发现防止这种情况发生的一个解决方案是设置：

(setq mouse-drag-copy-region nil)

然而，这有一个不幸的副作用，即阻止我在 emacs 中使用鼠标拖动功能。有没有办法控制鼠标拖动行为，以便忽略单击，除非它跨越缓冲区内的两个或多个字符？

我正在 Centos 5.x + GNOME 2 上使用 GNU emacs 23.3.1 进行编码，以防有所不同。

这似乎是 GTK/X 问题；我可以用其他应用程序产生类似的行为。

Answer 1

最简单的解决方案是修改函数mouse-drag-track，该函数可以在mouse.el中找到。要查找函数定义，请Mx find-function mouse-drag-track RET。

将其复制到您的 .emacs 文件中并进行一点小小的更改。找到如下所示的 and 语句：

(and mouse-drag-copy-region
     do-mouse-drag-region-post-process
     (let (deactivate-mark)
       (copy-region-as-kill region-commencement
                            region-termination)))

并将其修改为进行检查以确保该区域至少为 2 个字符。为了更容易测试，我将此检查设置为 10 个字符：

(and mouse-drag-copy-region
     (>= (abs (- region-commencement region-termination)) 10) ;; THIS IS NEW
     do-mouse-drag-region-post-process
     (let (deactivate-mark)
       (copy-region-as-kill region-commencement
                            region-termination)))

我没有看到通过建议、挂钩或变量设置来执行此操作的干净方法。
请确保在定义 mouse-drag-track 之前有一个 (require 'mouse)，以确保您覆盖内置定义，而不是它覆盖您的定义。您可能还想在重新定义上方的 .emacs 中添加一个检查，以提醒您检查要覆盖的库/函数的新版本：

(unless (eq emacs-major-version 23)
  (error "check for new mouse-drag-track"))

Answer 2

这是 emacs 中的一个错误，于 2001 年被引入到源代码历史中。我已经发布了一个可以应用于本地安装的补丁。希望 emacs 维护者能够进一步调查。

这是我的补丁和讨论：

http://lists. gnu.org/archive/html/emacs-devel/2011-08/msg00818.html