* 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:
parent
53baf48a6e
commit
e60b51abaa
6 changed files with 6 additions and 5 deletions
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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:
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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:
|
||||
|
||||
|
|
|
@ -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:
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue