Commit daedb196 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(byte-compile-warnings-safe-p): Use `byte-compile-warning-types'.

Add docstring.
parent fb9e0d34
......@@ -378,17 +378,14 @@ suppress. For example, (not mapcar) will suppress warnings about mapcar."
;;;###autoload
(defun byte-compile-warnings-safe-p (x)
"Return non-nil if X is valid as a value of `byte-compile-warnings'."
(or (booleanp x)
(and (listp x)
(if (eq (car x) 'not) (setq x (cdr x))
t)
(equal (mapcar
(lambda (e)
(when (memq e '(free-vars unresolved
callargs redefine
obsolete noruntime
cl-functions interactive-only
make-local mapcar))
(when (memq e byte-compile-warning-types)
e))
x)
x))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment