diff options
| -rw-r--r-- | duet.el | 6 | ||||
| -rw-r--r-- | tests/test-duet-pane.el | 4 |
2 files changed, 8 insertions, 2 deletions
@@ -789,10 +789,12 @@ nil means the current directory when `duet' is invoked." (define-key map (kbd "<f7>") #'duet-mkdir) (define-key map (kbd "<f8>") #'duet-delete) (define-key map (kbd "<f10>") #'duet-quit) + (define-key map (kbd "q") #'duet-quit) map) "Keymap active in DUET commander panes. -mc/Norton F-keys, taking precedence inside a pane only. dired's own chords -\(C, R, D, v, +) keep working as free aliases.") +mc/Norton F-keys, taking precedence inside a pane only. q also quits the +commander (tearing down both panes), since dired's own q only quits its one +window. dired's data chords (C, R, D, v, +) keep working as free aliases.") (define-minor-mode duet-mode "Buffer-local minor mode marking a buffer as a DUET commander pane. diff --git a/tests/test-duet-pane.el b/tests/test-duet-pane.el index 181309b..df9866b 100644 --- a/tests/test-duet-pane.el +++ b/tests/test-duet-pane.el @@ -57,6 +57,10 @@ (should (eq 'duet-delete (lookup-key duet-mode-map (kbd "<f8>")))) (should (eq 'duet-quit (lookup-key duet-mode-map (kbd "<f10>"))))) +(ert-deftest test-duet-pane-q-quits-the-commander () + "q quits the whole commander (both panes), not just dired's current window." + (should (eq 'duet-quit (lookup-key duet-mode-map (kbd "q"))))) + ;;; Minor-mode precedence (ert-deftest test-duet-pane-mode-is-buffer-local () |