From: André Spiegel <spiegel@gnu.org>
Date: Thu, 16 Nov 2000 13:38:03 +0000 (+0000)
Subject: (vc-cvs-annotate-command): New optional arg VERSION.  Use
X-Git-Tag: emacs-pretest-21.0.90~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ffe586ab5c33f6a92cdb190a06b78a18c58c8416;p=emacs.git

(vc-cvs-annotate-command): New optional arg VERSION.  Use
vc-do-command to perform the annotation, not call-process.
---

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index e1665068e10..6b2ac473806 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -5,7 +5,7 @@
 ;; Author:      FSF (see vc.el for full credits)
 ;; Maintainer:  Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-cvs.el,v 1.7 2000/10/27 11:37:17 spiegel Exp $
+;; $Id: vc-cvs.el,v 1.8 2000/10/27 15:06:27 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -649,10 +649,11 @@ REV is the revision to check out into WORKFILE."
 	(vc-mode-line file)
 	(message "Checking out %s...done" filename)))))
 
-(defun vc-cvs-annotate-command (file buffer)
-  "Execute \"cvs annotate\" on FILE.
-Use `call-process' and insert the contents in BUFFER."
-  (call-process "cvs" nil buffer nil "annotate" file))
+(defun vc-cvs-annotate-command (file buffer &optional version)
+  "Execute \"cvs annotate\" on FILE, inserting the contents in BUFFER.
+Optional arg VERSION is a version to annotate from."
+  (vc-do-command buffer 0 "cvs" file "annotate" (if version
+                                                    (concat "-r" version))))
 
 (defvar vc-cvs-local-month-numbers
   '(("Jan" . 1) ("Feb" .  2) ("Mar" .  3) ("Apr" .  4)