Lines Matching defs:image
123 (defun-mh mh-image-load-path-for-library
124 image-load-path-for-library (library image &optional path no-error)
127 It searches for IMAGE in `image-load-path' (excluding
140 except that nil appears in place of the image directory.
144 `image-load-path':
147 (defvar image-load-path)
149 (let* ((load-path (image-load-path-for-library \"mh-e\" \"mh-logo.xpm\"))
150 (image-load-path (cons (car load-path)
151 (when (boundp 'image-load-path)
152 image-load-path))))
155 (unless image (error "No image specified"))
156 (let (image-directory image-directory-load-path)
157 ;; Check for images in image-load-path or load-path.
158 (let ((img image)
160 ;; Images in image-load-path.
161 (mh-image-search-load-path image)
163 (locate-library image)))
165 ;; Since the image might be in a nested directory (for
166 ;; example, mail/attach.pbm), adjust `image-directory'
173 (setq image-directory-load-path dir))
175 ;; If `image-directory-load-path' isn't Emacs' image directory,
178 ;; `image-directory-load-path'.
180 ;; User-modified image-load-path?
181 ((and image-directory-load-path
182 (not (equal image-directory-load-path
185 (setq image-directory image-directory-load-path))
192 ;; And then set image-directory relative to that.
202 (setq image-directory
203 ;; Set it to nil if image is not found.
204 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei)
205 ((file-exists-p (expand-file-name image d1ei)) d1ei)))))
206 ;; Use Emacs' image directory.
207 (image-directory-load-path
208 (setq image-directory image-directory-load-path))
210 (message "Could not find image %s for library %s" image library))
212 (error "Could not find image %s for library %s" image library)))
215 (nconc (list image-directory)
216 (delete image-directory (copy-sequence (or path load-path))))))
218 (defun-mh mh-image-search-load-path
219 image-search-load-path (file &optional path)
220 "Emacs 21 and XEmacs don't have `image-search-load-path'.