From 0a158521c591c4e81e544ef60956543b0d59e86d Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 15 Feb 2006 01:32:50 +0000 Subject: [PATCH] * files.el (hack-local-variables-confirm): Kill temp buffer after use. --- lisp/ChangeLog | 2 +- lisp/files.el | 6 +++--- 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 * 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 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))))))) -- 2.39.2