Function: image-search-load-path

image-search-load-path is a byte-compiled function defined in image.el.gz.

Signature

(image-search-load-path FILE &optional PATH)

Aliases

mh-image-search-load-path (obsolete since 29.1)

Source Code

;; Defined in /usr/src/emacs/lisp/image.el.gz
(defun image-search-load-path (file &optional path)
  (unless path
    (setq path image-load-path))
  (let (element found filename)
    (while (and (not found) (consp path))
      (setq element (car path))
      (cond
       ((stringp element)
	(setq found
	      (file-readable-p
	       (setq filename (expand-file-name file element)))))
       ((and (symbolp element) (boundp element))
	(setq element (symbol-value element))
	(cond
	 ((stringp element)
	  (setq found
		(file-readable-p
		 (setq filename (expand-file-name file element)))))
	 ((consp element)
	  (if (setq filename (image-search-load-path file element))
	      (setq found t))))))
      (setq path (cdr path)))
    (if found filename)))