diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2006-05-16 10:05:09 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2006-05-16 10:05:09 +0000 |
| commit | 9c3c4175237f19cfbb3e00b029e50422a778cf3a (patch) | |
| tree | 757e92e027c1529fab6c901ca41e088b016e6d05 /lisp/emacs-lisp/bytecomp.el | |
| parent | 0cdb6814658ed12d62801f0061694b67224a88bc (diff) | |
| download | emacs-9c3c4175237f19cfbb3e00b029e50422a778cf3a.tar.gz | |
(byte-compile-warnings-safe-p): New
function.
(byte-compile-warnings): Fix safe-local-variable property.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 01f9373af68..ebb2f11764a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -357,7 +357,20 @@ Elements of the list may be be: (const callargs) (const redefine) (const obsolete) (const noruntime) (const cl-functions) (const interactive-only)))) -;;;###autoload(put 'byte-compile-warnings 'safe-local-variable 'booleanp) +(put 'byte-compile-warnings 'safe-local-variable 'byte-compile-warnings-safe-p) +;;;###autoload +(defun byte-compile-warnings-safe-p (x) + (or (booleanp x) + (and (listp x) + (equal (mapcar + (lambda (e) + (when (memq e '(free-vars unresolved + callargs redefine + obsolete noruntime + cl-functions interactive-only)) + e)) + x) + x)))) (defvar byte-compile-interactive-only-functions '(beginning-of-buffer end-of-buffer replace-string replace-regexp |