(let ((dir "~/.emacs.d/lib"))
FOR dir EACH entry DO
(setq load-path (cons (expand-file-name entry) load-path)))
(require 'cl) (loop for f in (directory-files "~/.emacs.d/lib" t) when (and (file-directory-p f) (not (member (file-name-nondirectory f) '("." "..")))) do (add-to-list 'load-path f))
rubikitchさま!!
ありがとうございます!
完璧でしたm(_ _)m