mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

(vc-sccs-checkout): Handle t argument for REV.

Browse source
This commit is contained in:
André Spiegel 2002-12-26 14:07:15 +00:00
parent a3294a807b
commit bbd5933755
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/vc-sccs.el
View file

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-sccs.el,v 1.18 2002/11/12 19:50:54 rost Exp $
;; $Id: vc-sccs.el,v 1.19 2002/11/13 12:37:58 spiegel Exp $
;; This file is part of GNU Emacs.
@ -242,7 +242,9 @@ locked. REV is the revision to check out."
;; the file in the right place.
(setq default-directory (file-name-directory file))
(and rev (string= rev "") (setq rev nil))
(and rev (or (string= rev "")
(not (stringp rev)))
(setq rev nil))
(apply 'vc-do-command nil 0 "get" (vc-name file)
(if editable "-e")
(and rev (concat "-r" (vc-sccs-lookup-triple file rev)))