(cond ((fboundp 'normal-top-level-add-subdirs-to-load-path)
       (normal-top-level-add-subdirs-to-load-path))
      ((fboundp 'paths-find-recursive-load-path)
       (setq paths-version-control-filename-regexp
             (concat "^" (regexp-opt '("CVS" "RCS" "SCCS" "_darcs") t) "$")) ;$
       ;; copied from devar of `paths-no-lisp-directory-regexp'.
       (setq paths-no-lisp-directory-regexp
             (concat "\\(" paths-version-control-filename-regexp "\\)"
                     "\\|"
                     "\\(" paths-lisp-filename-regexp "\\)"))
       (let ((subdirs (paths-find-recursive-load-path
                       (list default-directory))))
         (setq load-path (nconc subdirs load-path)))))