diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-03 16:55:20 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-03 16:55:20 -0800 |
commit | 50f260a1a3a626eccd5d22e30795f18ac994a608 (patch) | |
tree | 56c76f2bf6fec42b898fc28f85517cb80ab3007e /notmuch.el | |
parent | d47fc172636302af74fc4543ffc3ebd99801e9b3 (diff) |
notmuch.el: Add bindings for scrolling to notmuch-search mode.
We turn on the scroll-preserve-screen-position option which seems
like what's desired here, (though that's not what I normally use
when editing files---but I think scrolling through a list of email
threads is different).
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -322,6 +322,7 @@ Does nothing if already on the first message in the buffer." (defvar notmuch-search-mode-map (let ((map (make-sparse-keymap))) (define-key map "a" 'notmuch-search-archive-thread) + (define-key map "b" 'scroll-down) (define-key map "f" 'notmuch-search-filter) (define-key map "n" 'next-line) (define-key map "p" 'previous-line) @@ -335,6 +336,8 @@ Does nothing if already on the first message in the buffer." (define-key map ">" 'notmuch-search-goto-last-thread) (define-key map "=" 'notmuch-search-refresh-view) (define-key map "\M->" 'notmuch-search-goto-last-thread) + (define-key map " " 'scroll-up) + (define-key map (kbd "<DEL>") 'scroll-down) map) "Keymap for \"notmuch search\" buffers.") (fset 'notmuch-search-mode-map notmuch-search-mode-map) @@ -351,6 +354,7 @@ Does nothing if already on the first message in the buffer." (interactive) (kill-all-local-variables) (make-local-variable 'notmuch-search-query-string) + (set (make-local-variable 'scroll-preserve-screen-position) t) (add-to-invisibility-spec 'notmuch-search) (use-local-map notmuch-search-mode-map) (setq major-mode 'notmuch-search-mode |