Function: ebrowse-find-source-file

ebrowse-find-source-file is a byte-compiled function defined in ebrowse.el.gz.

Signature

(ebrowse-find-source-file FILE TAGS-FILE)

Documentation

Find source file FILE.

Source files are searched for (a) relative to TAGS-FILE which is the path of the BROWSE file from which the class tree was loaded, and (b) in the directories named in ebrowse-search-path.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
;;; The FIND engine

(defun ebrowse-find-source-file (file tags-file)
  "Find source file FILE.
Source files are searched for (a) relative to TAGS-FILE
which is the path of the BROWSE file from which the class tree was loaded,
and (b) in the directories named in `ebrowse-search-path'."
  (let (file-name
	(try-file (expand-file-name file
				    (file-name-directory tags-file))))
    (if (file-readable-p try-file)
	(setq file-name try-file)
      (let ((search-in ebrowse-search-path))
	(while (and search-in
		    (null file-name))
	  (let ((try-file (expand-file-name file (car search-in))))
	    (if (file-readable-p try-file)
		(setq file-name try-file))
	    (setq search-in (cdr search-in))))))
    (unless file-name
      (error "File `%s' not found" file))
    file-name))