From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 15 Aug 2006 04:32:19 +0000 (+0000)
Subject: Fix bug: "ignored" files should be treated the same as "unversioned"
X-Git-Tag: 20090517-FFI~956
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a4cb40ccef544fd49a920ca74a009e647ee9682;p=mit-scheme.git

Fix bug: "ignored" files should be treated the same as "unversioned"
when deciding whether they are under version control.
---

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index 526957278..861052ffc 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: vc.scm,v 1.94 2006/06/16 17:55:27 riastradh Exp $
+$Id: vc.scm,v 1.95 2006/08/15 04:32:19 cph Exp $
 
 Copyright 1994,1995,1996,1997,1998,2000 Massachusetts Institute of Technology
 Copyright 2001,2002,2003,2005,2006 Massachusetts Institute of Technology
@@ -2007,7 +2007,8 @@ the value of vc-log-mode-hook."
 	 (not (let ((output (%get-svn-status workfile)))
 		(or (not output)
 		    (string-null? output)
-		    (string-prefix? "?" output))))
+		    (string-prefix? "?" output)
+		    (string-prefix? "I" output))))
 	 (make-vc-master vc-type:svn
 			 (merge-pathnames "entries" (svn-directory workfile))
 			 workfile))))
@@ -2219,7 +2220,8 @@ the value of vc-log-mode-hook."
   (and status
        (not (string-null? status))
        (let ((type (decode-svn-status-0 (string-ref status 0))))
-	 (if (eq? type 'UNVERSIONED)
+	 (if (or (eq? type 'UNVERSIONED)
+		 (eq? type 'IGNORED))
 	     type
 	     (let ((regs (re-string-match svn-status-regexp status #f)))
 	       (and regs