Mercurial > emacs

comparison lisp/vc-sccs.el @ 47806:10d173c975ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-sccs-find-version): Fix vc-checkout-switches use.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 08 Oct 2002 20:24:21 +0000
parents 20dfef584009
children 63fc09a69c40
comparison
equal deleted inserted replaced
47805:81b51b0d6e66 47806:10d173c975ef
3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF (see vc.el for full credits) 5 ;; Author: FSF (see vc.el for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8 ;; $Id: vc-sccs.el,v 1.15 2002/03/18 17:20:43 spiegel Exp $ 8 ;; $Id: vc-sccs.el,v 1.16 2002/10/08 15:35:03 monnier Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
209 "-s" ;; suppress diagnostic output 209 "-s" ;; suppress diagnostic output
210 "-p" 210 "-p"
211 (and rev 211 (and rev
212 (concat "-r" 212 (concat "-r"
213 (vc-sccs-lookup-triple file rev))) 213 (vc-sccs-lookup-triple file rev)))
214 vc-checkout-switches)) 214 (if (stringp vc-checkout-switches)
215 (list vc-checkout-switches)
216 vc-checkout-switches)))
215 217
216 (defun vc-sccs-checkout (file &optional editable rev) 218 (defun vc-sccs-checkout (file &optional editable rev)
217 "Retrieve a copy of a saved version of SCCS controlled FILE. 219 "Retrieve a copy of a saved version of SCCS controlled FILE.
218 EDITABLE non-nil means that the file should be writable and 220 EDITABLE non-nil means that the file should be writable and
219 locked. REV is the revision to check out." 221 locked. REV is the revision to check out."