Commit 0c8b57ad authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 09c6077f
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment