From: William Casarin Date: Sat, 4 Apr 2020 20:41:34 +0000 (-0700) Subject: emacs/tree: add kill-both prefix argument to notmuch-tree-quit X-Git-Tag: archive/debian/0.30_rc0-1~63 X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=c6f43306ccb35a5e885b186fbf87394d2f036813 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 --- diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index e6a6e67f..b405e9e3 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -584,10 +584,10 @@ Shows in split pane or whole window according to value of (when (notmuch-tree-scroll-message-window) (notmuch-tree-next-matching-message))) -(defun notmuch-tree-quit () +(defun notmuch-tree-quit (&optional kill-both) "Close the split view or exit tree." - (interactive) - (unless (notmuch-tree-close-message-window) + (interactive "P") + (when (or (not (notmuch-tree-close-message-window)) kill-both) (kill-buffer (current-buffer)))) (defun notmuch-tree-close-message-window ()