diff options
| -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))) |