[DRAFT PATCH] emacs: describe-prefix-bindings...

[Mark Walters]

Yes this is nice. Particularly for less common things like "open with"
for attachments and some of the stash commands.

A notmuch--describe-prefix-bindings would make it even nicer.

But I think the current version is enough of an improvement it could go
in without much change: as a first step a "stub"
notmuch--describe-prefix-bindings just doing describe-prefix-bindings
(but with a docstring :-) would be fine.

Best wishes

Mark



On Fri, 23 Aug 2013, Tomi Ollila <tomi.ollila at iki.fi> wrote:
> ---
>
> I plan to do `notmuch--describe-prefix-bindings' if there is support
> for this functionality (or no better solution exists -- I recall
> there is specific C functionality doing C-h handling...)
>
>
>  emacs/notmuch-show.el | 2 ++
>  emacs/notmuch.el      | 1 +
>  2 files changed, 3 insertions(+)
>
> diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
> index 82b70ba..6fd1f73 100644
> --- a/emacs/notmuch-show.el
> +++ b/emacs/notmuch-show.el
> @@ -1248,6 +1248,7 @@ reset based on the original query."
>      (define-key map "t" 'notmuch-show-stash-to)
>      (define-key map "l" 'notmuch-show-stash-mlarchive-link)
>      (define-key map "L" 'notmuch-show-stash-mlarchive-link-and-go)
> +    (define-key map "?" (lambda () (interactive) (describe-prefix-bindings)))
>      map)
>    "Submap for stash commands")
>  (fset 'notmuch-show-stash-map notmuch-show-stash-map)
> @@ -1258,6 +1259,7 @@ reset based on the original query."
>      (define-key map "v" 'notmuch-show-view-part)
>      (define-key map "o" 'notmuch-show-interactively-view-part)
>      (define-key map "|" 'notmuch-show-pipe-part)
> +    (define-key map "?" (lambda () (interactive) (describe-prefix-bindings)))
>      map)
>    "Submap for part commands")
>  (fset 'notmuch-show-part-map notmuch-show-part-map)
> diff --git a/emacs/notmuch.el b/emacs/notmuch.el
> index f3ce840..ac6a712 100644
> --- a/emacs/notmuch.el
> +++ b/emacs/notmuch.el
> @@ -245,6 +245,7 @@ For a mouse binding, return nil."
>  (defvar notmuch-search-stash-map
>    (let ((map (make-sparse-keymap)))
>      (define-key map "i" 'notmuch-search-stash-thread-id)
> +    (define-key map "?" (lambda () (interactive) (describe-prefix-bindings)))
>      map)
>    "Submap for stash commands")
>  (fset 'notmuch-search-stash-map notmuch-search-stash-map)
> -- 
> 1.8.0
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch