procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-compile-warnings-safe-p): New

Browse source 
function.
(byte-compile-warnings): Fix safe-local-variable property.
This commit is contained in:
Reiner Steib 2006-05-16 10:05:09 +00:00
parent 64686e6da6
commit 0027258d1e
2 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/bytecomp.el
View file

@ -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