From 940d0784c8d5faed2ded6799bfc9dc6499106aba Mon Sep 17 00:00:00 2001 From: Damien Elmes Date: Wed, 26 Jul 2006 14:38:00 +0000 Subject: browser: fix a few cover bugs darcs-hash:20060726143832-4e3e3-94f75a65138f9c49f0c94f348d437c93ca5158ef.gz --- emms-browser.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/emms-browser.el b/emms-browser.el index b4b6db7..2931720 100644 --- a/emms-browser.el +++ b/emms-browser.el @@ -179,7 +179,7 @@ return a path to the cover, or nil to turn off cover loading." (defcustom emms-browser-default-covers nil "*A list of default images to use if a cover isn't found." :group 'emms-browser - :type 'string) + :type 'list) (defcustom emms-browser-comparison-test (if (fboundp 'define-hash-table-test) @@ -1255,7 +1255,8 @@ included." (cond ((functionp emms-browser-covers) (funcall emms-browser-covers path size)) - ((listp emms-browser-covers) + ((and (listp emms-browser-covers) + (nth size-idx emms-browser-covers)) (concat (file-name-directory path) (nth size-idx emms-browser-covers)))))) (if (and cover -- cgit v1.2.3