Mercurial > emacs
changeset 53994:342806d7b32b
(match-string-no-properties): Use substring-no-properties.
| author | Eli Zaretskii <eliz@is.elta.co.il> |
|---|---|
| date | Mon, 16 Feb 2004 17:03:40 +0000 |
| parents | c164b0961497 |
| children | dbb1852d8448 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))