add recursively to load-path

add recursively to load-path

[pclouds]

Hi,
Can i add a directory and all the subdirectories of that one to
load-path? Something like that:
,----
| (add-recursive-path 'load-path "~/emacs")
`----
then ~/emacs ~/emacs/semantic ~/emacs/mmm-mode ... will be added to
load-path.
Thanks
-- 
Bi Cờ Lao

Re: add recursively to load-path

[Glenn Morris]

pclouds wrote:

> Can i add a directory and all the subdirectories of that one to
> load-path?

(let* ((dir (expand-file-name "~/emacs"))
       (default-directory dir))
  (when (file-directory-p dir)
    (add-to-list 'load-path dir)
    (if (fboundp 'normal-top-level-add-subdirs-to-load-path)
        (normal-top-level-add-subdirs-to-load-path))))