Mercurial > emacs
diff lisp/subr.el @ 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 | ee432d9e3bbd |
| children | 15b3e94eebd4 |
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)))))