Function: filesets-which-file

filesets-which-file is a byte-compiled function defined in filesets.el.gz.

Signature

(filesets-which-file MASTER FILENAME &optional PATH-LIST)

Documentation

Search for a FILENAME relative to a MASTER file in PATH-LIST.

Source Code

;; Defined in /usr/src/emacs/lisp/filesets.el.gz
(defun filesets-which-file (master filename &optional path-list)
  "Search for a FILENAME relative to a MASTER file in PATH-LIST."
  (let ((f (concat (file-name-directory master)
		   filename)))
    (if (file-exists-p f)
	f
      (cl-some
       (lambda (dir)
	 (let ((dir (file-name-as-directory dir))
	       (files (if (file-exists-p dir)
			  (filesets-directory-files dir nil ':files)
			nil)))
	   (cl-some (lambda (file)
		      (if (equal filename (file-name-nondirectory file))
			  (concat dir file)
			nil))
		    files)))
       path-list))))