From 6a6d7c3403e416a82705544e2d80eaf83f1b390e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 16 Feb 2004 17:03:40 +0000 Subject: [PATCH] (match-string-no-properties): Use substring-no-properties. --- lisp/subr.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 2e7b2f12ab0..641d81a6fb6 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1985,10 +1985,8 @@ Zero means the entire text matched by the whole regexp or whole string. STRING should be given if the last search was by `string-match' on STRING." (if (match-beginning num) (if string - (let ((result - (substring string (match-beginning num) (match-end num)))) - (set-text-properties 0 (length result) nil result) - result) + (substring-no-properties string (match-beginning num) + (match-end num)) (buffer-substring-no-properties (match-beginning num) (match-end num))))) -- 2.39.2