aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/vc-sccs.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index 9de8c3ccadb..99737ae2c59 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -5,7 +5,7 @@
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.18 2002/11/12 19:50:54 rost Exp $ 8;; $Id: vc-sccs.el,v 1.19 2002/11/13 12:37:58 spiegel Exp $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -242,7 +242,9 @@ locked. REV is the revision to check out."
242 ;; the file in the right place. 242 ;; the file in the right place.
243 (setq default-directory (file-name-directory file)) 243 (setq default-directory (file-name-directory file))
244 244
245 (and rev (string= rev "") (setq rev nil)) 245 (and rev (or (string= rev "")
246 (not (stringp rev)))
247 (setq rev nil))
246 (apply 'vc-do-command nil 0 "get" (vc-name file) 248 (apply 'vc-do-command nil 0 "get" (vc-name file)
247 (if editable "-e") 249 (if editable "-e")
248 (and rev (concat "-r" (vc-sccs-lookup-triple file rev))) 250 (and rev (concat "-r" (vc-sccs-lookup-triple file rev)))