diff options
| -rw-r--r-- | sx-question-list.el | 9 | ||||
| -rw-r--r-- | sx-question-mode.el | 5 |
2 files changed, 11 insertions, 3 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index c5c32d9..788fc2f 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -286,7 +286,11 @@ into consideration. (mapc (lambda (x) (define-key sx-question-list-mode-map (car x) (cadr x))) - '(("n" sx-question-list-next) + '( + ;; S-down and S-up would collide with `windmove'. + ([down] sx-question-list-view-next) + ([up] sx-question-list-view-previous) + ("n" sx-question-list-next) ("p" sx-question-list-previous) ("j" sx-question-list-view-next) ("k" sx-question-list-view-previous) @@ -303,7 +307,8 @@ into consideration. ("d" sx-toggle-downvote) ("h" sx-question-list-hide) ("m" sx-question-list-mark-read) - ([?\r] sx-display-question))) + ([?\r] sx-display-question) + )) (defun sx-question-list-hide (data) "Hide question under point. diff --git a/sx-question-mode.el b/sx-question-mode.el index ccd9433..19d7d16 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -193,7 +193,10 @@ Letters do not insert themselves; instead, they are commands. (mapc (lambda (x) (define-key sx-question-mode-map (car x) (cadr x))) - `(("n" sx-question-mode-next-section) + `( + ([down] sx-question-mode-next-section) + ([up] sx-question-mode-previous-section) + ("n" sx-question-mode-next-section) ("p" sx-question-mode-previous-section) ("g" sx-question-mode-refresh) ("c" sx-comment) |