diff options
| author | Devon Sean McCullough <Emacs-Hacker2018@jovi.net> | 2019-01-05 10:36:22 -0500 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-01-12 13:51:50 +0200 |
| commit | d223727a7a15048b9963ebeb83b15962454aff0f (patch) | |
| tree | 2ee288d536a1a4f65f6d12886df50a46f77957bf /lisp/buff-menu.el | |
| parent | 0f716557c529479a7d86d751e972ebdae1bec5e1 (diff) | |
| download | emacs-d223727a7a15048b9963ebeb83b15962454aff0f.tar.gz | |
Fix UI of Buffer-menu
* lisp/buff-menu.el (Buffer-menu-execute): Don't remove
entries of buffers whose killing the user didn't confirm.
(Bug#33669)
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index f0b96b0c5ea..5f889866361 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -475,10 +475,10 @@ Buffers marked with \\<Buffer-menu-mode-map>`\\[Buffer-menu-delete]' are deleted (save-buffer)) (tabulated-list-set-col 2 " " t)) (error (warn "Error saving %s" buffer)))) - (if delete - (unless (eq buffer (current-buffer)) - (kill-buffer buffer) - (tabulated-list-delete-entry)) + (if (and delete + (not (eq buffer (current-buffer))) + (kill-buffer buffer)) + (tabulated-list-delete-entry) (forward-line 1))))))))) (defun Buffer-menu-select () |