Rename track file after confirm by user

darcs-hash:20070614155834-94065-5daec0b01f392ead46ee58d88544703da34e3057.gz

1 files changed, 5 insertions, 2 deletions

diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index 441528b..46d75c4 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -536,18 +536,21 @@ With prefix argument, bury the tag edit buffer."
             ;; rename local file
             (when (and (emms-track-get track 'newname)
                        (eq (emms-track-get track 'type) 'file)
-                       (file-writable-p (emms-track-name track)))
+                       (file-writable-p (emms-track-name track))
+                       (y-or-n-p (format "Rename %s to %s"
+                                         (emms-track-name track)
+                                         (emms-track-get track 'newname))))
               (setq filename (emms-track-get track 'newname))
               (rename-file (emms-track-name track) filename)
               (emms-track-set old 'name filename)
               ;; for re-enter this function
-              (emms-track-set track 'newname nil)
               (emms-track-set track 'name filename)
               (setq need-sync t)
               ;; register to emms-cache-db
               (when (boundp 'emms-cache-modified-function)
                 (funcall emms-cache-modified-function)
                 (funcall emms-cache-set-function 'file filename old)))
+            (emms-track-set track 'newname nil)
             ;; set tags to original track
             (dolist (tag emms-tag-editor-tags)
               (when (setq val (emms-track-get track (car tag)))