diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-03-31 11:02:04 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-03-31 11:02:04 +0000 |
| commit | daedb1963502ac930b3c52ea5b346fbd89967b0d (patch) | |
| tree | 3fa664d3cb3af0da71e1028c9b3407ec8a0a37b8 /lisp/emacs-lisp | |
| parent | fb9e0d34948fd981f16072c28026618859f5d79a (diff) | |
| download | emacs-daedb1963502ac930b3c52ea5b346fbd89967b0d.tar.gz emacs-daedb1963502ac930b3c52ea5b346fbd89967b0d.tar.bz2 emacs-daedb1963502ac930b3c52ea5b346fbd89967b0d.zip | |
(byte-compile-warnings-safe-p): Use `byte-compile-warning-types'.
Add docstring.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2aeefc38e8c..1ba4de2f354 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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)))) |