Fix compilation warnings and don't clobber namespace

darcs-hash:20060822130608-1bfb2-c2a7fc4a64e0c781bb8727f4a70efbd72e3e3d0c.gz

1 files changed, 4 insertions, 3 deletions

diff --git a/emms.el b/emms.el
index e19f7dc..69201c2 100644
--- a/emms.el
+++ b/emms.el
@@ -436,9 +436,10 @@ If fifth arg LITERAL is non-nil, insert REPLACEMENT literally."
     (replace-in-string text regexp replacement literal))
    (t (let ((repl-len (length replacement))
             start)
-        (while (setq start (string-match regexp text start))
-          (setq start (+ start repl-len)
-                text (replace-match replacement fixedcase literal text))))
+        (save-match-data
+          (while (setq start (string-match regexp text start))
+            (setq start (+ start repl-len)
+                  text (replace-match replacement fixedcase literal text)))))
       text)))
 
 (defun emms-line-number-at-pos (&optional pos)