mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(vc-annotate-mode-map): Bind to lower case keys.

Browse Source 
Add binding for vc-annotate-show-changeset-diff-revision-at-line.
This commit is contained in:
Dan Nicolaescu 2008-07-01 14:47:10 +00:00
parent 03953ed218
commit 3cddaef124
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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>

17
lisp/vc-annotate.el
View File

@ -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.")