diff options
| author | William Casarin <jb55@jb55.com> | 2020-04-04 13:41:34 -0700 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2020-04-06 07:15:27 -0300 |
| commit | c6f43306ccb35a5e885b186fbf87394d2f036813 (patch) | |
| tree | 425352c532dedb2171fb31e58d05f5c7e306c11d | |
| parent | d9888b301c6e619daaa6e507c343af0ffc726b16 (diff) | |
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>
| -rw-r--r-- | emacs/notmuch-tree.el | 6 |
1 files changed, 3 insertions, 3 deletions
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 () |