emacs: tag-jump: make k binding for the reverse tag change map

[notmuch] / emacs / notmuch-tag.el

diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el
index 49662c2034ce3c4d13f8bb980695b14ae5541616..c03027f705f631fa232aa56c01c980ffded40a3a 100644 (file)
--- a/emacs/notmuch-tag.el
+++ b/emacs/notmuch-tag.el
@@ -485,6 +485,9 @@ begin with a \"+\" or a \"-\". If REVERSE is non-nil, replace all
                s)))
          tags))
 
+(defvar notmuch-tag-jump-reverse-key "k"
+  "The key in tag-jump to switch to the reverse tag changes.")
+
 (defun notmuch-tag-jump (reverse)
   "Create a jump menu for tagging operations.
 
@@ -523,9 +526,10 @@ and vice versa."
        (push (list key name-string
                     `(lambda () (,tag-function ',tag-change)))
              action-map)))
-    (push (list "r" (if reverse
-                       "Forward tag changes "
-                     "Reverse tag changes")
+    (push (list notmuch-tag-jump-reverse-key
+               (if reverse
+                   "Forward tag changes "
+                 "Reverse tag changes")
                (apply-partially 'notmuch-tag-jump (not reverse)))
          action-map)
     (setq action-map (nreverse action-map))