[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Moved safe-local-variable properties from `files.el'
From: |
Reiner Steib |
Subject: |
Re: Moved safe-local-variable properties from `files.el' |
Date: |
Fri, 12 May 2006 14:31:03 +0200 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux) |
On Fri, May 12 2006, Richard Stallman wrote:
> If you would like to correct the property predicates
> for these variables, that would be useful.
I've committed a correction for `version-control'.
For `byte-compile-warnings', I'll commit the following, unless someone
suggests a better solution:
--8<---------------cut here---------------start------------->8---
--- bytecomp.el 11 May 2006 15:50:13 +0200 2.184
+++ bytecomp.el 12 May 2006 14:24:00 +0200
@@ -357,7 +357,20 @@
(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
--8<---------------cut here---------------end--------------->8---
I don't know what to do WRT `no-update-autoloads':
>> - `no-update-autoloads':
>> I couldn't find a defvar/defcustom and it's not documented in
>> (info "(emacs)Specifying File Variables").
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/