Make the binding for going to the reverse tag change jump menu the same as the binding to enter the tag-jump menu. >From the way the tag-jump menu is setup it is relatively hard for the user to configure this otherwise. --- emacs/notmuch-tag.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el index 36a498d..3cdff9b 100644 --- a/emacs/notmuch-tag.el +++ b/emacs/notmuch-tag.el @@ -485,6 +485,8 @@ begin with a \"+\" or a \"-\". If REVERSE is non-nil, replace all s))) tags)) +(defvar notmuch-search-mode-map) + (defun notmuch-tag-jump (reverse) "Create a jump menu for tagging operations. @@ -523,11 +525,17 @@ and vice versa." (push (list key name-string `(lambda () (,tag-function ',tag-change))) action-map))) - (push (list "k" (if reverse - "Forward tag changes " - "Reverse tag changes") - (apply-partially 'notmuch-tag-jump (not reverse))) - action-map) + + (let* ((binding (where-is-internal 'notmuch-tag-jump notmuch-search-mode-map 't)) + (key (if (and (vectorp binding) (= (length binding) 1)) + (string (elt binding 0)) + "k"))) + (push (list key + (if reverse + "Forward tag changes " + "Reverse tag changes") + (apply-partially 'notmuch-tag-jump (not reverse))) + action-map)) (setq action-map (nreverse action-map)) (notmuch-jump action-map "Tag: "))) -- 2.1.4