From: John Paul Wallington <jpw@pobox.com>
Date: Tue, 29 Apr 2003 02:56:25 +0000 (+0000)
Subject: (byte-compile-cl-warn): Use `string-match'.
X-Git-Tag: ttn-vms-21-2-B4~10397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6640c250eb1ab2ae2f69acfd1f0676c103323fef;p=emacs.git

(byte-compile-cl-warn): Use `string-match'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00461c40769..461064fa721 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-29  John Paul Wallington  <jpw@gnu.org>
+
+	* emacs-lisp/bytecomp.el (byte-compile-cl-warn): Use `string-match'.
+
 2003-04-28  Dave Love  <fx@gnu.org>
 
 	* emacs-lisp/bytecomp.el (byte-compile-cl-warn): Avoid cl warnings
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7af112e6918..6092bea6da0 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -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 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
 	     ;; 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)