From 825d1017a189db45d0a4116fe28af792ddb0b30a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 29 Jan 2006 06:03:42 +0000 Subject: [PATCH] Check for .svn directory before calling "svn" program. --- v7/src/edwin/vc.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm index 498737b4b..ebe9fb0ce 100644 --- a/v7/src/edwin/vc.scm +++ b/v7/src/edwin/vc.scm @@ -1,9 +1,9 @@ #| -*-Scheme-*- -$Id: vc.scm,v 1.88 2005/12/22 18:54:12 cph Exp $ +$Id: vc.scm,v 1.89 2006/01/29 06:03:42 cph Exp $ Copyright 1994,1995,1996,1997,1998,2000 Massachusetts Institute of Technology -Copyright 2001,2002,2003,2005 Massachusetts Institute of Technology +Copyright 2001,2002,2003,2005,2006 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -2008,7 +2008,8 @@ the value of vc-log-mode-hook." (define-vc-type-operation 'FIND-MASTER vc-type:svn (lambda (workfile) - (and (not (let ((output (%get-svn-status workfile))) + (and (file-directory? (svn-directory workfile)) + (not (let ((output (%get-svn-status workfile))) (or (not output) (string-null? output) (string-prefix? "?" output)))) -- 2.25.1