From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Wed, 18 Feb 2004 20:48:26 +0000 (+0000)
Subject: (executable-command-find-posix-p):  Fix choice of the directory.
X-Git-Tag: ttn-vms-21-2-B4~7534
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6190ba03bb1140848f87daab09d2f3f4877c395;p=emacs.git

(executable-command-find-posix-p):  Fix choice of the directory.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 219c68fe7c0..f5e51f9a093 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-18  Markus Rost  <rost@mathematik.uni-bielefeld.de>
+
+	* progmodes/executable.el (executable-command-find-posix-p):  Fix
+	choice of the directory.
+
 2004-02-17  Luc Teirlinck  <teirllm@auburn.edu>
 
 	* simple.el (interprogram-cut-function)
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index b301d84d144..a5d401a5f5e 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -145,12 +145,8 @@ See `compilation-error-regexp-alist'.")
   "Check if PROGRAM handles arguments Posix-style.
 If PROGRAM is non-nil, use that instead of \"find\"."
   ;;  Pick file to search from location we know
-  (let* ((dir   (car load-path))
-         (file  (find-if
-                 (lambda (x)
-                   ;; Filter directories . and ..
-                   (not (string-match "^\\.\\.?$" x)))
-                 (directory-files dir))))
+  (let* ((dir (file-truename data-directory))
+         (file (car (directory-files dir nil "^[^.]"))))
     (with-temp-buffer
       (call-process (or program "find")
                     nil