branch: externals/rt-liberation
commit dacb48c574049200c8799ecbc8cb9aa12d5f956d
Author: Yoni Rabkin <y...@rabkins.net>
Commit: Yoni Rabkin <y...@rabkins.net>

    * rt-liberation.el: trim down viewer2 key map.
---
 rt-liberation.el | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index bf59ede..37c20aa 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1487,16 +1487,10 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "q") 'rt-liber-viewer2-mode-quit)
     (define-key map (kbd "n") 'rt-liber-viewer2-next-section-in)
-    (define-key map (kbd "N") 'rt-liber-viewer2-jump-to-latest-correspondence)
     (define-key map (kbd "p") 'rt-liber-viewer2-previous-section-in)
-    (define-key map (kbd "V") 'rt-liber-viewer2-visit-in-browser)
-    (define-key map (kbd "m") 'rt-liber-viewer2-answer)
-    (define-key map (kbd "M") 'rt-liber-viewer2-answer-this)
-    (define-key map (kbd "t") 'rt-liber-viewer2-answer-provisionally)
-    (define-key map (kbd "T") 'rt-liber-viewer2-answer-provisionally-this)
-    (define-key map (kbd "F") 'rt-liber-viewer2-answer-verbatim-this)
-    (define-key map (kbd "c") 'rt-liber-viewer2-comment)
-    (define-key map (kbd "C") 'rt-liber-viewer2-comment-this)
+    (define-key map (kbd "V") 'rt-liber-viewer-visit-in-browser)
+    (define-key map (kbd "M") 'rt-liber-viewer2-answer)
+    (define-key map (kbd "C") 'rt-liber-viewer2-comment)
     (define-key map (kbd "g") 'revert-buffer)
     (define-key map (kbd "SPC") 'scroll-up)
     (define-key map (kbd "DEL") 'scroll-down)

Reply via email to