* 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.
This commit is contained in:
Glenn Morris 2012-09-28 19:30:52 -04:00
parent 53baf48a6e
commit e60b51abaa
6 changed files with 6 additions and 5 deletions

View file

@ -1,3 +1,8 @@
2012-09-28 Glenn Morris <rgm@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-cl-file-p):
Only "cl.el" counts as cl these days.
2012-09-28 Juri Linkov <juri@jurta.org>
Display archive errors in the echo area instead of inserting

View file

@ -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.

View file

@ -689,7 +689,6 @@ PROPLIST is a list of the sort returned by `symbol-plist'.
;; Local variables:
;; byte-compile-dynamic: t
;; byte-compile-warnings: (not cl-functions)
;; generated-autoload-file: "cl-loaddefs.el"
;; End:

View file

@ -745,7 +745,6 @@ If ALIST is non-nil, the new pairs are prepended to it."
;; Local variables:
;; byte-compile-dynamic: t
;; byte-compile-warnings: (not cl-functions)
;; End:
;;; cl-lib.el ends here

View file

@ -2686,7 +2686,6 @@ surrounded by (cl-block NAME ...).
;; Local variables:
;; byte-compile-dynamic: t
;; byte-compile-warnings: (not cl-functions)
;; generated-autoload-file: "cl-loaddefs.el"
;; End:

View file

@ -1010,7 +1010,6 @@ Atoms are compared by `eql'; cons cells are compared recursively.
;; Local variables:
;; byte-compile-dynamic: t
;; byte-compile-warnings: (not cl-functions)
;; generated-autoload-file: "cl-loaddefs.el"
;; End: