Skip to content

GitLab

Commit 14aa11f4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(vc-annotate): Entry "Annotate" added to menu and 

function `vc-annotate' to key-sequence `C-x v g'.
parent 33d78d5e
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 0 deletions
lisp/vc-hooks.el
View file @ 14aa11f4
...@@ -1031,6 +1031,7 @@ Returns t if checkout was successful, nil otherwise." ...@@ -1031,6 +1031,7 @@ Returns t if checkout was successful, nil otherwise."
(define-key vc-prefix-map "a" 'vc-update-change-log) (define-key vc-prefix-map "a" 'vc-update-change-log)
(define-key vc-prefix-map "c" 'vc-cancel-version) (define-key vc-prefix-map "c" 'vc-cancel-version)
(define-key vc-prefix-map "d" 'vc-directory) (define-key vc-prefix-map "d" 'vc-directory)
(define-key vc-prefix-map "g" 'vc-annotate)
(define-key vc-prefix-map "h" 'vc-insert-headers) (define-key vc-prefix-map "h" 'vc-insert-headers)
(define-key vc-prefix-map "i" 'vc-register) (define-key vc-prefix-map "i" 'vc-register)
(define-key vc-prefix-map "l" 'vc-print-log) (define-key vc-prefix-map "l" 'vc-print-log)
...@@ -1049,6 +1050,7 @@ Returns t if checkout was successful, nil otherwise." ...@@ -1049,6 +1050,7 @@ Returns t if checkout was successful, nil otherwise."
;; '("Show Files under VC" . (vc-directory t))) ;; '("Show Files under VC" . (vc-directory t)))
(define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory)) (define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory))
(define-key vc-menu-map [separator1] '("----")) (define-key vc-menu-map [separator1] '("----"))
(define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate))
(define-key vc-menu-map [vc-rename-file] '("Rename File" . vc-rename-file)) (define-key vc-menu-map [vc-rename-file] '("Rename File" . vc-rename-file))
(define-key vc-menu-map [vc-version-other-window] (define-key vc-menu-map [vc-version-other-window]
'("Show Other Version" . vc-version-other-window)) '("Show Other Version" . vc-version-other-window))
...@@ -1067,6 +1069,7 @@ Returns t if checkout was successful, nil otherwise." ...@@ -1067,6 +1069,7 @@ Returns t if checkout was successful, nil otherwise."
(define-key vc-menu-map [vc-register] '("Register" . vc-register))) (define-key vc-menu-map [vc-register] '("Register" . vc-register)))
(put 'vc-rename-file 'menu-enable 'vc-mode) (put 'vc-rename-file 'menu-enable 'vc-mode)
(put 'vc-annotate 'menu-enable '(eq (vc-buffer-backend) 'CVS))
(put 'vc-version-other-window 'menu-enable 'vc-mode) (put 'vc-version-other-window 'menu-enable 'vc-mode)
(put 'vc-diff 'menu-enable 'vc-mode) (put 'vc-diff 'menu-enable 'vc-mode)
(put 'vc-update-change-log 'menu-enable (put 'vc-update-change-log 'menu-enable
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment