From cc9aff2561eb18b720539cb43d2d43e06d54a75c Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 12 Jul 2007 21:14:00 +0000 Subject: 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 --- emms-compat.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3