Mercurial > emacs
changeset 22504:115ca3d4f9c4
(vc-find-binary): Accept only non-directories.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Jun 1998 16:38:47 +0000 |
| parents | 104e277d77d3 |
| children | d4f3552a85f2 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))