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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d691f30b0351025a3363b7422b5cd5919fa4d3b0..10b4816e9e79fd1429efd0fcb3c7d5029ab2d058 100644 (file)
--- 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 7b0c5e591c1bda8b81d028f7ff3ac68693ac89e3..285cd50e6af72478238be8294f38af4797287a31 100644 (file)
--- 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)))))))