Mercurial > emacs

changeset 70096:2820ef0bf77c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enable-local-variables): Allow :all as value. (hack-local-variables): Implement that value. (safe-local-variable-values, safe-local-eval-forms) (enable-local-variables): Mark as risky. (find-file-visit-truename, kept-old-versions): Mark safe.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Apr 2006 21:20:03 +0000
parents bcef8f45667d
children 3e313b3afda5
files lisp/files.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Tue Apr 18 21:18:27 2006 +0000
+++ b/lisp/files.el	Tue Apr 18 21:20:03 2006 +0000
@@ -452,6 +452,8 @@
 \(When you say yes to certain values, they are remembered as safe.)
 
 :safe means set the safe variables, and ignore the rest.
+:all means set all variables, whether safe or not.
+ (Don't set it permanently to :all.)
 nil means always ignore the file local variables.
 
 Any other value means always query you once whether to set them all.
@@ -464,8 +466,9 @@
 The command \\[normal-mode], when used interactively,
 always obeys file local variable specifications and the -*- line,
 and ignores this variable."
-  :type '(choice (const :tag "Obey" t)
+  :type '(choice (const :tag "Query Unsafe" t)
 		 (const :tag "Safe Only" :safe)
+		 (const :tag "Do all" :all)
 		 (const :tag "Ignore" nil)
 		 (other :tag "Query" other))
   :group 'find-file)
@@ -2283,6 +2286,7 @@
 	default-text-properties
 	display-time-string
 	enable-local-eval
+	enable-local-variables
 	eval
 	exec-directory
 	exec-path
@@ -2318,6 +2322,8 @@
 	parse-time-rules
 	process-environment
 	rmail-output-file-alist
+	safe-local-variable-values
+	safe-local-eval-forms
 	save-some-buffers-action-alist
 	special-display-buffer-names
 	standard-input
@@ -2355,9 +2361,11 @@
 	    (c-indent-level     .  integerp)
 	    (comment-column     .  integerp)
 	    (compile-command    .  string-or-null-p)
+	    (find-file-visit-truename . t)
 	    (fill-column        .  integerp)
 	    (fill-prefix        .  string-or-null-p)
 	    (indent-tabs-mode   .  t)
+	    (kept-old-versions  .  integerp)
 	    (kept-new-versions  .  integerp)
 	    (left-margin        .  t)
 	    (no-byte-compile    .  t)
@@ -2630,6 +2638,7 @@
 	      (if (or (and (eq enable-local-variables t)
 			   (null unsafe-vars)
 			   (null risky-vars))
+		      (eq enable-local-variables :all)
 		      (hack-local-variables-confirm
 		       result unsafe-vars risky-vars))
 		  (dolist (elt result)