diff options
| author | Mark Walters <markwalters1009@gmail.com> | 2016-10-06 22:59:00 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2016-10-07 22:35:42 -0300 |
| commit | 297d091e1ca8f5b1e144d2be0a8e0a7c271634a8 (patch) | |
| tree | 5b2001e4599c4ce6617112ed5841bdcbde4f9f20 | |
| parent | ba8fba3d6aa37b1c7698137f6d577309335981ae (diff) | |
emacs: tag-jump: make k binding for the reverse tag change map
Currently, by default k invokes the tag-jump menu, and following it by
r invokes the reverse tag change jump menu. This is awkward to type
(e.g. k r u for undoing a -unread change). This changes it so that k
followed by k invokes the reverse menu. We make the key for the
reverse map a variable as that makes it possible for a user to
change it by editing their .emacs file.
| -rw-r--r-- | emacs/notmuch-tag.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el index 49662c20..c03027f7 100644 --- 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)) |