diff options
author | Carl Worth <cworth@cworth.org> | 2009-10-31 01:04:01 -0700 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-10-31 01:06:10 -0700 |
commit | 8c9cc63a2e21071df83aef22acd0ae362f48e10b (patch) | |
tree | 18b89d9d22e9363e486bb6be8e9a2922523beb3d /notmuch.el | |
parent | 095a5ac382fe4fb78e7051826b56da05c4a92f26 (diff) |
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.
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -31,11 +31,20 @@ ; Authors: Roland McGrath <roland@gnu.org>, ; Daniel Pfeiffer <occitan@esperanto.org> +(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) |