# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1076951020 0
# Node ID 342806d7b32bc1f36bb3f1aa4bc95cb504905724
# Parent  c164b0961497352fda22fcb800f0d04a3235e455
(match-string-no-properties): Use substring-no-properties.

diff -r c164b0961497 -r 342806d7b32b lisp/subr.el
--- a/lisp/subr.el	Mon Feb 16 16:51:39 2004 +0000
+++ b/lisp/subr.el	Mon Feb 16 17:03:40 2004 +0000
@@ -1985,10 +1985,8 @@
 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)))))