match-string-no-properties simplification

[Jesper Harder]

`match-string-no-properties' can be written simpler by using
`substring-no-properties' rather than `substring' followed by
`set-text-properties'.


2004-01-11  Jesper Harder  <address@hidden>

        * subr.el (match-string-no-properties): Use substring-no-properties.

*** /home/harder/emacs/lisp/subr.el.~1.375.~    Wed Jan  7 15:41:15 2004
--- /home/harder/emacs/lisp/subr.el     Sun Jan 11 22:33:51 2004
***************
*** 1964,1973 ****
  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)
        (buffer-substring-no-properties (match-beginning num)
                                        (match-end num)))))
  
--- 1964,1971 ----
  STRING should be given if the last search was by `string-match' on STRING."
    (if (match-beginning num)
        (if string
!         (substring-no-properties string (match-beginning num)
!                                  (match-end num))
        (buffer-substring-no-properties (match-beginning num)
                                        (match-end num)))))