无法将目录及其所有子目录添加到Emacs中的加载路径

Question

问题类似于一个问题.

但是,它也可以将所有子目录放在文件夹中.

Jouni的代码可以实现第一级文件夹

(let ((base "~/Projects/emacs"))
  (add-to-list 'load-path base)
  (dolist (f (directory-files base))
    (let ((name (concat base "/" f)))
      (when (and (file-directory-p name) 
                 (not (equal f ".."))
                 (not (equal f ".")))
        (add-to-list 'load-path name)))))

如何将目录及其所有子目录放入Emacs中的加载路径？

Answer 1

我在另一个问题中的答案确实处理了多个级别的子目录.

代码供参考

(let* ((my-lisp-dir "~/.elisp/")
       (default-directory my-lisp-dir)
       (orig-load-path load-path))
  (setq load-path (cons my-lisp-dir nil))
  (normal-top-level-add-subdirs-to-load-path)
  (nconc load-path orig-load-path))