Jak wymusić bajt skompilować katalog w elisp - emacs, elisp

Jak bajtowo skompilować katalog na siłę, nie troszcząc się o nic w źródle elisp (oznacza to samo co interaktywny: C-u 0 M-x bajt-rekompiluj katalog ale w źródle)?

Czy muszę napisać coś takiego:

(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)))))

? Każda pomoc jest mile widziana.

Odpowiedzi:

Wierzę, że szukasz (byte-recompile-directory directory 0).