---
lisp/emms.el | 7 ++++++-
1 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/lisp/emms.el b/lisp/emms.el
index 3c5402d..5fc1ab7 100644
--- a/lisp/emms.el
+++ b/lisp/emms.el
@@ -501,9 +501,14 @@ See `emms-repeat-playlist'."
See `emms-repeat-track'."
(interactive)
(setq emms-repeat-track (not emms-repeat-track))
+ (when (equal (emms-player-for
+ (emms-playlist-current-selected-track)) 'emms-player-mpd)
+ (emms-player-mpd-send
+ (concat "single " (if emms-repeat-track "1" "0"))
+ nil #'ignore))
(if emms-repeat-track
(message "Will repeat the current track.")
- (message "Will advance to the next track after this one.")))
+ (message "Will advance to the next track after this one.")))
(defun emms-sort-track-name-less-p (a b)
"Return non-nil if the track name of A sorts before B."
--
1.6.4.2
_______________________________________________
Emms-patches mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emms-patches
