Fix a variety of compilation errors and warnings.

darcs-hash:20060401232610-1bfb2-5fe5e4892c94e29a59738bf0d27e7e91ad68f2ed.gz

1 files changed, 0 insertions, 15 deletions

diff --git a/emms-streams.el b/emms-streams.el
index 004348a..dec8318 100644
--- a/emms-streams.el
+++ b/emms-streams.el
@@ -426,21 +426,6 @@ Don't forget to save your modifications !"
 
 ; (add-to-list 'emms-info-methods-list 'emms-info-url)
 
-(defun emms-info-file-info-song-artist (track)
-  "Returns a description of TRACK, build from its comments.
-
-If the track already indicates artist and title, use it.
-Otherwise return the name of the track."
-  (let ((name (and track (emms-track-name track))))
-    (if (null name)
-        "Invalid track!"
-      (let ((artist (emms-track-get track 'info-artist))
-            (title (emms-track-get track 'info-title)))
-        (if (and artist (not (string= artist ""))
-                 title (not (string= title "")))
-            (concat artist " - " title)
-          (file-name-sans-extension (file-name-nondirectory name)))))))
-
 (defun emms-stream-add-data-to-track (track)
   (emms-track-set track 'metadata emms-stream-last-stream))