Mercurial > emacs
changeset 78709:fca68e956b9b
(hack-local-variables-confirm): Rename arg VARS to ALL-VARS. Add doc string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 01 Sep 2007 16:23:43 +0000 |
| parents | 960741d0ec65 |
| children | 009fdbf78aa5 |
| files | lisp/files.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Fri Aug 31 09:33:28 2007 +0000 +++ b/lisp/files.el Sat Sep 01 16:23:43 2007 +0000 @@ -2486,7 +2486,11 @@ (put 'c-set-style 'safe-local-eval-function t) -(defun hack-local-variables-confirm (vars unsafe-vars risky-vars) +(defun hack-local-variables-confirm (all-vars unsafe-vars risky-vars) + "Get confirmation before setting up local variable values. +ALL-VARS is the list of all variables to be set up. +UNSAFE-VARS is the list of those that aren't marked as safe or risky. +RISKY-VARS is the list of those that are marked as risky." (if noninteractive nil (let ((name (if buffer-file-name @@ -2517,7 +2521,7 @@ ! -- to apply the local variables list, and permanently mark these values (*) as safe (in the future, they will be set automatically.)\n\n") (insert "\n\n")) - (dolist (elt vars) + (dolist (elt all-vars) (cond ((member elt unsafe-vars) (insert " * ")) ((member elt risky-vars)