# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1051584819 0
# Node ID 680d6365cfeaab28cbae26eb171b77ff0638aba6
# Parent  2acee3c767446b935bfd2cca7ae4e2b9eee133bd
(byte-compile-cl-warn): Use `string-match'.

diff -r 2acee3c76744 -r 680d6365cfea lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Mon Apr 28 22:05:17 2003 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Tue Apr 29 02:53:39 2003 +0000
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.130 $")
+(defconst byte-compile-version "$Revision: 2.131 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1272,7 +1272,7 @@
 	     ;; here than caaar and friends.
 	     (not (and (eq (get func 'byte-compile)
 			   'cl-byte-compile-compiler-macro)
-		       (match-string "\\`c[ad]+r\\'" (symbol-name func)))))
+		       (string-match "\\`c[ad]+r\\'" (symbol-name func)))))
 	(byte-compile-warn "Function `%s' from cl package called at runtime"
 			   func)))
   form)