如何在elisp中强制字节编译目录

Question

如何强制字节编译目录而不关心elisp源代码中的任何内容（与交互式代码相同： C-u 0 M-x byte-recompile-directory 但在源代码中）？

我需要写一些类似的东西：

(defun byte-compile-directory-recursively (directory)
  (dolist (file (directory-files directory t "\\w+"))
    (if (file-directory-p file)
        (byte-compile-directory-recursively file)
      (if (string-match "\\.el$" file)
          (byte-compile-file file)))))

？任何帮助表示赞赏。

Answer 1

我相信您正在寻找(byte-recompile-directory directory 0)。