aboutsummaryrefslogtreecommitdiff
path: root/emms-playlist-limit.el
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2021-04-27 14:22:20 -0400
committerYoni Rabkin <yoni@rabkins.net>2021-04-27 14:22:20 -0400
commit7263ea6f64b1bbf4de89cac6501be2e5d8e3fe9c (patch)
tree125878391cf880337ca4f044875ae97d46c1a775 /emms-playlist-limit.el
parent75563821de35dacceb7bb118ee031790d0225583 (diff)
*.el: Misc improvements and fixes w.r.t lexical binding
* jack.el: Enable lexical-binding. * emms-playlist-limit.el (emms-playlist-limit--limit-playlist): Use a closure. * emms-player-mpg321-remote.el (emms-player-ignore-stop): Declare, so as to fix a mis-compilation in `emms-player-mpg321-remote-notify-emms`. * emms-last-played.el (emms-last-played-format-date): Use lexical binding. * emms-browser.el (emms-browser-filter-only-dir) (emms-browser-filter-only-type, emms-browser-filter-only-recent): Return a closure. Patch by Stefan Monnier
Diffstat (limited to 'emms-playlist-limit.el')
-rw-r--r--emms-playlist-limit.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/emms-playlist-limit.el b/emms-playlist-limit.el
index ed6c8b9..8f274c8 100644
--- a/emms-playlist-limit.el
+++ b/emms-playlist-limit.el
@@ -183,12 +183,10 @@ is non-nil."
(emms-replace-regexp-in-string "info-" "" (symbol-name type)) regexp))))
(emms-playlist-limit--derive-playlist
playlist
- `(lambda (track) (let ((field (emms-playlist-limit-track-get track (quote ,type))))
- (and field (string-match ,regexp field))))
+ (lambda (track) (let ((field (emms-playlist-limit-track-get track type)))
+ (and field (string-match regexp field))))
bufname)))
-
-
(defun emms-playlist-limit-do (type regexp)
"Switch to a derived playlist containing the tracks with TYPE matching REGEXP.
e.g.,