diff options
| author | Glenn Morris | 2012-09-28 19:30:52 -0400 |
|---|---|---|
| committer | Glenn Morris | 2012-09-28 19:30:52 -0400 |
| commit | e60b51abaa74fa15cc97de18f90b1ee967ae62ab (patch) | |
| tree | 6466372ff5ae83cb0b66f06f5c505651f724a832 | |
| parent | 53baf48a6e99b5ff434d5177b00beda3fc9a8f71 (diff) | |
| download | emacs-e60b51abaa74fa15cc97de18f90b1ee967ae62ab.tar.gz 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.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 1 |
6 files changed, 6 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b923b6aac58..3ed9069acf2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-09-28 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/bytecomp.el (byte-compile-cl-file-p): | ||
| 4 | Only "cl.el" counts as cl these days. | ||
| 5 | |||
| 1 | 2012-09-28 Juri Linkov <juri@jurta.org> | 6 | 2012-09-28 Juri Linkov <juri@jurta.org> |
| 2 | 7 | ||
| 3 | Display archive errors in the echo area instead of inserting | 8 | Display archive errors in the echo area instead of inserting |
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." | |||
| 846 | (defun byte-compile-cl-file-p (file) | 846 | (defun byte-compile-cl-file-p (file) |
| 847 | "Return non-nil if FILE is one of the CL files." | 847 | "Return non-nil if FILE is one of the CL files." |
| 848 | (and (stringp file) | 848 | (and (stringp file) |
| 849 | (string-match "^cl\\>" (file-name-nondirectory file)))) | 849 | (string-match "^cl\\.el" (file-name-nondirectory file)))) |
| 850 | 850 | ||
| 851 | (defun byte-compile-eval (form) | 851 | (defun byte-compile-eval (form) |
| 852 | "Eval FORM and mark the functions defined therein. | 852 | "Eval FORM and mark the functions defined therein. |
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index ea5e1cf9beb..913ebf2015f 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el | |||
| @@ -689,7 +689,6 @@ PROPLIST is a list of the sort returned by `symbol-plist'. | |||
| 689 | 689 | ||
| 690 | ;; Local variables: | 690 | ;; Local variables: |
| 691 | ;; byte-compile-dynamic: t | 691 | ;; byte-compile-dynamic: t |
| 692 | ;; byte-compile-warnings: (not cl-functions) | ||
| 693 | ;; generated-autoload-file: "cl-loaddefs.el" | 692 | ;; generated-autoload-file: "cl-loaddefs.el" |
| 694 | ;; End: | 693 | ;; End: |
| 695 | 694 | ||
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 5749ff91b40..2eda628e262 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el | |||
| @@ -745,7 +745,6 @@ If ALIST is non-nil, the new pairs are prepended to it." | |||
| 745 | 745 | ||
| 746 | ;; Local variables: | 746 | ;; Local variables: |
| 747 | ;; byte-compile-dynamic: t | 747 | ;; byte-compile-dynamic: t |
| 748 | ;; byte-compile-warnings: (not cl-functions) | ||
| 749 | ;; End: | 748 | ;; End: |
| 750 | 749 | ||
| 751 | ;;; cl-lib.el ends here | 750 | ;;; cl-lib.el ends here |
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 16ac14f8fe9..56e698bec0a 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2686,7 +2686,6 @@ surrounded by (cl-block NAME ...). | |||
| 2686 | 2686 | ||
| 2687 | ;; Local variables: | 2687 | ;; Local variables: |
| 2688 | ;; byte-compile-dynamic: t | 2688 | ;; byte-compile-dynamic: t |
| 2689 | ;; byte-compile-warnings: (not cl-functions) | ||
| 2690 | ;; generated-autoload-file: "cl-loaddefs.el" | 2689 | ;; generated-autoload-file: "cl-loaddefs.el" |
| 2691 | ;; End: | 2690 | ;; End: |
| 2692 | 2691 | ||
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index b55f1df5ba5..1fa562e328a 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el | |||
| @@ -1010,7 +1010,6 @@ Atoms are compared by `eql'; cons cells are compared recursively. | |||
| 1010 | 1010 | ||
| 1011 | ;; Local variables: | 1011 | ;; Local variables: |
| 1012 | ;; byte-compile-dynamic: t | 1012 | ;; byte-compile-dynamic: t |
| 1013 | ;; byte-compile-warnings: (not cl-functions) | ||
| 1014 | ;; generated-autoload-file: "cl-loaddefs.el" | 1013 | ;; generated-autoload-file: "cl-loaddefs.el" |
| 1015 | ;; End: | 1014 | ;; End: |
| 1016 | 1015 | ||