tools/magit: fix +magit/quit & default display fn

When used with magit-display-buffer-traditional, q wouldn't close the
window, just kill the buffer inside.
This commit is contained in:
Henrik Lissner 2018-10-07 11:12:51 -04:00
parent a078e3f4b2
commit f0465f22cc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -53,9 +53,13 @@
"Clean up magit buffers after quitting `magit-status' and refresh version
control in buffers."
(interactive)
(if (cdr (delq nil (mapcar (lambda (win) (with-selected-window win (eq major-mode 'magit-status-mode)))
(window-list))))
(quit-window)
(quit-window)
(unless (cdr
(delq nil
(mapcar (lambda (win)
(with-selected-window win
(eq major-mode 'magit-status-mode)))
(window-list))))
(mapc #'+magit--kill-buffer (magit-mode-get-buffers))
(dolist (buffer (buffer-list))
(with-current-buffer buffer