From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Mar 1995 02:17:04 +0000 (+0000)
Subject: (vc-path): Use /usr/sccs only if it is a dir.
X-Git-Tag: emacs-19.34~4905
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b75f9a7686f4bac083c5f7f253efedc8ac9fc1fd;p=emacs.git

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

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.")