From e1f517c9f5741630de93c7fe5268112f3a61cdef Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Sun, 19 Jan 2003 06:52:58 +0000 Subject: [PATCH] (vc-sccs-checkout): Handle t argument for REV. --- lisp/vc-sccs.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index f3b922d143e..291c95d695b 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-sccs.el,v 1.12 2001/07/16 12:22:59 pj Exp $ +;; $Id$ ;; This file is part of GNU Emacs. @@ -226,7 +226,9 @@ locked. REV is the revision to check out into WORKFILE." ;; the file in the right place. (setq default-directory (file-name-directory filename)) - (and rev (string= rev "") (setq rev nil)) + (and rev (or (string= rev "") + (not (stringp rev))) + (setq rev nil)) (if workfile ;; Some SCCS implementations allow checking out directly to a ;; file using the -G option, but then some don't so use the -- 2.39.5