* files.el (hack-local-variables-confirm): Kill temp buffer after use.

2 files changed, 4 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d691f30b035..10b4816e9e7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2006-02-14  Chong Yidong  <cyd@stupidchicken.com>
 
         * files.el (hack-local-variables-confirm): Allow scrolling if the
-        file variable list is too long.
+        file variable list is too long.  Kill temp buffer after use.
 
 2006-02-15  Nick Roberts  <nickrob@snap.net.nz>
 
diff --git a/lisp/files.el b/lisp/files.el
index 7b0c5e591c1..285cd50e6af 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2225,10 +2225,9 @@ Otherwise, return nil; point may be changed."
     (let ((name (if buffer-file-name
                     (file-name-nondirectory buffer-file-name)
                   (concat "buffer " (buffer-name))))
-          char)
+          prompt char)
       (save-window-excursion
-        (let ((buf (get-buffer-create "*Local Variables*"))
-              (prompt))
+        (let ((buf (get-buffer-create "*Local Variables*")))
           (pop-to-buffer buf)
           (set (make-local-variable 'cursor-type) nil)
           (erase-buffer)
@@ -2284,6 +2283,7 @@ n  -- to ignore the local variables list.
             (customize-save-variable
              'safe-local-variable-values
              safe-local-variable-values))
+          (kill-buffer buf)
           (or (= char ?!)
               (= char ?\s)
               (= char ?y)))))))