(push (cons url (cons title time)) (cdr (assoc playlist list)))
)))))
- (save-excursion
- (set-buffer (find-file-noselect media/playlist-file))
+ (with-current-buffer (find-file-noselect media/playlist-file)
(erase-buffer)
(mapc (lambda (x)
(insert "PLAYLIST:" (car x) "\n")