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:
parent
0f716557c5
commit
d223727a7a
1 changed files with 4 additions and 4 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Reference in a new issue