emacs: tree: use remap for the over-ridden global bindings

Following a suggestion by Austin in id:20130915153642.GY1426@mit.edu
we use remap for the over-riding bindings in pick. This means that if
the user modifies the global keymap these modifications will happen in
the tree-view versions of them too.

[tree-view overrides these to do things like close the message pane
before doing the action, so the functionality is very close to the
original common keymap function.]
This commit is contained in:
Mark Walters 2013-11-12 20:10:59 +00:00 committed by David Bremner
parent b5f93cc0db
commit 9838fe8e16

View file

@ -220,13 +220,13 @@ FUNC."
(set-keymap-parent map notmuch-common-keymap) (set-keymap-parent map notmuch-common-keymap)
;; The following override the global keymap. ;; The following override the global keymap.
;; Override because we want to close message pane first. ;; Override because we want to close message pane first.
(define-key map "?" (notmuch-tree-close-message-pane-and #'notmuch-help)) (define-key map [remap notmuch-help] (notmuch-tree-close-message-pane-and #'notmuch-help))
;; Override because we first close message pane and then close tree buffer. ;; Override because we first close message pane and then close tree buffer.
(define-key map "q" 'notmuch-tree-quit) (define-key map [remap notmuch-kill-this-buffer] 'notmuch-tree-quit)
;; Override because we close message pane after the search query is entered. ;; Override because we close message pane after the search query is entered.
(define-key map "s" 'notmuch-tree-to-search) (define-key map [remap notmuch-search] 'notmuch-tree-to-search)
;; Override because we want to close message pane first. ;; Override because we want to close message pane first.
(define-key map "m" (notmuch-tree-close-message-pane-and #'notmuch-mua-new-mail)) (define-key map [remap notmuch-mua-new-mail] (notmuch-tree-close-message-pane-and #'notmuch-mua-new-mail))
;; these use notmuch-show functions directly ;; these use notmuch-show functions directly
(define-key map "|" 'notmuch-show-pipe-message) (define-key map "|" 'notmuch-show-pipe-message)