X-Git-Url: http://christophe.rhodes.io/gitweb/?p=squeeze-el.git;a=blobdiff_plain;f=squeeze.el;fp=squeeze.el;h=cfbca135f33a6ea7cd560bcca0592ebe22b0ec5d;hp=25491596d5633e9b41ab235b8b1135376b9011b5;hb=f6801f8d6a93615c817f069d0ae7ba12075b420e;hpb=0e4ee58cdc46656c8ffaa2e9e0b642c88036b980

diff --git a/squeeze.el b/squeeze.el
index 2549159..cfbca13 100644
--- a/squeeze.el
+++ b/squeeze.el
@@ -394,12 +394,13 @@
   (let ((count (squeeze-parse-count string))
         (startpos (string-match "playerindex" string))
         result endpos)
-    (dotimes (i (1- count))
-      (setq endpos (progn (string-match " connected%3A[0-1] " string startpos)
-                          (match-end 0)))
-      (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos endpos)) result)
-      (setq startpos endpos))
-    (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos (length string))) result)
+    (when (> count 0)
+      (dotimes (i (1- count))
+        (setq endpos (progn (string-match " connected%3A[0-1] " string startpos)
+                            (match-end 0)))
+        (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos endpos)) result)
+        (setq startpos endpos))
+      (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos (length string))) result))
     result))