debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Don't document mouse actions in notmuch-help.

Browse source 
The concept behind direct manipulation with mouse clicks is that
documentation shouldn't be necessary, (though my original motivation
here was simply that "<mouse-1>" 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.
This commit is contained in:
Carl Worth 2009-11-30 16:44:05 -08:00
parent 161b2738e1
commit c24360e59e
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
notmuch.el
View file

@ -789,10 +789,15 @@ which this thread was originally shown."
(defun notmuch-substitute-one-command-key (binding) (defun notmuch-substitute-one-command-key (binding)
"For a key binding, return a string showing a human-readable representation "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." of the key as well as the first line of documentation from the bound function.
(concat (format-kbd-macro (vector (car binding)))
"\t" For a mouse binding, return nil."
(notmuch-documentation-first-line (cdr binding)))) (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) (defun notmuch-substitute-command-keys (doc)
"Like `substitute-command-keys' but with documentation, not function names." "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 "=" 'notmuch-search-refresh-view)
(define-key map "t" 'notmuch-search-filter-by-tag) (define-key map "t" 'notmuch-search-filter-by-tag)
(define-key map "f" 'notmuch-search-filter) (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 "*" 'notmuch-search-operate-all)
(define-key map "a" 'notmuch-search-archive-thread) (define-key map "a" 'notmuch-search-archive-thread)
(define-key map "-" 'notmuch-search-remove-tag) (define-key map "-" 'notmuch-search-remove-tag)
(define-key map "+" 'notmuch-search-add-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) (define-key map (kbd "RET") 'notmuch-search-show-thread)
map) map)
"Keymap for \"notmuch search\" buffers.") "Keymap for \"notmuch search\" buffers.")