aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoryonirabkin <yonirabkin>2005-12-18 10:22:00 +0000
committeryonirabkin <mwolson@gnu.org>2005-12-18 10:22:00 +0000
commitb3480e653238bc759294fed0c429789ea422eb62 (patch)
treea8e2f7a16cef5c2aeea9c7ae148f4e64b7835e77
parentd6dd7526befbbfd49c15cd14ff1f14938b908bf8 (diff)
fix emms-playlist-save-as-m3u
darcs-hash:20051218102218-be80e-70018be27db6320656602308f19cfb502a516ae9.gz
-rw-r--r--emms.el11
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)))))