From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 1 Sep 2007 16:24:03 +0000 (+0000)
Subject: (hack-local-variables-confirm): Rename arg VARS to ALL-VARS.  Add doc string.
X-Git-Tag: emacs-pretest-22.1.90~876
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70b49e57821df55da3e5797b2d79578731425f34;p=emacs.git

(hack-local-variables-confirm): Rename arg VARS to ALL-VARS.  Add doc string.
---

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  <rms@gnu.org>
+
+	* files.el (hack-local-variables-confirm): Rename arg VARS to ALL-VARS.
+	Add doc string.
+
 2007-08-30  Richard Stallman  <rms@gnu.org>
 
 	* 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)