diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-11-02 18:35:01 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-11-02 18:35:01 -0400 |
| commit | 3a6851d9b459836e1a72af13f44a17d02d9fccc9 (patch) | |
| tree | 9c57394c8f39a7a1e7d28091ce3540a50a70c929 | |
| parent | d036bcdffe9acef3ca4205344e25c041ffc76482 (diff) | |
| download | emacs-3a6851d9b459836e1a72af13f44a17d02d9fccc9.tar.gz emacs-3a6851d9b459836e1a72af13f44a17d02d9fccc9.tar.bz2 emacs-3a6851d9b459836e1a72af13f44a17d02d9fccc9.zip | |
Decouple "noruntime" and "cl-functions" bytecomp warnings
* lisp/emacs-lisp/bytecomp.el (byte-compile-eval):
Decouple "noruntime" and "cl-functions" warnings.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 11 |
2 files changed, 6 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ab73a61d9e6..747bbba97c4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-11-02 Glenn Morris <rgm@gnu.org> + + * emacs-lisp/bytecomp.el (byte-compile-eval): + Decouple "noruntime" and "cl-functions" warnings. + 2012-11-01 Stephen Berman <stephen.berman@gmx.net> * play/gomoku.el (gomoku-display-statistics): Update mode line diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 7534ce5eaca..e776df4ef37 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -863,16 +863,7 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'." (let ((xs (pop hist-new)) old-autoloads) ;; Make sure the file was not already loaded before. - (unless (or (assoc (car xs) hist-orig) - ;; Don't give both the "noruntime" and - ;; "cl-functions" warning for the same function. - ;; FIXME This seems incorrect - these are two - ;; independent warnings. For example, you may be - ;; choosing to see the cl warnings but ignore them. - ;; You probably don't want to ignore noruntime in the - ;; same way. - (and (byte-compile-warning-enabled-p 'cl-functions) - (byte-compile-cl-file-p (car xs)))) + (unless (assoc (car xs) hist-orig) (dolist (s xs) (cond ((and (consp s) (eq t (car s))) |