From b75f9a7686f4bac083c5f7f253efedc8ac9fc1fd Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 11 Mar 1995 02:17:04 +0000
Subject: [PATCH] (vc-path): Use /usr/sccs only if it is a dir.

---
 lisp/vc.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/vc.el b/lisp/vc.el
index 6ac48e2d367..5b9de8bb486 100644
--- 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.")
-- 
2.39.5