diff options
| author | Michael Olson <mwolson@gnu.org> | 2006-04-11 03:35:00 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2006-04-11 03:35:00 +0000 |
| commit | dd04c73ba141c1b95fda50f7ed38b67ecd979171 (patch) | |
| tree | 9e89ffe15c6083526fd5e2a0ae9d8f6aacdfe786 /emms-player-mpd.el | |
| parent | a92a2f806e3d38a91730d8ca8558282f23f6b651 (diff) | |
emms-player-mpd: Make sure inserted text from emms-player-mpd-show goes to the right buffer.
darcs-hash:20060411033552-1bfb2-f36fa15e202b91248e594a2485d170ff5c1ed8bb.gz
Diffstat (limited to 'emms-player-mpd.el')
| -rw-r--r-- | emms-player-mpd.el | 10 |
1 files changed, 7 insertions, 3 deletions
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) |