aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-08 21:50:44 +0100
committerMichael Olson <mwolson@gnu.org>2009-03-09 21:08:11 -0700
commitf201cdb3786319fbd2b2e4661327ab3e3e1cc677 (patch)
treef9291b8c3e2bd7aa25ae33fcad92fe515099afb8
parentb322d37a92710f8846f7a518a86cc3976825508f (diff)
(emms-browser-mmatches-p): When performing searches, check whether
This is the second patch addressing the null track fields issue. In this case, before trying to STRING-MATCH in a search, we check that the track's field is non-null.
-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)))