From c24360e59e90893f1edf2a95289c1091ccd98975 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Mon, 30 Nov 2009 16:44:05 -0800 Subject: [PATCH] notmuch.el: Don't document mouse actions in notmuch-help. The concept behind direct manipulation with mouse clicks is that documentation shouldn't be necessary, (though my original motivation here was simply that "" was exceeding my TAB width. This does cause a blank line to be added for the mouse binding. This isn't directly desired, but as long as it's there we put it at a natural place for a separator. --- notmuch.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/notmuch.el b/notmuch.el index ddfcdc2a..40d78753 100644 --- a/notmuch.el +++ b/notmuch.el @@ -789,10 +789,15 @@ which this thread was originally shown." (defun notmuch-substitute-one-command-key (binding) "For a key binding, return a string showing a human-readable representation -of the key as well as the first line of documentation from the bound function." - (concat (format-kbd-macro (vector (car binding))) - "\t" - (notmuch-documentation-first-line (cdr binding)))) +of the key as well as the first line of documentation from the bound function. + +For a mouse binding, return nil." + (let ((key (car binding))) + (if (mouse-event-p key) + nil + (concat (format-kbd-macro (vector key)) + "\t" + (notmuch-documentation-first-line (cdr binding)))))) (defun notmuch-substitute-command-keys (doc) "Like `substitute-command-keys' but with documentation, not function names." @@ -939,11 +944,11 @@ thread from that buffer can be show when done with this one)." (define-key map "=" 'notmuch-search-refresh-view) (define-key map "t" 'notmuch-search-filter-by-tag) (define-key map "f" 'notmuch-search-filter) + (define-key map [mouse-1] 'notmuch-search-show-thread) (define-key map "*" 'notmuch-search-operate-all) (define-key map "a" 'notmuch-search-archive-thread) (define-key map "-" 'notmuch-search-remove-tag) (define-key map "+" 'notmuch-search-add-tag) - (define-key map [mouse-1] 'notmuch-search-show-thread) (define-key map (kbd "RET") 'notmuch-search-show-thread) map) "Keymap for \"notmuch search\" buffers.")