From: Richard M. Stallman Date: Wed, 25 May 1994 20:43:21 +0000 (+0000) Subject: Add more risky-local-variable properties. X-Git-Tag: emacs-19.34~8171 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6fa3ee3c56d8c7d33ea22ab55aadfb6a396a2a7;p=emacs.git Add more risky-local-variable properties. --- diff --git a/lisp/files.el b/lisp/files.el index da51f543149..c2f945d5682 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1105,11 +1105,15 @@ If `enable-local-variables' is nil, this function does not check for a "Variables to be ignored in a file's local variable spec.") ;; Get confirmation before setting these variables as locals in a file. +(put 'enable-local-eval 'risky-local-variable t) (put 'eval 'risky-local-variable t) (put 'file-name-handler-alist 'risky-local-variable t) (put 'minor-mode-map-alist 'risky-local-variable t) (put 'after-load-alist 'risky-local-variable t) - +(put 'buffer-file-name 'risky-local-variable t) +(put 'buffer-auto-save-file-name 'risky-local-variable t) +(put 'buffer-file-truename 'risky-local-variable t) + (defun hack-one-local-variable-quotep (exp) (and (consp exp) (eq (car exp) 'quote) (consp (cdr exp))))