From c6190ba03bb1140848f87daab09d2f3f4877c395 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Wed, 18 Feb 2004 20:48:26 +0000 Subject: [PATCH] (executable-command-find-posix-p): Fix choice of the directory. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/executable.el | 8 ++------ 2 files changed, 7 insertions(+), 6 deletions(-) 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 + + * progmodes/executable.el (executable-command-find-posix-p): Fix + choice of the directory. + 2004-02-17 Luc Teirlinck * 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 -- 2.39.2