Git 将 Emacs 减慢到死亡 - 如何解决这个问题？答案

【问题标题】：Git slows down Emacs to Death - How to Fix this?Git 将 Emacs 减慢到死亡 - 如何解决这个问题？
【发布时间】：2011-10-07 03:46:50
【问题描述】：

打开文件（通过键入Ctrl-x f，AKA Find File）或在Dired 模式下对该文件键入f），在具有.git 子目录的工作目录中速度非常慢。

即使是最简单的文件（50 行，主要是 cmets）也可能需要 8 秒才能打开。

同一文件，位于不受 Git 管理的不同目录中，会立即打开。

为什么会发生这种情况，我该如何在不禁用 vc-mode 的情况下解决这个问题？（因为我使用 Emacs 的主要原因之一是它的M-x ediff-revision）

更新 1：感谢@sanityinc 在下面的回答，我运行了 ELP 分析，这就是我收到的（对于一个非常小的文件，69 行，其中 59 行是普通 cmets）：

Function Name                       Call Count   Elapsed Time  Average Time
-------------                       ----------   ------------  ------------
vc-call-backend                      11          23.023        2.093
vc-find-file-hook                    1           8.757         8.757
vc-mode-line                         1           7.812         7.812
vc-default-mode-line-string          1           7.345         7.345
vc-state-refresh                     1           6.921         6.921
vc-state                             1           6.921         6.921
vc-default-state-heuristic           1           6.921         6.921
vc-registered                        1           0.945         0.945
vc-backend                           1           0.945         0.945
vc-git-registered                    1           0.912         0.912
vc-working-revision                  1           0.4240000000  0.4240000000
vc-find-root                         4           0.0990000000  0.0247500000
vconcat                              623         0.0220000000  3.53...e-005
vc-bzr-registered                    1           0.016         0.016
vc-check-master-templates            2           0.014         0.007
vc-default-registered                2           0.014         0.007
vc-rcs-registered                    1           0.008         0.008
vc-sccs-registered                   1           0.006         0.006
vc-svn-registered                    1           0.002         0.002
vc-cvs-registered                    1           0.001         0.001
vc-sccs-search-project-dir           1           0.0           0.0
vc-kill-buffer-hook                  6           0.0           0.0
vc-find-backend-function             11          0.0           0.0
vc-default-find-file-hook            1           0.0           0.0
vc-possible-master                   6           0.0           0.0
vc-file-clearprops                   1           0.0           0.0
vc-file-setprop                      3           0.0           0.0
vc-file-getprop                      5           0.0           0.0
vc-make-backend-sym                  15          0.0           0.0

这是很好的信息，但我不是 Emacs/elisp 专家，那么我该怎么做呢？

更新 2： 将这个问题搁置了一段时间后，我发现了这篇很棒的博文：Cygwin slow start up: the culprit discovered!，它实质上建议在后台启动 bash 完成。我很快实现了它并重新运行了 ELP 分析测试：

vc-call-backend                      11          14.489        1.317
vc-find-file-hook                    1           5.488         5.488
vc-mode-line                         1           5.118         5.118
vc-default-mode-line-string          1           4.719         4.719
vc-state-refresh                     1           4.282         4.282
vc-state                             1           4.282         4.282
vc-default-state-heuristic           1           4.282         4.282
vc-working-revision                  1           0.437         0.437
vc-registered                        1           0.37          0.37
vc-backend                           1           0.37          0.37
vc-git-registered                    1           0.34          0.34
vc-find-root                         4           0.088         0.022
vc-bzr-registered                    1           0.015         0.015
vc-check-master-templates            2           0.013         0.0065 
vc-default-registered                2           0.013         0.0065 
vc-rcs-registered                    1           0.007         0.007
vc-sccs-registered                   1           0.006         0.006
vc-cvs-registered                    1           0.001         0.001
vconcat                              623         0.001         1.60...e-006
vc-svn-registered                    1           0.001         0.001
vc-sccs-search-project-dir           1           0.0           0.0
vc-kill-buffer-hook                  6           0.0           0.0
vc-find-backend-function             11          0.0           0.0
vc-default-find-file-hook            1           0.0           0.0
vc-possible-master                   6           0.0           0.0
vc-file-clearprops                   1           0.0           0.0
vc-file-setprop                      3           0.0           0.0
vc-file-getprop                      5           0.0           0.0
vc-make-backend-sym                  15          0.0           0.0

很高兴看到vc-call-backend 从 23 秒下降到 14 秒，但这仍然是不可接受的（找到 CVS 控制的文件不到一瞬间！）。

更新 3： 无法解开谜团，我通过升级到最新的 cygwin (1.7.9-1) 来试试运气。这没有帮助。

因此，我决定尝试将沙箱（连同其 .git 子目录）从 Samba 共享移动到本地存储 (C:\Users\WinWin\Documents)。然后我重新运行了 ELP 分析测试：

