Make `emms-player-started' function, which serves the same purpose as `emms-player-stopped', in that it is meant to be called by the player. emms-player-mpd needs this so that it can tell EMMS exactly when playback has begun.

darcs-hash:20060412035132-1bfb2-d4982d0b49ca4b949c353f2702ceca4318078bb3.gz

1 files changed, 6 insertions, 3 deletions

diff --git a/emms-player-simple.el b/emms-player-simple.el
index 9bb8196..500289c 100644
--- a/emms-player-simple.el
+++ b/emms-player-simple.el
@@ -86,6 +86,7 @@ to call the player and ARGS are the command line arguements."
      (defun ,start (track)
        "Start the player process."
        (emms-player-simple-start (emms-track-name track)
+                                 ,player-name
                                  ,command-name
                                  ,parameters))
      (defun ,stop ()
@@ -108,9 +109,10 @@ to call the player and ARGS are the command line arguements."
       (delete-process process))))
 
 ;; Utility-functions
-(defun emms-player-simple-start (filename cmdname params)
+(defun emms-player-simple-start (filename player cmdname params)
   "Starts a process playing FILENAME using the specified CMDNAME with
-the specified PARAMS."
+the specified PARAMS.
+PLAYER is the name of the current player."
   (let ((process (apply 'start-process
                         emms-player-simple-process-name
                         nil
@@ -118,7 +120,8 @@ the specified PARAMS."
                         ;; splice in params here
                         (append params (list filename)))))
     ;; add a sentinel for signaling termination
-    (set-process-sentinel process 'emms-player-simple-sentinel)))
+    (set-process-sentinel process 'emms-player-simple-sentinel))
+  (emms-player-started player))
 
 (defun emms-player-simple-sentinel (proc str)
   "Sentinel for determining the end of process"