Mercurial > emacs
changeset 68908:7d7207d65934
* files.el (hack-local-variables-confirm): Kill temp buffer after use.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 15 Feb 2006 01:32:50 +0000 |
| parents | b596dc11d441 |
| children | 775681e7a2ad |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 15 01:21:31 2006 +0000 +++ b/lisp/ChangeLog Wed Feb 15 01:32:50 2006 +0000 @@ -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>
--- a/lisp/files.el Wed Feb 15 01:21:31 2006 +0000 +++ b/lisp/files.el Wed Feb 15 01:32:50 2006 +0000 @@ -2225,10 +2225,9 @@ (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 @@ (customize-save-variable 'safe-local-variable-values safe-local-variable-values)) + (kill-buffer buf) (or (= char ?!) (= char ?\s) (= char ?y)))))))