emacs/tree: add kill-both prefix argument to notmuch-tree-quit

This allows us to close both windows at the same time.

Signed-off-by: William Casarin <jb55@jb55.com>
This commit is contained in:
William Casarin 2020-04-04 13:41:34 -07:00 committed by David Bremner
parent d9888b301c
commit c6f43306cc

View file

@ -584,10 +584,10 @@ Shows in split pane or whole window according to value of
(when (notmuch-tree-scroll-message-window) (when (notmuch-tree-scroll-message-window)
(notmuch-tree-next-matching-message))) (notmuch-tree-next-matching-message)))
(defun notmuch-tree-quit () (defun notmuch-tree-quit (&optional kill-both)
"Close the split view or exit tree." "Close the split view or exit tree."
(interactive) (interactive "P")
(unless (notmuch-tree-close-message-window) (when (or (not (notmuch-tree-close-message-window)) kill-both)
(kill-buffer (current-buffer)))) (kill-buffer (current-buffer))))
(defun notmuch-tree-close-message-window () (defun notmuch-tree-close-message-window ()