From 974d2130b9e2a8b4393cbed4af5365536ffe5619 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Tue, 22 Aug 2006 13:06:00 +0000 Subject: Fix compilation warnings and don't clobber namespace darcs-hash:20060822130608-1bfb2-c2a7fc4a64e0c781bb8727f4a70efbd72e3e3d0c.gz --- emms.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'emms.el') 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) -- cgit v1.2.3