use string-to-number rather than parse-integer

diff --git a/squeeze.el b/squeeze.el
index c4a229ad0249a345a0691b2e4914c03e504e36b9..e79a581cec29cc04524c7ed835e18d92f7c0ad4b 100644 (file)
--- a/squeeze.el
+++ b/squeeze.el
@@ -356,7 +356,7 @@
         (startpos (match-end 0)))
     (unless countpos
       (message "no count found in players line"))
-    (let ((count (parse-integer string (match-beginning 1) (match-end 1)))
+    (let ((count (string-to-number (substring string (match-beginning 1) (match-end 1))))
           result endpos)
       (dotimes (i (1- count))
         (setq endpos (progn (string-match " connected%3A[0-1] " string startpos)