diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2021-03-03 11:00:04 -0500 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2021-03-03 11:00:04 -0500 |
| commit | cd5036b6f59325b73ddb07712e5f76ec6813fad0 (patch) | |
| tree | 556bf558e6a0a4a7845366c8b888ca7f33f8f109 /emms-player-mpg321-remote.el | |
| parent | 8dd079b33d9730e5df8b9c0e5678ab2864089d69 (diff) | |
* emms-player-mpg321-remote.el: add lexical and fix
Diffstat (limited to 'emms-player-mpg321-remote.el')
| -rw-r--r-- | emms-player-mpg321-remote.el | 8 |
1 files 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)) |