;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
-;; $Id: vc-sccs.el,v 1.11 2001/03/29 11:49:22 spiegel Exp $
+;; $Id: vc-sccs.el,v 1.14 2002/02/25 22:05:16 spiegel Exp $
;; This file is part of GNU Emacs.
Automatically retrieve a read-only version of the file with keywords
expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
- (let* ((switches (list
+ (let* ((switches (append
(if (stringp vc-register-switches)
(list vc-register-switches)
vc-register-switches)
switches)))))
(message "Checking out %s...done" filename)))
-(defun vc-sccs-revert (file)
+(defun vc-sccs-revert (file &optional contents-done)
"Revert FILE to the version it was based on."
(vc-do-command nil 0 "unget" (vc-name file))
(vc-do-command nil 0 "get" (vc-name file))
(append (list "-q"
(and oldvers (concat "-r" oldvers))
(and newvers (concat "-r" newvers)))
- (vc-diff-switches-list sccs))))
+ (vc-diff-switches-list 'SCCS))))
\f
;;;