emacs: Bind "s" to notmuch-search in hello-mode

Since there is now no difference between notmuch-hello-search and
notmuch-search when called interactively, bind "s" to notmuch-search
in notmuch-hello-mode-map.  Now all modes bind "s" this way.

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 24ac1c6b6d1966855396890fbc570385fa992ad5..94cc4b53cf50251f2ebdfcfdb15f843cf57a3fd1 100644 (file)
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -263,7 +263,6 @@ afterwards.")
     search))
 
 (defun notmuch-hello-search (&optional search)
     search))
 
 (defun notmuch-hello-search (&optional search)

-  (interactive)

   (unless (null search)
     (setq search (notmuch-hello-trim search))
     (let ((history-delete-duplicates t))
   (unless (null search)
     (setq search (notmuch-hello-trim search))
     (let ((history-delete-duplicates t))


@@ -533,7 +532,7 @@ Such a list can be computed with `notmuch-hello-query-counts'."
     (define-key map "G" 'notmuch-hello-poll-and-update)
     (define-key map (kbd "<C-tab>") 'widget-backward)
     (define-key map "m" 'notmuch-mua-new-mail)
     (define-key map "G" 'notmuch-hello-poll-and-update)
     (define-key map (kbd "<C-tab>") 'widget-backward)
     (define-key map "m" 'notmuch-mua-new-mail)

-    (define-key map "s" 'notmuch-hello-search)
+    (define-key map "s" 'notmuch-search)

     map)
   "Keymap for \"notmuch hello\" buffers.")
 (fset 'notmuch-hello-mode-map notmuch-hello-mode-map)
     map)
   "Keymap for \"notmuch hello\" buffers.")
 (fset 'notmuch-hello-mode-map notmuch-hello-mode-map)