# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 794888224 0
# Node ID ba4240ca6b9953202d23b6cf105210a1a397fd98
# Parent  6069707b1151d11ae954cad993ede55a7185864f
(vc-path): Use /usr/sccs only if it is a dir.

diff -r 6069707b1151 -r ba4240ca6b99 lisp/vc.el
--- a/lisp/vc.el	Sat Mar 11 02:05:20 1995 +0000
+++ b/lisp/vc.el	Sat Mar 11 02:17:04 1995 +0000
@@ -95,8 +95,9 @@
 (defvar vc-checkout-switches nil
   "*Extra switches passed to the checkout program by \\[vc-checkout].")
 (defvar vc-path
-  (if (file-exists-p "/usr/sccs")
-      '("/usr/sccs") nil)
+  (if (file-directory-p "/usr/sccs")
+      '("/usr/sccs")
+    nil)
   "*List of extra directories to search for version control commands.")
 (defvar vc-directory-exclusion-list '("SCCS" "RCS")
   "*Directory names ignored by functions that recursively walk file trees.")