--- 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)