vc-call-backend                           11          2.082         0.1892727272
vc-find-file-hook                         1           0.897         0.897
vc-git--call                              7           0.8929999999  0.1275714285
vc-git-mode-line-string                   1           0.78          0.78
vc-mode-line                              1           0.78          0.78
vc-default-mode-line-string               1           0.655         0.655
vc-git--out-ok                            5           0.6519999999  0.1304
vc-git-state                              1           0.53          0.53
vc-state-refresh                          1           0.53          0.53
vc-state                                  1           0.53          0.53
vc-default-state-heuristic                1           0.53          0.53
vc-git-working-revision                   2           0.25          0.125
vc-git-registered                         2           0.2239999999  0.1119999999
vc-git--run-command-string                1           0.18          0.18
vc-working-revision                       1           0.125         0.125
vc-registered                             1           0.1169999999  0.1169999999
vc-backend                                2           0.1169999999  0.0584999999
vc-git--empty-db-p                        1           0.11          0.11
vc-find-root                              3           0.003         0.001
vc-git-root                               2           0.002         0.001
vc-check-master-templates                 2           0.001         0.0005
vc-sccs-registered                        1           0.001         0.001
vc-default-registered                     2           0.001         0.0005
vc-bzr-registered                         1           0.001         0.001
vc-rcs-registered                         1           0.0           0.0
vc-sccs-search-project-dir                1           0.0           0.0
vc-kill-buffer-hook                       5           0.0           0.0
vc-default-find-file-hook                 1           0.0           0.0
vc-possible-master                        6           0.0           0.0
vc-cvs-registered                         1           0.0           0.0
vc-file-clearprops                        1           0.0           0.0
vc-file-setprop                           3           0.0           0.0
vc-file-getprop                           5           0.0           0.0
vc-svn-registered                         1           0.0           0.0
vc-make-backend-sym                       2           0.0           0.0

哇！这将vc-call-backend 从 14 秒降低到 2 秒。这很棒但并不美妙，因为使用 Emacs/CVS 我可以在 不到 35 毫秒 内访问一个文件——在沙盒最初所在的同一个 Samba 共享上：

vc-call-backend                           5           0.031         0.0062
vc-find-file-hook                         1           0.031         0.031
vc-registered                             1           0.031         0.031
vc-backend                                1           0.031         0.031
vc-rcs-registered                         1           0.016         0.016
vc-check-master-templates                 1           0.016         0.016
vc-default-registered                     1           0.016         0.016
vc-insert-file                            1           0.015         0.015
vc-cvs-get-entries                        1           0.015         0.015
vc-cvs-registered                         1           0.015         0.015
vc-cvs-state-heuristic                    1           0.0           0.0
vc-cvs-parse-sticky-tag                   1           0.0           0.0
vc-kill-buffer-hook                       1           0.0           0.0
vc-find-backend-function                  1           0.0           0.0
vc-cvs-parse-entry                        1           0.0           0.0
vc-mode-line                              1           0.0           0.0
vc-default-find-file-hook                 1           0.0           0.0
vc-possible-master                        3           0.0           0.0
vc-cvs-mode-line-string                   1           0.0           0.0
vc-default-mode-line-string               1           0.0           0.0
vc-state-refresh                          1           0.0           0.0
vc-working-revision                       1           0.0           0.0
vc-state                                  1           0.0           0.0
vc-file-clearprops                        1           0.0           0.0
vc-file-setprop                           5           0.0           0.0
vc-file-getprop                           7           0.0           0.0
vc-make-backend-sym                       2           0.0           0.0

这提出了两个问题：

git+cygwin 的组合使它如此敏感网速？
我怎样才能让 git 降到 50 毫秒以下？毕竟是调用 “快速版本控制系统”

使用 msysgit 1.7.8 时更新：

vc-call-backend                      11          0.626         0.0569090909
vc-find-file-hook                    1           0.281         0.281
vc-mode-line                         1           0.2189999999  0.2189999999
vc-default-mode-line-string          1           0.1879999999  0.1879999999
vc-state-refresh                     1           0.157         0.157
vc-state                             1           0.157         0.157
vc-default-state-heuristic           1           0.157         0.157
vc-registered                        1           0.062         0.062
vc-backend                           1           0.062         0.062
vc-git-registered                    1           0.062         0.062
vc-working-revision                  1           0.0310000000  0.0310000000
vc-rcs-registered                    1           0.0           0.0
vc-sccs-search-project-dir           1           0.0           0.0
vc-kill-buffer-hook                  6           0.0           0.0
vc-find-backend-function             11          0.0           0.0
vc-default-find-file-hook            1           0.0           0.0
vc-possible-master                   6           0.0           0.0
vc-check-master-templates            2           0.0           0.0
vc-cvs-registered                    1           0.0           0.0
vc-sccs-registered                   1           0.0           0.0
vc-file-clearprops                   1           0.0           0.0
vconcat                              623         0.0           0.0
vc-default-registered                2           0.0           0.0
vc-file-setprop                      3           0.0           0.0
vc-find-root                         4           0.0           0.0
vc-file-getprop                      5           0.0           0.0
vc-bzr-registered                    1           0.0           0.0
vc-svn-registered                    1           0.0           0.0
vc-make-backend-sym                  15          0.0           0.0

你能分辨出来吗？ :)

