From 8c2e721a69fd7d5a517393a83f4ffc189a699638 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 10 Nov 2007 21:48:16 +0000 Subject: [PATCH] (match-substitute-replacement): New function. --- lisp/subr.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index 17008e058ba..17abc70e073 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2709,6 +2709,24 @@ STRING should be given if the last search was by `string-match' on STRING." (buffer-substring-no-properties (match-beginning num) (match-end num))))) + +(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)))) + + (defun looking-back (regexp &optional limit greedy) "Return non-nil if text before point matches regular expression REGEXP. Like `looking-at' except matches before point, and is slower. -- 2.39.2