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))
|
(save-buffer))
|
||||||
(tabulated-list-set-col 2 " " t))
|
(tabulated-list-set-col 2 " " t))
|
||||||
(error (warn "Error saving %s" buffer))))
|
(error (warn "Error saving %s" buffer))))
|
||||||
(if delete
|
(if (and delete
|
||||||
(unless (eq buffer (current-buffer))
|
(not (eq buffer (current-buffer)))
|
||||||
(kill-buffer buffer)
|
(kill-buffer buffer))
|
||||||
(tabulated-list-delete-entry))
|
(tabulated-list-delete-entry)
|
||||||
(forward-line 1)))))))))
|
(forward-line 1)))))))))
|
||||||
|
|
||||||
(defun Buffer-menu-select ()
|
(defun Buffer-menu-select ()
|
||||||
|
|
Loading…
Add table
Reference in a new issue