646 |
:group 'vc) |
:group 'vc) |
647 |
|
|
648 |
;; vc-annotate functionality (CVS only). |
;; vc-annotate functionality (CVS only). |
|
(defvar vc-annotate-mode nil |
|
|
"Variable indicating if VC-Annotate mode is active.") |
|
|
|
|
649 |
(defvar vc-annotate-mode-map |
(defvar vc-annotate-mode-map |
650 |
(let ((m (make-sparse-keymap))) |
(let ((m (make-sparse-keymap))) |
651 |
(define-key m [menu-bar] (make-sparse-keymap "VC-Annotate")) |
(define-key m [menu-bar] (make-sparse-keymap "VC-Annotate")) |
3001 |
(when buffer |
(when buffer |
3002 |
(set-buffer buffer) |
(set-buffer buffer) |
3003 |
(display-buffer buffer)) |
(display-buffer buffer)) |
3004 |
(if (not vc-annotate-mode) ; Turn on vc-annotate-mode if not done |
(if (not vc-annotate-parent-rev) |
3005 |
(vc-annotate-mode)) |
(vc-annotate-mode)) |
3006 |
(cond ((null vc-annotate-display-mode) |
(cond ((null vc-annotate-display-mode) |
3007 |
(vc-annotate-display-default vc-annotate-ratio)) |
(vc-annotate-display-default vc-annotate-ratio)) |