diff options
| author | John Paul Wallington <[email protected]> | 2003-04-29 02:56:25 +0000 |
|---|---|---|
| committer | John Paul Wallington <[email protected]> | 2003-04-29 02:56:25 +0000 |
| commit | 6640c250eb1ab2ae2f69acfd1f0676c103323fef (patch) | |
| tree | 71be84beb20928247fe5bde77a83b04ed3b11e92 | |
| parent | 118861dfa825e90eb38d11ac89dbaada87bd8fc9 (diff) | |
(byte-compile-cl-warn): Use `string-match'.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 00461c4076..461064fa72 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-04-29 John Paul Wallington <[email protected]> + + * emacs-lisp/bytecomp.el (byte-compile-cl-warn): Use `string-match'. + 2003-04-28 Dave Love <[email protected]> * 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 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) |