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 | 0027258d1ea714b2eebc3ad92770f954a072da8c (patch) | |
| tree | 8a2b056af5d86523bb8e160662a3240982ec3cfd /lisp/emacs-lisp | |
| parent | 64686e6da6819719db0094619e0b3d7b52dfc4c4 (diff) | |
| download | emacs-0027258d1ea714b2eebc3ad92770f954a072da8c.tar.gz emacs-0027258d1ea714b2eebc3ad92770f954a072da8c.tar.bz2 emacs-0027258d1ea714b2eebc3ad92770f954a072da8c.zip | |
(byte-compile-warnings-safe-p): New
function.
(byte-compile-warnings): Fix safe-local-variable property.
Diffstat (limited to 'lisp/emacs-lisp')
| -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 |