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)
This commit is contained in:
Devon Sean McCullough 2019-01-05 10:36:22 -05:00 committed by Eli Zaretskii
parent 0f716557c5
commit d223727a7a

View file

@ -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 ()