Skip to content
Browse files

[Issue #2] If `image-load-path' is unbound, fall back to nil.

See <#2>.
  • Loading branch information...
1 parent 8822beb commit a2958dd0be8020872405df54398379b29019dd58 Daniel Brockman committed Jun 21, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 bongo.el
View
4 bongo.el
@@ -838,7 +838,9 @@ If nil, use the same icon as for unplayed tracks."
(expand-file-name "etc" (file-name-directory (find-library-name "bongo"))))
(defun bongo-find-image (file-name &optional face)
- (let ((image-load-path (cons bongo-etc-directory image-load-path)))
+ (let ((image-load-path (cons bongo-etc-directory
+ (and (boundp 'image-load-path)
+ image-load-path))))
(find-image
(list (list :ascent 'center
:file file-name

0 comments on commit a2958dd

Please sign in to comment.
Something went wrong with that request. Please try again.