Emacs 下的 Git 现在速度快了很多，但它仍然比 Emacs 下的 CVS 慢得多。所以我不知道为什么 Git 被称为“快速版本控制系统”。它可能比 CVS 更好，但更快？

【问题讨论】：

更多关于存储库状态的信息会很有用，例如a) 文件是否在 git 中注册？ b) 还有其他未注册的文件吗？ c) repo 中是否有文件有大量修改未决？
@sanityinc (a) 是的，文件是用git注册的，比较新的文件，目前只有2次提交。 (b) 所有文件都已注册，除了一个“gitignored”子目录。 (c) repo 中的所有文件都已完全提交，没有待修改。附：它是一个四核 64 位机器，所以不应该为这件事情的缓慢找借口。 :)
@sanityinc 在 Emacs 中打开该文件时，M-! git status 需要 5-6 秒。
而且大概 git 在命令行上要快得多？你是通过 Cygwin 使用 git 吗？
Windows 很奇怪。我的 bash 提示需要几秒钟才能在 cygwin 下显示，我无法确定。我想一些相关的影响是导致你的 git 调用永远需要。问题在于您的 git 二进制文件（或文件系统），而不是 Emacs。 FWIW，我在 Windows Emacs 和 Windows (msys) Git 上运气不错。为什么需要 cygwin？

标签： git emacs cygwin

【解决方案1】：

有一个名为 ELP 的内置分析器。您可以尝试类似M-x elp-instrument-package，输入“vc”，然后尝试查找文件。之后，M-x elp-results 将向您显示个人资料报告。

（请注意，如果时间花在与 vc 无关的函数上，此技术将不会显示，但您可以根据需要检测更多包。）

【讨论】：

接受您的提示是接近解开谜团最有帮助的方法。我倾向于接受您的观察，即问题可能出在我的 git 设置上，而不是 Emacs。我将尝试在一个单独的线程中解决这个问题。再次感谢。

【解决方案2】：

你可以尝试profile打开你的文件，看看究竟是什么花费了这么多时间。

【讨论】：

感谢 +1 让我注意到 Emacs Native Profiler，因为我以前不知道它。不幸的是，它在底部显示“目前仅支持 Linux”，而我在 Windows 7 下使用 Emacs。

【解决方案3】：

我在使用 mingw emacs 25.1.1 的 windows git 2.10 时遇到了同样的问题。

使用以下测试：

(progn
  ;; make sure the buffer is not already open
  (elp-instrument-function 'find-file-other-window)
  (elp-instrument-function 'vc-git-registered)
  (elp-instrument-function 'vc-git-mode-line-string)
  (elp-instrument-function 'vc-git-find-file-hook)
  (find-file-other-window "my-file-in-a-git-repo")
  (elp-results)
  (elp-restore-all))

提供以下个人资料：

find-file-other-window   1           1.1076142     1.1076142
vc-git-mode-line-string  1           0.6396082     0.6396082
vc-git-find-file-hook    1           0.2652034     0.2652034
vc-git-registered        1           0.1872024     0.1872024

vc-git-mode-line-string 函数需要一段时间。这会在窗口的模式行中显示类似 Git:mybranch 的内容。我不太在意每次都等待它，所以我覆盖实现只返回"Git"：

(defun vc-git-mode-line-string (file)
  "Overwritten default vc-git-el implementation. Return a string
for `vc-mode-line' to put in the mode line for FILE."
  "Git")

vc-git-find-file-hook 函数将在您打开一个冲突文件时打开一个相当冲突的编辑模式。实现首先调用vc-git-conflicted-files，这需要一段时间，然后做一个相当简单的检查是否有任何行以<<<<<<<开头。我只是简单地交换了两者，现在大多数情况下实现大约需要 0.0 秒。

(defun vc-git-find-file-hook ()
  "Overwritten default vc-git-el implementation. Activate
`smerge-mode' if there is a conflict."
  (when (and buffer-file-name
             ;; FIRST check whether this file looks like a conflicted file
             (save-excursion
               (goto-char (point-min))
               (re-search-forward "^<<<<<<< " nil 'noerror))
             ;; THEN ask git if it really is a conflict
             (vc-git-conflicted-files buffer-file-name))
    (vc-file-setprop buffer-file-name 'vc-state 'conflict)
    (smerge-start-session)
    (when vc-git-resolve-conflicts
      (add-hook 'after-save-hook 'vc-git-resolve-when-done nil 'local))
    (vc-message-unresolved-conflicts buffer-file-name)))

结果：

find-file-other-window   1           0.2838039     0.2838039
vc-git-registered        1           0.2682037     0.2682037
vc-git-find-file-hook    1           0.0           0.0
vc-git-mode-line-string  1           0.0           0.0

【讨论】：

【解决方案4】：

您可以通过在.emacs 中将vc-handled-backends 设置为nil 来disable vc-mode。

【讨论】：

@robert & @Alex Ott 我使用 Emacs 的主要原因之一是 ediff-revisions。难道没有更好的方法来加快速度吗？毕竟，Emacs 不会对 CVS 版本控制下的文件这样做......