Function: read-library-name--find-files

read-library-name--find-files is a byte-compiled function defined in find-func.el.gz.

Signature

(read-library-name--find-files DIRS SUFFIXES)

Documentation

Return a list of all files in DIRS that match SUFFIXES.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/find-func.el.gz
(defun read-library-name--find-files (dirs suffixes)
  "Return a list of all files in DIRS that match SUFFIXES."
  (let ((files nil)
        (regexp (concat (regexp-opt suffixes) "\\'")))
    (dolist (dir dirs)
      (dolist (file (ignore-errors (directory-files dir nil regexp t)))
        (and (string-match regexp file)
             (push (substring file 0 (match-beginning 0)) files))))
    files))