From 70b49e57821df55da3e5797b2d79578731425f34 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 1 Sep 2007 16:24:03 +0000 Subject: [PATCH] (hack-local-variables-confirm): Rename arg VARS to ALL-VARS. Add doc string. --- lisp/ChangeLog | 5 +++++ lisp/files.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02bd3a9d8f5..589e69f2d41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-09-01 Richard Stallman + + * files.el (hack-local-variables-confirm): Rename arg VARS to ALL-VARS. + Add doc string. + 2007-08-30 Richard Stallman * speedbar.el (speedbar-frame-reposition-smartly) diff --git a/lisp/files.el b/lisp/files.el index bc482c8f37b..fd0c29260b5 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2486,7 +2486,11 @@ asking you for confirmation." (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 @@ n -- to ignore the local variables list.") ! -- 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) -- 2.39.2