X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=media.el;h=3fb93521b7651b23476ecd984984efdb7829a428;hp=ebddca7cf077568d03a8daab70d8f61801e3321a;hb=da37931ecad6bda8a1f1dc6146c1ca805359cba6;hpb=44ee31af3c67a477c92d749c462e5ebb92d8397f

diff --git a/media.el b/media.el
index ebddca7..3fb9352 100644
--- a/media.el
+++ b/media.el
@@ -666,8 +666,7 @@ returns nil if no id3 tags could be found."
               (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")