From 6aef5b432ee8d76469b1b0e9df22d726836560dd Mon Sep 17 00:00:00 2001
From: forcer <forcer>
Date: Tue, 20 Sep 2005 19:25:00 +0000
Subject: Inefficiency removed: Update each track only once :P

darcs-hash:20050920192531-2189f-97973969ed90c9c72be6f4a9951c6de52a4558dc.gz
---
 emms.el | 10 ++++++----
 1 file 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)
 
-- 
cgit v1.2.3