diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-08 21:50:44 +0100 |
---|---|---|
committer | Michael Olson <mwolson@gnu.org> | 2009-03-09 21:08:11 -0700 |
commit | f201cdb3786319fbd2b2e4661327ab3e3e1cc677 (patch) | |
tree | f9291b8c3e2bd7aa25ae33fcad92fe515099afb8 | |
parent | b322d37a92710f8846f7a518a86cc3976825508f (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.el | 6 |
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))) |