fix emms-playlist-save-as-m3u

darcs-hash:20051218102218-be80e-70018be27db6320656602308f19cfb502a516ae9.gz

1 files changed, 6 insertions, 5 deletions

diff --git a/emms.el b/emms.el
index 70caa49..73dfd86 100644
--- a/emms.el
+++ b/emms.el
@@ -914,11 +914,12 @@ ignore this."
       (erase-buffer)
       (insert "#EXTM3U\n")
       (mapc (lambda (track)
-              (let ((info (emms-info-get track)))
-                (insert "#EXTINF:")
-                (insert (emms-info-playing-time info) ",")
-                (insert (emms-info-artist info) " - " (emms-info-title info) "\n")
-                (insert (emms-track-get track 'name) "\n")))
+	      (let ((time (or (emms-track-get track 'info-mtime) ""))
+		    (artist (emms-track-get track 'info-artist))
+		    (title (emms-track-get track 'info-title))
+		    (name (emms-track-get track 'name)))
+		(insert (format "#EXTINF: %s,%s - %s\n%s\n"
+				time artist title name))))
             tracklist)
       (save-buffer)
       (kill-buffer (current-buffer)))))