# HG changeset patch # User Richard M. Stallman # Date 769898601 0 # Node ID ce09b4fd6cc8badf711c5468ecefb97898897b40 # Parent c5abcd22ce97ab73cfe1eac85d077fafb23bed32 Add more risky-local-variable properties. diff -r c5abcd22ce97 -r ce09b4fd6cc8 lisp/files.el --- a/lisp/files.el Wed May 25 19:57:48 1994 +0000 +++ b/lisp/files.el Wed May 25 20:43:21 1994 +0000 @@ -1105,11 +1105,15 @@ "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))))