# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 1097400191 0
# Node ID 90ecf83d04fd2aad1e041955c8ec498ed9a64ff2
# Parent  bcfb3a26a3bd7022f3c1e6456450701503042dda
(vc-annotate-mode): Remove variable.
(vc-annotate-display-select): Only call vc-annotate-mode
if we're not in that mode already.

diff -r bcfb3a26a3bd -r 90ecf83d04fd lisp/vc.el
--- a/lisp/vc.el	Sun Oct 10 05:06:47 2004 +0000
+++ b/lisp/vc.el	Sun Oct 10 09:23:11 2004 +0000
@@ -646,9 +646,6 @@
   :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 @@
   (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))