If the optional third arg PATH is specified, that list of directories
is used instead of `load-path'."
(interactive (list (read-library-name "Locate library: ")
- nil nil
- t))
+ nil nil
+ t))
(let ((result
(locate-file
library
;; make sure paths-find-version-directory and paths-find-site-directory
;; don't both pick up version-independent directories ...
(let ((version-directory (paths-find-version-archindep-directory
- roots base nil nil t))
+ roots base nil nil t))
(site-directory (paths-find-site-archindep-directory roots base)))
(paths-uniq-append
(and version-directory (list version-directory))