[Emacs-diffs] emacs-26 d223727: Fix UI of Buffer-menu

[Eli Zaretskii]

branch: emacs-26
commit d223727a7a15048b9963ebeb83b15962454aff0f
Author: Devon Sean McCullough <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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)
---
 lisp/buff-menu.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index f0b96b0..5f88986 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 ()