[PATCH] emacs: tag-jump: make k binding for the reverse tag change map
Tomi Ollila
tomi.ollila at iki.fi
Fri Oct 7 13:21:23 PDT 2016
On Fri, Oct 07 2016, Mark Walters <markwalters1009 at gmail.com> wrote:
> 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.
> ---
LGTM.
>
> I think this is the right solution (suggested by Tomi on
> irc). Previously it was not possible for the user to configure this
> binding without some substantial lisp, or patching the source.
>
> Best wishes
>
> Mark
>
>
>
> id:1475765990-15031-1-git-send-email-markwalters1009 at gmail.com
>
>
> emacs/notmuch-tag.el | 10 +++++++---
> 1 file changed, 7 insertions(+), 3 deletions(-)
>
> diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el
> index 49662c2..c03027f 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))
> --
> 2.1.4
>
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> https://notmuchmail.org/mailman/listinfo/notmuch
More information about the notmuch
mailing list