Fix bug in transpose tag

darcs-hash:20070609023409-94065-e999c77f14a22e48125608e9b6d0ca8158b6f555.gz

1 files changed, 2 insertions, 1 deletions

diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index 865639b..7bf1bd0 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -352,10 +352,11 @@ changes will only take effect on the tracks in the region."
              (inhibit-read-only t)
              temp)
         (erase-buffer)
-        (dolist (track tracks)
+        (dolist (track (nreverse tracks))
           (setq temp (emms-track-get track tag1))
           (emms-track-set track tag1 (emms-track-get track tag2))
           (emms-track-set track tag2 temp)
+          (emms-track-set track 'tag-modified t)
           (emms-tag-editor-insert-track track))))))
 
 (defun emms-tag-editor-next-field (arg)