adding a whole directory subtree to load-path ?

[Stephan Stahl]

Hi

I would like to add a whole subtree of a directory to the load-path. Pretty 
much the same way subdirs.el in the directory site-lisp works. All directories 
under site-lisp get appended to the load-path so it is enough to just drop some 
emacslisp packages into that directory or a subdir of it and one can use that 
package. Is there a easy way to get the same behavior on a user choosen 
directory? Right now i use this but it seems rather ugly...

(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
    (let* ((my-lisp-dir "~/elisp/")
           (default-directory my-lisp-dir))
      (setq load-path (cons my-lisp-dir load-path))
      (normal-top-level-add-subdirs-to-load-path)))

Thanks,
Stephan

-- 
Stephan Stahl