From: Eli Zaretskii <eliz@is.elta.co.il>
Date: Mon, 16 Feb 2004 17:03:40 +0000 (+0000)
Subject: (match-string-no-properties): Use substring-no-properties.
X-Git-Tag: ttn-vms-21-2-B4~7595
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a6d7c3403e416a82705544e2d80eaf83f1b390e;p=emacs.git

(match-string-no-properties): Use substring-no-properties.
---

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)))))