diff options
| author | André Spiegel <[email protected]> | 2004-10-10 09:23:11 +0000 |
|---|---|---|
| committer | André Spiegel <[email protected]> | 2004-10-10 09:23:11 +0000 |
| commit | fb34883fdfb24a7fedff2d61db18e876cc601ff7 (patch) | |
| tree | 45ee2a621a2a204cb89aa30f7f54bafb0b76c41f | |
| parent | 10fc26633bb7cb094822dcc9d2f62982a6e84fc2 (diff) | |
(vc-annotate-mode): Remove variable.
(vc-annotate-display-select): Only call vc-annotate-mode
if we're not in that mode already.
| -rw-r--r-- | lisp/vc.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 663c45fd46..3f56290528 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -646,9 +646,6 @@ List of factors, used to expand/compress the time scale. See `vc-annotate'." :group 'vc) ;; vc-annotate functionality (CVS only). -(defvar vc-annotate-mode nil - "Variable indicating if VC-Annotate mode is active.") - (defvar vc-annotate-mode-map (let ((m (make-sparse-keymap))) (define-key m [menu-bar] (make-sparse-keymap "VC-Annotate")) @@ -3004,7 +3001,7 @@ use; you may override this using the second optional arg MODE." (when buffer (set-buffer buffer) (display-buffer buffer)) - (if (not vc-annotate-mode) ; Turn on vc-annotate-mode if not done + (if (not vc-annotate-parent-ref) (vc-annotate-mode)) (cond ((null vc-annotate-display-mode) (vc-annotate-display-default vc-annotate-ratio)) |