From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 8 Oct 2002 15:38:28 +0000 (+0000)
Subject: (vc-cvs-find-version): New fun.
X-Git-Tag: ttn-vms-21-2-B4~12902
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea05db0198fceec90da3d0c506f1bad83f8bc4ab;p=emacs.git

(vc-cvs-find-version): New fun.
---

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index b5576e9df63..759d1a43166 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.42 2002/07/03 14:26:51 lektu Exp $
+;; $Id: vc-cvs.el,v 1.43 2002/10/04 18:38:53 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -368,6 +368,16 @@ This is only possible if CVS is responsible for FILE's directory."
     (if (and rev (not (vc-cvs-valid-symbolic-tag-name-p rev)))
 	(vc-cvs-command nil 0 file "update" "-A"))))
 
+(defun vc-cvs-find-version (file rev buffer)
+  (apply 'vc-cvs-command
+	 buffer 0 file
+	 "-Q"				; suppress diagnostic output
+	 "update"
+	 (and rev (not (string= rev ""))
+	      (concat "-r" rev))
+	 "-p"
+	 vc-checkout-switches))
+
 (defun vc-cvs-checkout (file &optional editable rev workfile)
   "Retrieve a revision of FILE into a WORKFILE.
 EDITABLE non-nil means that the file should be writable.