From 4bc3739cc8fa888a9708285f50196f2f574b0201 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Wed, 4 Jan 2006 08:13:00 +0000 Subject: Make emms-player-mpd work with emms-playing-time. darcs-hash:20060104081359-1bfb2-a0a8fad9d64ef84432c8698285f9c8293425152d.gz --- emms-player-mpd.el | 4 +++- emms-playing-time.el | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/emms-player-mpd.el b/emms-player-mpd.el index fff4135..f74fd7a 100644 --- a/emms-player-mpd.el +++ b/emms-player-mpd.el @@ -341,10 +341,12 @@ This is usually called by a timer." (null song) (string= song emms-player-mpd-current-song)) (setq emms-player-mpd-current-song song) + (run-hooks 'emms-player-stopped-hook) (with-current-emms-playlist (emms-playlist-select (progn (goto-line (1+ (string-to-number song))) - (point))))))) + (point)))) + (run-hooks 'emms-player-started-hook)))) (defun emms-player-mpd-get-filename (file) "Turn FILE into something that MusicPD can understand. diff --git a/emms-playing-time.el b/emms-playing-time.el index ad2da90..ca39b08 100644 --- a/emms-playing-time.el +++ b/emms-playing-time.el @@ -74,7 +74,8 @@ should enable `emms-playing-time-display-p' first, though." (defun emms-playing-time-start () "Get ready for display playing time." (setq emms-playing-time 0) - (run-at-time t 1 'emms-playing-time-display)) + (setq emms-playing-time-display-timer + (run-at-time t 1 'emms-playing-time-display))) (defun emms-playing-time-stop () "Remove playing time on the mode line." -- cgit v1.2.3