特定のディレクトリ配下のディレクトリをload-pathに追加する

手動でelispをいれる際に、いちいちload-pathを指定するのが面倒だったので下記の設定をしました。

~/.emacs.d/init.el

;;; load-pathを追加する関数を定義
(defun add-to-load-path (&rest paths)
  (let (path)
    (dolist (path paths paths)
     (let ((default-directory (expand-file-name (concat user-emacs-directory path))))
        (add-to-list 'load-path default-directory)
         (if (fboundp 'normal-top-level-add-subdirs-to-load-path)
             (normal-top-level-add-subdirs-to-load-path))))))

;;; ディレクトリをサブディレクトリごとload-pathに追加
(add-to-load-path "elisp")

これで、.emacs.d/elisp以下にいれればload-pathに追加します。