From 0c8b57ade8c9cb8cc9caafb09182bab185983a47 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 16 Jun 1998 16:38:47 +0000
Subject: [PATCH] (vc-find-binary): Accept only non-directories.

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

diff --git a/lisp/vc.el b/lisp/vc.el
index c5d8db981c9..26cfb0c0c2a 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc.el,v 1.230 1998/06/11 15:33:13 spiegel Exp spiegel $
+;; $Id: vc.el,v 1.231 1998/06/12 11:13:37 spiegel Exp rms $
 
 ;; This file is part of GNU Emacs.
 
@@ -516,7 +516,8 @@ If nil, VC itself computes this value when it is first needed."
 	  (lambda (s)
 	    (if s
 		(let ((full (concat s "/" name)))
-		  (if (file-executable-p full)
+		  (if (and (file-executable-p full)
+			   (not (file-directory-p full)))
 		      (progn
 			(setq vc-binary-assoc
 			      (cons (cons name full) vc-binary-assoc))
-- 
2.39.2