# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 898015127 0
# Node ID 115ca3d4f9c423839a564aadb3699f2c0fd59974
# Parent  104e277d77d3b7f0e93677559e94de130c148e53
(vc-find-binary): Accept only non-directories.

diff -r 104e277d77d3 -r 115ca3d4f9c4 lisp/vc.el
--- a/lisp/vc.el	Tue Jun 16 07:32:05 1998 +0000
+++ b/lisp/vc.el	Tue Jun 16 16:38:47 1998 +0000
@@ -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 @@
 	  (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))