Can you refactor this in such a way that this new functionality is implemented in emms-player-mpd.el, instead of emms.el?
On Mon, Aug 31, 2009 at 4:12 AM, S.P.Tseng<[email protected]> wrote: > --- > 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 > -- Michael Olson || http://mwolson.org/ Projects: Emacs, Muse, ERC, EMMS _______________________________________________ Emms-patches mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emms-patches
