diff options
| author | Damien Elmes <emms@repose.cx> | 2006-07-26 14:38:00 +0000 |
|---|---|---|
| committer | Damien Elmes <emms@repose.cx> | 2006-07-26 14:38:00 +0000 |
| commit | 940d0784c8d5faed2ded6799bfc9dc6499106aba (patch) | |
| tree | 114db8bfe2cf4f4655f436b4d42e3625be654f33 | |
| parent | 503bbce69bdbf6d7d3b54d14a1267886ede90f4d (diff) | |
browser: fix a few cover bugs
darcs-hash:20060726143832-4e3e3-94f75a65138f9c49f0c94f348d437c93ca5158ef.gz
| -rw-r--r-- | emms-browser.el | 5 |
1 files 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 |