From 0027258d1ea714b2eebc3ad92770f954a072da8c Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Tue, 16 May 2006 10:05:09 +0000 Subject: [PATCH] (byte-compile-warnings-safe-p): New function. (byte-compile-warnings): Fix safe-local-variable property. --- lisp/ChangeLog | 6 ++++++ lisp/emacs-lisp/bytecomp.el | 15 ++++++++++++++- 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4150e1d3adb..29724b72748 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2006-05-16 Reiner Steib + + * emacs-lisp/bytecomp.el (byte-compile-warnings-safe-p): New + function. + (byte-compile-warnings): Fix safe-local-variable property. + 2006-05-16 Ken Manheimer * allout.el (allout-show-bodies, allout-old-style-prefixes) 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 -- 2.11.4.GIT