Commit d223727a authored by Devon Sean McCullough's avatar Devon Sean McCullough Committed by Eli Zaretskii

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.
parent 0f716557
Pipeline #515 passed with stage
in 27 minutes and 11 seconds
...@@ -475,10 +475,10 @@ Buffers marked with \\<Buffer-menu-mode-map>`\\[Buffer-menu-delete]' are deleted ...@@ -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 ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment