[emacs] サブディレクトリを全てload-pathに追加

~/lib/emacs/ 以下にあるサブディレクトリを全てload-path に追加する。

ここを参考にしました。
http://lists.sourceforge.jp/mailman/archives/macemacsjp-users/2006-March/001038.html


以下を、~/.emacs.my.el か ~/.emacs.el あたりに追加。

(let ((dir (expand-file-name "~/lib/emacs")))
    (if (member dir load-path) nil
        (setq load-path (cons dir load-path))
        (let ((default-directory dir))
            (load (expand-file-name "subdirs.el") t t t))))

~/lib/emacs/subdirs.el の中身は以下の通り

(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
    (normal-top-level-add-subdirs-to-load-path))