From 4b913cf81982670faadaa3f9672a60e8ea63e720 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 5 Jan 2006 17:21:00 +0000 Subject: New XEmacs compatibility function: emms-replace-regexp-in-string darcs-hash:20060105172144-1bfb2-36678408233ea377cc5b7deda59d37362948a78b.gz --- emms.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'emms.el') diff --git a/emms.el b/emms.el index 1c2a083..e547348 100644 --- a/emms.el +++ b/emms.el @@ -1186,5 +1186,21 @@ or negative to seek backwards." ((fboundp 'delete-itimer) (delete-itimer timer))))) +(defun emms-replace-regexp-in-string (regexp replacement text &optional fixedcase literal) + "Replace REGEXP with REPLACEMENT in TEXT. +If fourth arg FIXEDCASE is non-nil, do not alter case of replacement text. +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) + (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)))) + text))) + (provide 'emms) ;;; emms.el ends here -- cgit v1.2.3