mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 15:11:30 -08:00
Code Issues Projects Releases Wiki Activity

(vc-annotate-mode): Remove variable.

Browse source 
(vc-annotate-display-select): Only call vc-annotate-mode
if we're not in that mode already.
This commit is contained in:
André Spiegel 2004-10-10 09:23:11 +00:00
parent 10fc26633b
commit fb34883fdf
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc.el
View file

@ -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))