Mercurial > emacs
comparison lisp/files.el @ 91367:c70e45a7acfd
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 30 Jan 2008 07:57:28 +0000 |
| parents | 606f2d163a64 eda73292b257 |
| children | f38e85dfd4e3 |
comparison
equal
deleted
inserted
replaced
| 91366:86f3a8f0a3a6 | 91367:c70e45a7acfd |
|---|---|
| 2486 Each element is a cons cell (VAR . VAL), where VAR is a variable | 2486 Each element is a cons cell (VAR . VAL), where VAR is a variable |
| 2487 symbol and VAL is a value that is considered safe." | 2487 symbol and VAL is a value that is considered safe." |
| 2488 :group 'find-file | 2488 :group 'find-file |
| 2489 :type 'alist) | 2489 :type 'alist) |
| 2490 | 2490 |
| 2491 (defcustom safe-local-eval-forms nil | 2491 (defcustom safe-local-eval-forms '((add-hook 'write-file-hooks 'time-stamp)) |
| 2492 "Expressions that are considered safe in an `eval:' local variable. | 2492 "Expressions that are considered safe in an `eval:' local variable. |
| 2493 Add expressions to this list if you want Emacs to evaluate them, when | 2493 Add expressions to this list if you want Emacs to evaluate them, when |
| 2494 they appear in an `eval' local variable specification, without first | 2494 they appear in an `eval' local variable specification, without first |
| 2495 asking you for confirmation." | 2495 asking you for confirmation." |
| 2496 :group 'find-file | 2496 :group 'find-file |
| 2497 :version "22.1" | 2497 :version "22.2" |
| 2498 :type '(repeat sexp)) | 2498 :type '(repeat sexp)) |
| 2499 | 2499 |
| 2500 ;; Risky local variables: | 2500 ;; Risky local variables: |
| 2501 (mapc (lambda (var) (put var 'risky-local-variable t)) | 2501 (mapc (lambda (var) (put var 'risky-local-variable t)) |
| 2502 '(after-load-alist | 2502 '(after-load-alist |
| 2837 ;; `safe-local-variable-values'. | 2837 ;; `safe-local-variable-values'. |
| 2838 (let (risky-vars unsafe-vars) | 2838 (let (risky-vars unsafe-vars) |
| 2839 (dolist (elt result) | 2839 (dolist (elt result) |
| 2840 (let ((var (car elt)) | 2840 (let ((var (car elt)) |
| 2841 (val (cdr elt))) | 2841 (val (cdr elt))) |
| 2842 (or (eq var 'mode) | 2842 ;; Don't query about the fake variables. |
| 2843 (or (memq var '(mode unibyte coding)) | |
| 2843 (and (eq var 'eval) | 2844 (and (eq var 'eval) |
| 2844 (or (eq enable-local-eval t) | 2845 (or (eq enable-local-eval t) |
| 2845 (hack-one-local-variable-eval-safep | 2846 (hack-one-local-variable-eval-safep |
| 2846 (eval (quote val))))) | 2847 (eval (quote val))))) |
| 2847 (safe-local-variable-p var val) | 2848 (safe-local-variable-p var val) |