Tune library scanning

pkryger · Jan 20, 2025 · 0741b66 · 0741b66
1 parent 3f3799f
commit 0741b66
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/after-init.el b/after-init.el
@@ -391,11 +391,7 @@ the library and PATH is the file containing the library."
     (require 'find-func)
     (let ((cache (make-hash-table :test 'equal))
           (dirs (or find-library-source-path load-path))
-          (suffixes-pat (concat (regexp-opt (cl-remove
-                                             ""
-                                             (append (find-library-suffixes)
-                                                     load-file-rep-suffixes)
-                                             :test #'equal))
+          (suffixes-pat (concat (regexp-opt (find-library-suffixes))
                                 (rx string-end)))
           (skip-files-pat
            (rx (or
@@ -423,7 +419,7 @@ the library and PATH is the file containing the library."
                                           ((file-regular-p path)))
                                 (puthash basename t cache)
                                 (cons basename path)))
-                            (directory-files dir nil suffixes-pat))))
+                            (directory-files dir nil suffixes-pat t))))
                 dirs)))))
 
   (defun pk/async-locate-library-scan ()