From e6e10b82c98fbb68db45a57d2167af6032934ebc Mon Sep 17 00:00:00 2001 From: Dmitry Kurochkin Date: Wed, 25 Jan 2012 05:10:54 +0400 Subject: [PATCH] emacs: bind "s" to `notmuch-hello-search' in notmuch-hello buffer `notmuch-hello-search' uses `notmuch-search' function but refreshes notmuch-hello buffer when the search buffer is closed. --- emacs/notmuch-hello.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 6970bc34..ab65e369 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -172,7 +172,8 @@ International Bureau of Weights and Measures." (match-string 1 search) search)) -(defun notmuch-hello-search (search) +(defun notmuch-hello-search (&optional search) + (interactive) (unless (null search) (setq search (notmuch-hello-trim search)) (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 (kbd "") 'widget-backward) (define-key map "m" 'notmuch-mua-new-mail) - (define-key map "s" 'notmuch-search) + (define-key map "s" 'notmuch-hello-search) map) "Keymap for \"notmuch hello\" buffers.") (fset 'notmuch-hello-mode-map notmuch-hello-mode-map) -- 2.26.2