diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-06-06 05:33:13 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-06-06 05:33:13 +0000 |
commit | 86243476dcd94971e61752c7b58aca2e46274454 (patch) | |
tree | 1ebac0e88136a336b81ae6812c9716a962599967 /lisp/vc-hooks.el | |
parent | d95ba4e2d25858b4ca79f96d8483326f4767fc7f (diff) | |
download | emacs-86243476dcd94971e61752c7b58aca2e46274454.tar.gz |
(vc-annotate): Entry "Annotate" added to menu and
function `vc-annotate' to key-sequence `C-x v g'.
Diffstat (limited to 'lisp/vc-hooks.el')
-rw-r--r-- | lisp/vc-hooks.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index da673ecdab4..ee86293b5c9 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -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 "c" 'vc-cancel-version) (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 "i" 'vc-register) (define-key vc-prefix-map "l" 'vc-print-log) @@ -1049,6 +1050,7 @@ Returns t if checkout was successful, nil otherwise." ;; '("Show Files under VC" . (vc-directory t))) (define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory)) (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-version-other-window] '("Show Other Version" . vc-version-other-window)) @@ -1067,6 +1069,7 @@ Returns t if checkout was successful, nil otherwise." (define-key vc-menu-map [vc-register] '("Register" . vc-register))) (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-diff 'menu-enable 'vc-mode) (put 'vc-update-change-log 'menu-enable |