From dd04c73ba141c1b95fda50f7ed38b67ecd979171 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Tue, 11 Apr 2006 03:35:00 +0000 Subject: emms-player-mpd: Make sure inserted text from emms-player-mpd-show goes to the right buffer. darcs-hash:20060411033552-1bfb2-f36fa15e202b91248e594a2485d170ff5c1ed8bb.gz --- emms-player-mpd.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'emms-player-mpd.el') diff --git a/emms-player-mpd.el b/emms-player-mpd.el index 1ca35cc..dbbf0e9 100644 --- a/emms-player-mpd.el +++ b/emms-player-mpd.el @@ -865,10 +865,12 @@ info from MusicPD." #'emms-info-mpd-1) (error nil)))))) -(defun emms-player-mpd-show-1 (insertp response) +(defun emms-player-mpd-show-1 (closure response) (let* ((info (emms-player-mpd-get-alist (emms-player-mpd-parse-response response))) (track (emms-dictionary '*track*)) + (insertp (car closure)) + (buffer (cdr closure)) (desc nil) string) (when info @@ -880,7 +882,8 @@ info from MusicPD." (format emms-show-format desc) "Nothing playing right now")) (if insertp - (insert string) + (with-current-buffer buffer + (insert string)) (message "%s" string)))) ;;;###autoload @@ -891,7 +894,8 @@ This function uses `emms-show-format' to format the current track. It differs from `emms-show' in that it asks MusicPD for the current track, rather than EMMS." (interactive "P") - (emms-player-mpd-send "currentsong" insertp #'emms-player-mpd-show-1)) + (emms-player-mpd-send "currentsong" (cons insertp (current-buffer)) + #'emms-player-mpd-show-1)) (provide 'emms-player-mpd) -- cgit v1.2.3