/[emacs]/emacs/lisp/vc.el
ViewVC logotype

Diff of /emacs/lisp/vc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.359.2.4 by miles, Fri Sep 17 14:31:02 2004 UTC revision 1.359.2.5 by miles, Thu Oct 14 08:49:59 2004 UTC
# Line 646  List of factors, used to expand/compress Line 646  List of factors, used to expand/compress
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"))
# Line 3004  use; you may override this using the sec Line 3001  use; you may override this using the sec
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))

Legend:
Removed from v.1.359.2.4  
changed lines
  Added in v.1.359.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26