Inefficiency removed: Update each track only once :P

darcs-hash:20050920192531-2189f-97973969ed90c9c72be6f4a9951c6de52a4558dc.gz

1 files changed, 6 insertions, 4 deletions

diff --git a/emms.el b/emms.el
index 457dd44..4dc8dad 100644
--- a/emms.el
+++ b/emms.el
@@ -744,10 +744,12 @@ This is supplying ARGS as arguments to the source."
                   (while pos
                     (goto-char pos)
                     (emms-playlist-update-track)
-                    (setq beg (1+ pos)
-                          pos (text-property-any beg (point-max)
-                                                 'emms-track
-                                                 track))))))))
+                    (setq pos (text-property-any
+                               (next-single-property-change (point)
+                                                           'emms-track)
+                               (point-max)
+                               'emms-track
+                               track))))))))
         (buffer-list))
   t)