match-substitute-replacement

The Gnus developers are working with a contributor on a patch, the specifics of which I'm not clear on. But it appears that the patch would be simplified by the use of match-substitute-replacement, which was introduced in Emacs 23. (defun match-substitute-replacement (replacement &optional fixedcase literal string subexp) "Return REPLACEMENT as it will be inserted by `replace-match'. In other words, all back-references in the form `\\&' and `\\N' are substituted with actual strings matched by the last search. Optional FIXEDCASE, LITERAL, STRING and SUBEXP have the same meaning as for `replace-match'." (let ((match (match-string 0 string))) (save-match-data (set-match-data (mapcar (lambda (x) (if (numberp x) (- x (match-beginning 0)) x)) (match-data t))) (replace-match replacement fixedcase literal match subexp)))) Does XEmacs have anything like this? Or should I tell the Gnus folks to define the function if it's not present? thanks, mike _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-beta