From b3480e653238bc759294fed0c429789ea422eb62 Mon Sep 17 00:00:00 2001 From: yonirabkin Date: Sun, 18 Dec 2005 10:22:00 +0000 Subject: fix emms-playlist-save-as-m3u darcs-hash:20051218102218-be80e-70018be27db6320656602308f19cfb502a516ae9.gz --- emms.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'emms.el') 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))))) -- cgit v1.2.3