Avoid even the most remote possibility of a conflict with color-theme.el and its very bad replace-in-string function

darcs-hash:20070712211444-1bfb2-74a2030fdfba44cfe7e2acb687783bdab1e23822.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/emms-compat.el b/emms-compat.el
index f20588b..74ecb48 100644
--- a/emms-compat.el
+++ b/emms-compat.el
@@ -103,7 +103,7 @@ If fifth arg LITERAL is non-nil, insert REPLACEMENT literally."
   (cond
    ((fboundp 'replace-regexp-in-string)
     (replace-regexp-in-string regexp replacement text fixedcase literal))
-   ((fboundp 'replace-in-string)
+   ((and (featurep 'xemacs) (fboundp 'replace-in-string))
     (replace-in-string text regexp replacement literal))
    (t (let ((repl-len (length replacement))
             start)