debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-01-03 15:21:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: bind "s" to `notmuch-hello-search' in notmuch-hello buffer

Browse source 
`notmuch-hello-search' uses `notmuch-search' function but refreshes
notmuch-hello buffer when the search buffer is closed.
This commit is contained in:
Dmitry Kurochkin 2012-01-25 05:10:54 +04:00 committed by David Bremner
parent bc267b70b0
commit e6e10b82c9
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
emacs/notmuch-hello.el
View file

@ -172,7 +172,8 @@ International Bureau of Weights and Measures."
(match-string 1 search) (match-string 1 search)
search)) search))
(defun notmuch-hello-search (search) (defun notmuch-hello-search (&optional search)
(interactive)
(unless (null search) (unless (null search)
(setq search (notmuch-hello-trim search)) (setq search (notmuch-hello-trim search))
(let ((history-delete-duplicates t)) (let ((history-delete-duplicates t))
@ -343,7 +344,7 @@ should be. Returns a cons cell `(tags-per-line width)'."
(define-key map "G" 'notmuch-hello-poll-and-update) (define-key map "G" 'notmuch-hello-poll-and-update)
(define-key map (kbd "<C-tab>") 'widget-backward) (define-key map (kbd "<C-tab>") 'widget-backward)
(define-key map "m" 'notmuch-mua-new-mail) (define-key map "m" 'notmuch-mua-new-mail)
(define-key map "s" 'notmuch-search) (define-key map "s" 'notmuch-hello-search)
map) map)
"Keymap for \"notmuch hello\" buffers.") "Keymap for \"notmuch hello\" buffers.")
(fset 'notmuch-hello-mode-map notmuch-hello-mode-map) (fset 'notmuch-hello-mode-map notmuch-hello-mode-map)