From 99c433e442aac0a9ef40f45089b8a57136a061c3 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Fri, 19 Sep 2008 21:29:17 -0700 Subject: emms-source-playlist: Remove unused helper functions. * lisp/emms-source-playlist.el (emms-source-playlist-first) (emms-source-playlist-next): Remove. --- lisp/emms-source-playlist.el | 24 ------------------------ 1 file changed, 24 deletions(-) (limited to 'lisp') diff --git a/lisp/emms-source-playlist.el b/lisp/emms-source-playlist.el index 20c13ab..3db4ba2 100644 --- a/lisp/emms-source-playlist.el +++ b/lisp/emms-source-playlist.el @@ -413,30 +413,6 @@ OUT should be the buffer where tracks are stored in pls format." ;; Not implemented yet -;;; Helper functions - -(defun emms-source-playlist-first (buf) - "Return the first track in BUF. -This moves point." - (with-current-buffer buf - (condition-case nil - (progn - (emms-playlist-first) - (emms-playlist-track-at (point))) - (error - nil)))) - -(defun emms-source-playlist-next (buf) - "Return the next track in BUF. -This moves point." - (with-current-buffer buf - (condition-case nil - (progn - (emms-playlist-next) - (emms-playlist-track-at (point))) - (error - nil)))) - ;;; Adding playlists as files ;;;###autoload (autoload 'emms-play-playlist-file "emms-source-playlist" nil t) -- cgit v1.2.3