更快的 Emacs 目录遍历器

Question

使用说明书 (http://www.emacswiki.org/emacs/ElispCookbook#toc59) 在 Emacs 中遍历目录树，或者 Walk up the directory tree 的解决方案非常慢。

是否可以通过shell-command 或call-process 改用Unix 的find，并在返回的列表上执行funcall？

这个想法有什么缺点（也许大树的内存消耗太多？），在 elisp 中这样做的惯用方法是什么，即使用一些给定的参数调用 find 并在返回值？

我可以看到的一个可能的好处是，shell 进程可以异步启动，而 Emacs 在进程启动时根本不会停止。

Answer 1

是的，当然您可以通过call-process 调用find，然后逐行拆分结果。请注意，使用file-name-all-completions 代替directory-files 和file-directory-p 可以显着提高walk-path 的效率：

(defun my-walk-directory (dir action)
  "walk DIR executing ACTION with (dir file).
DIR needs to end with /."
  (dolist (file (let ((completion-ignored-extensions nil)
                      (completion-regexp-list nil))
                  (file-name-all-completions "" dir)))
    (cond
     ((member file '("./" "../")) nil)
     ((eq ?/ (aref file (1- (length file)))) (my-walk-directory (concat dir file) action))
     (t (funcall action dir file)))))

当然，它仍然不会像find 那样快，但根据我的经验，这比使用目录文件加上文件目录-p 快大约 10 倍。