procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Decouple "noruntime" and "cl-functions" bytecomp warnings

Browse source 
* lisp/emacs-lisp/bytecomp.el (byte-compile-eval):
Decouple "noruntime" and "cl-functions" warnings.
This commit is contained in:
Glenn Morris 2012-11-02 18:35:01 -04:00
parent d036bcdffe
commit 3a6851d9b4
2 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/bytecomp.el
View file

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