(vc-path): Use /usr/sccs only if it is a dir.

diff --git a/lisp/vc.el b/lisp/vc.el
index 6ac48e2d367ec581e2601193e23415f6bf2fccb3..5b9de8bb486ab51654193814da1c52e0a249c3b1 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -95,8 +95,9 @@ value of this flag.")
 (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.")