From e028af54dcfc56f04bdabdf6aeba3037e4246fac Mon Sep 17 00:00:00 2001
From: forcer <forcer>
Date: Fri, 16 Sep 2005 00:51:00 +0000
Subject: Cleaned up `emms-playlist-save' a bit

darcs-hash:20050916005103-2189f-5ca71f755760a832d2351c221fa58ec500fe1f5e.gz
---
 emms.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'emms.el')

diff --git a/emms.el b/emms.el
index ea8bfb9..203979b 100644
--- a/emms.el
+++ b/emms.el
@@ -452,25 +452,25 @@ If no playlist exists, a new one is generated."
 
 (defun emms-playlist-save (playlist filename)
   "Save a playlist"
-  (interactive "bPlaylist buffer name : 
-FFile to save playlist as: ")
-  (let ((tracklist  '())
-        (buffer  (find-file-noselect filename)))
+  (interactive "bPlaylist buffer name: \nFFile to save playlist as: ")
+  (let ((tracklist '()))
     (condition-case nil
         (with-current-buffer playlist
           (save-excursion
             (emms-playlist-first)
             (while (emms-playlist-track-at)
-              (add-to-list 'tracklist (emms-playlist-track-at) t)
+              (setq tracklist (cons (emms-playlist-track-at)
+                                    tracklist))
               (emms-playlist-next))))
-      (error ""))
+      (error nil))
+    (setq tracklist (nreverse tracklist))
     ;; tracklist complete, let's write it !
-    (set-buffer buffer)
-    (erase-buffer)
-    (prin1 tracklist buffer)
-    (insert "\n")
-    (save-buffer)
-    (kill-buffer buffer)))
+    (with-current-buffer (find-file-noselect filename)
+      (erase-buffer)
+      (prin1 tracklist (current-buffer))
+      (insert "\n")
+      (save-buffer)
+      (kill-buffer (current-buffer)))))
 
 (defun emms-playlist-save-active (filename)
   (interactive "FFile to save playlist as: ")
-- 
cgit v1.2.3