--- a/.emacs-obsolete Tue Jan 27 22:53:39 2015 +0200
+++ b/.emacs-obsolete Wed Jan 28 00:45:31 2015 +0200
@@ -42,3 +42,20 @@
;; Place dir at end to appear at the start of completion-ignored-extensions.
"CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
) )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun my-find-subdirs (dir)
+ (if (file-directory-p dir)
+ (cons dir (apply 'append (mapcar 'my-find-subdirs (directory-files dir t "^[^.]")) ) )
+ ))
+(defun my-add-subdirs-to-load-path (dir)
+ (mapc
+ (lambda (d)
+ (add-to-list 'load-path d t)
+ (message "Load-path updated with: %s" d)
+ )
+ (my-find-subdirs dir)) )
+
+(my-add-subdirs-to-load-path my-usr-lisp-dir)
+(my-add-subdirs-to-load-path my-lisp-dir)