From cd5036b6f59325b73ddb07712e5f76ec6813fad0 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 3 Mar 2021 11:00:04 -0500 Subject: * emms-player-mpg321-remote.el: add lexical and fix --- emms-player-mpg321-remote.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/emms-player-mpg321-remote.el b/emms-player-mpg321-remote.el index de242ea..40ff9d0 100644 --- a/emms-player-mpg321-remote.el +++ b/emms-player-mpg321-remote.el @@ -1,4 +1,4 @@ -;;; emms-player-mpg321-remote.el --- play files with mpg321 -R +;;; emms-player-mpg321-remote.el --- play files with mpg321 -R -*- lexical-binding: t; -*- ;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc. @@ -125,6 +125,7 @@ For example: (list \"-o\" \"alsa\")" (defun emms-player-mpg321-remote-sentinel (proc str) "Sentinel for determining the end of process" + (ignore str) (when (or (eq (process-status proc) 'exit) (eq (process-status proc) 'signal)) ;; reset @@ -145,8 +146,10 @@ For example: (list \"-o\" \"alsa\")" ;; -------------------------------------------------- (defun emms-player-mpg321-remote-filter (proc str) + (ignore proc) (let* ((data-lines (split-string str "\n" t)) - data line cmd) + data + cmd) (dolist (line data-lines) (setq data (split-string line)) (setq cmd (car data)) @@ -176,6 +179,7 @@ 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