From 8c9cc63a2e21071df83aef22acd0ae362f48e10b Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Sat, 31 Oct 2009 01:04:01 -0700 Subject: [PATCH] notmuch.el: Start fleshing out notmuch-search-mode with a custom keymap All we have here so far is 'n' and 'p' for going to next and previous lines respectively. --- notmuch.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/notmuch.el b/notmuch.el index 86b93991..32c2887b 100644 --- a/notmuch.el +++ b/notmuch.el @@ -31,11 +31,20 @@ ; Authors: Roland McGrath , ; Daniel Pfeiffer +(defvar notmuch-search-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "n" 'next-line) + (define-key map "p" 'previous-line) + map) + "Keymap for \"notmuch search\" buffers.") +(fset 'notmuch-search-mode-map notmuch-search-mode-map) + ;;;###autoload (defun notmuch-search-mode () "Major mode for handling the output of notmuch search" (interactive) (kill-all-local-variables) + (use-local-map notmuch-search-mode-map) (setq major-mode 'notmuch-search-mode mode-name "notmuch-search") (setq buffer-read-only t)) @@ -45,7 +54,7 @@ (interactive "sNotmuch search: ") (let ((buffer (get-buffer-create (concat "*notmuch-search-" query)))) (switch-to-buffer buffer) - (setq buffer-read-only t) + (notmuch-search-mode) (let ((proc (get-buffer-process (current-buffer))) (inhibit-read-only t)) (if proc @@ -61,5 +70,6 @@ (defun notmuch () "Run notmuch to display all mail with tag of 'inbox'" (interactive) - (require 'compile) (notmuch-search "tag:inbox")) + +(provide 'notmuch)