From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 16 Jun 1998 16:38:47 +0000 (+0000)
Subject: (vc-find-binary): Accept only non-directories.
X-Git-Tag: emacs-20.3~575
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c8b57ade8c9cb8cc9caafb09182bab185983a47;p=emacs.git

(vc-find-binary): Accept only non-directories.
---

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