aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-browser.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emms-browser.el b/lisp/emms-browser.el
index d1c85d7..5286d75 100644
--- a/lisp/emms-browser.el
+++ b/lisp/emms-browser.el
@@ -1509,9 +1509,9 @@ included."
(dolist (item search-list)
(setq matched nil)
(dolist (field (car item))
- (when (string-match (cadr item)
- (emms-track-get track field ""))
- (setq matched t)))
+ (let ((track-field (emms-track-get track field "")))
+ (when (and track-field (string-match (cadr item) track-field))
+ (setq matched t))))
(unless matched
(setq no-match t)))
(not no-match)))