Mercurial > emacs
changeset 47799:0d2f83a91144
(vc-cvs-find-version): New fun.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 08 Oct 2002 15:38:28 +0000 |
| parents | 20dfef584009 |
| children | ef10fe99a92f |
| files | lisp/vc-cvs.el |
| diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-cvs.el Tue Oct 08 15:35:03 2002 +0000 +++ b/lisp/vc-cvs.el Tue Oct 08 15:38:28 2002 +0000 @@ -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 @@ (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.