(byte-compile-warnings-safe-p): New
function. (byte-compile-warnings): Fix safe-local-variable property.
This commit is contained in:
parent
64686e6da6
commit
0027258d1e
2 changed files with 20 additions and 1 deletions
lisp
|
@ -1,3 +1,9 @@
|
||||||
|
2006-05-16 Reiner Steib <Reiner.Steib@gmx.de>
|
||||||
|
|
||||||
|
* emacs-lisp/bytecomp.el (byte-compile-warnings-safe-p): New
|
||||||
|
function.
|
||||||
|
(byte-compile-warnings): Fix safe-local-variable property.
|
||||||
|
|
||||||
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
|
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
|
||||||
|
|
||||||
* allout.el (allout-show-bodies, allout-old-style-prefixes)
|
* allout.el (allout-show-bodies, allout-old-style-prefixes)
|
||||||
|
|
|
@ -357,7 +357,20 @@ Elements of the list may be be:
|
||||||
(const callargs) (const redefine)
|
(const callargs) (const redefine)
|
||||||
(const obsolete) (const noruntime)
|
(const obsolete) (const noruntime)
|
||||||
(const cl-functions) (const interactive-only))))
|
(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
|
(defvar byte-compile-interactive-only-functions
|
||||||
'(beginning-of-buffer end-of-buffer replace-string replace-regexp
|
'(beginning-of-buffer end-of-buffer replace-string replace-regexp
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue