diff options
| author | Michael Olson <mwolson@gnu.org> | 2006-04-11 01:39:00 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2006-04-11 01:39:00 +0000 |
| commit | 9d8fa5e231319db1fcd04fe3c2aec6313457f1fd (patch) | |
| tree | 4dab4bcb64666e52ef61ce3abf8a7035262f8638 /emms-player-mpd.el | |
| parent | 634ba8e1c2b60f338f2ec3ca94a69fd02e19f2f0 (diff) | |
emms-player-mpd: A few minor tweaks.
darcs-hash:20060411013942-1bfb2-ca3de09dfd6aaae5dcd5b6dd2870b12a49aba2e1.gz
Diffstat (limited to 'emms-player-mpd.el')
| -rw-r--r-- | emms-player-mpd.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/emms-player-mpd.el b/emms-player-mpd.el index 5a5998e..7082a96 100644 --- a/emms-player-mpd.el +++ b/emms-player-mpd.el @@ -305,8 +305,6 @@ that's how we tell where the answer ends." (defvar emms-player-mpd-queue nil) (defvar emms-player-mpd-playlist-id nil) -(make-variable-buffer-local 'emms-player-mpd-playlist-id) - (defvar emms-player-mpd-current-song nil) (defvar emms-player-mpd-status-timer nil) @@ -611,7 +609,7 @@ MusicPD playlist." nil) ((string= status "play") (unless (or (null song) - (and emms-player-mpd-current-song + (and (stringp emms-player-mpd-current-song) (string= song emms-player-mpd-current-song))) (setq emms-player-mpd-current-song song) (run-hooks 'emms-player-stopped-hook) @@ -704,7 +702,7 @@ This handles both m3u and pls type playlists." (string-match (emms-player-get emms-player-mpd 'regex) (emms-track-name track)))) -(defun emms-player-mpd-play (&optional id closure) +(defun emms-player-mpd-play (&optional id) "Play whatever is in the current MusicPD playlist. If ID is specified, play the song at that position in the MusicPD playlist." @@ -716,14 +714,14 @@ playlist." (concat "play " id) nil (lambda (closure response) - (setq emms-player-mpd-current-song id) + (setq emms-player-mpd-current-song nil) (setq emms-player-mpd-status-timer (run-at-time t emms-player-mpd-check-interval 'emms-player-mpd-detect-song-change))))) (emms-player-mpd-send "play" nil - (lambda (start-timer response) + (lambda (closure response) (setq emms-player-mpd-status-timer (run-at-time t emms-player-mpd-check-interval 'emms-player-mpd-detect-song-change)))))) |