summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/bytecomp.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2012-09-28 19:30:52 -0400
committerGlenn Morris <rgm@gnu.org>2012-09-28 19:30:52 -0400
commite60b51abaa74fa15cc97de18f90b1ee967ae62ab (patch)
tree6466372ff5ae83cb0b66f06f5c505651f724a832 /lisp/emacs-lisp/bytecomp.el
parent53baf48a6e99b5ff434d5177b00beda3fc9a8f71 (diff)
downloademacs-e60b51abaa74fa15cc97de18f90b1ee967ae62ab.tar.gz
emacs-e60b51abaa74fa15cc97de18f90b1ee967ae62ab.tar.bz2
emacs-e60b51abaa74fa15cc97de18f90b1ee967ae62ab.zip
* bytecomp.el (byte-compile-cl-file-p): Only "cl.el" counts as cl these days.
Remove no longer appropriate file-local suppression of CL warnings in lisp/emacs-lisp/cl-*.el files.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
-rw-r--r--lisp/emacs-lisp/bytecomp.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7a229750178..d49e56bd2ba 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -846,7 +846,7 @@ CONST2 may be evaluated multiple times."
(defun byte-compile-cl-file-p (file)
"Return non-nil if FILE is one of the CL files."
(and (stringp file)
- (string-match "^cl\\>" (file-name-nondirectory file))))
+ (string-match "^cl\\.el" (file-name-nondirectory file))))
(defun byte-compile-eval (form)
"Eval FORM and mark the functions defined therein.