From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Tue, 1 Jul 2008 14:47:10 +0000 (+0000)
Subject: (vc-annotate-mode-map): Bind to lower case keys.
X-Git-Tag: emacs-pretest-23.0.90~4359
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3cddaef1247931f3bfb3eccbab24027712c6b192;p=emacs.git

(vc-annotate-mode-map): Bind to lower case keys.
Add binding for vc-annotate-show-changeset-diff-revision-at-line.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f9f3ec0b5c..e51c5bf71cf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-07-01  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* vc-annotate.el (vc-annotate-mode-map): Bind to lower case keys.
+	Add binding for vc-annotate-show-changeset-diff-revision-at-line.
+
 	* vc-dir.el (vc-dir-mode): Set list-buffers-function.
 
 2008-07-01  Nick Roberts  <nickrob@snap.net.nz>
diff --git a/lisp/vc-annotate.el b/lisp/vc-annotate.el
index eadce2db957..63a99f1ea7f 100644
--- a/lisp/vc-annotate.el
+++ b/lisp/vc-annotate.el
@@ -118,15 +118,16 @@ List of factors, used to expand/compress the time scale.  See `vc-annotate'."
 
 (defvar vc-annotate-mode-map
   (let ((m (make-sparse-keymap)))
-    (define-key m "A" 'vc-annotate-revision-previous-to-line)
-    (define-key m "D" 'vc-annotate-show-diff-revision-at-line)
+    (define-key m "a" 'vc-annotate-revision-previous-to-line)
+    (define-key m "d" 'vc-annotate-show-diff-revision-at-line)
+    (define-key m "D" 'vc-annotate-show-changeset-diff-revision-at-line)
     (define-key m "f" 'vc-annotate-find-revision-at-line)
-    (define-key m "J" 'vc-annotate-revision-at-line)
-    (define-key m "L" 'vc-annotate-show-log-revision-at-line)
-    (define-key m "N" 'vc-annotate-next-revision)
-    (define-key m "P" 'vc-annotate-prev-revision)
-    (define-key m "W" 'vc-annotate-working-revision)
-    (define-key m "V" 'vc-annotate-toggle-annotation-visibility)
+    (define-key m "j" 'vc-annotate-revision-at-line)
+    (define-key m "l" 'vc-annotate-show-log-revision-at-line)
+    (define-key m "n" 'vc-annotate-next-revision)
+    (define-key m "p" 'vc-annotate-prev-revision)
+    (define-key m "w" 'vc-annotate-working-revision)
+    (define-key m "v" 'vc-annotate-toggle-annotation-visibility)
     m)
   "Local keymap used for VC-Annotate mode.")