- (cdr (assq icon wl-folder-toggle-icon-list))))
- (load-path (cons wl-icon-dir load-path)))
- (when (setq image (find-image `((:type xpm :file ,name
- :ascent center))))
- (setq image (put icon 'image (propertize name
- 'display image))))))
- (overlay-put overlay 'before-string image)
- (overlay-put overlay 'invisible (and image t))
- (when (and wl-use-highlight-mouse-line (display-mouse-p))
- (let ((inhibit-read-only t))
- (put-text-property (if image
- (max (1- start) (line-beginning-position))
- start)
- (line-end-position)
- 'mouse-face 'highlight)))))))
+ (cdr (assq icon wl-folder-toggle-icon-list)))))
+ (setq image (wl-e21-find-image
+ `((:type xpm :file ,name :ascent center))))))
+ (overlay-put overlay 'display image)))
+ (when (and wl-use-highlight-mouse-line (display-mouse-p))
+ (let ((inhibit-read-only t))
+ (put-text-property (if image
+ (max (1- start) (line-beginning-position))
+ start)
+ (line-end-position)
+ 'mouse-face 'highlight)))))