procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2002-10-08 15:38:28 +00:00
parent 52876673e6
commit ea05db0198
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/vc-cvs.el
View file

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