From 6640c250eb1ab2ae2f69acfd1f0676c103323fef Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 29 Apr 2003 02:56:25 +0000 Subject: (byte-compile-cl-warn): Use `string-match'. --- lisp/emacs-lisp/bytecomp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 7af112e691..6092bea6da 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) -- cgit v1.2.3