From 7263ea6f64b1bbf4de89cac6501be2e5d8e3fe9c Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Tue, 27 Apr 2021 14:22:20 -0400 Subject: *.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 --- emms-player-mpg321-remote.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'emms-player-mpg321-remote.el') diff --git a/emms-player-mpg321-remote.el b/emms-player-mpg321-remote.el index 5ed942b..43f2d7b 100644 --- a/emms-player-mpg321-remote.el +++ b/emms-player-mpg321-remote.el @@ -170,13 +170,14 @@ If the remote process is not running, launch it." (emms-player-mpg321-remote-start-process)) (emms-player-mpg321-remote-play-track track)) +(defvar emms-player-ignore-stop) + (defun emms-player-mpg321-remote-notify-emms (&optional user-action) "Tell emms that the current song has finished. If USER-ACTION, set `emms-player-mpg321-remote-ignore-stop' so that we ignore the next message from mpg321." (if user-action (let ((emms-player-ignore-stop t)) - (ignore emms-player-ignore-stop) ;; so we ignore the next stop message (setq emms-player-mpg321-remote-ignore-stop (1+ emms-player-mpg321-remote-ignore-stop)) -- cgit v1.2.3