Mercurial > emacs
comparison lisp/files.el @ 88079:eda73292b257
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1024
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 30 Jan 2008 07:11:04 +0000 |
| parents | 5d58981e6690 c293ff04d6e9 |
| children | 178e852f7ddf c70e45a7acfd |
comparison
equal
deleted
inserted
replaced
| 88078:3f6a9fe50cce | 88079:eda73292b257 |
|---|---|
| 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) |