Mercurial > emacs

changeset 54065:18ada18b62be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(executable-command-find-posix-p): Fix choice of the directory.
author Markus Rost <rost@math.uni-bielefeld.de>
date Wed, 18 Feb 2004 20:47:46 +0000
parents c9135adb6143
children e4fd8c22eb88
files lisp/progmodes/executable.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/executable.el	Wed Feb 18 05:02:30 2004 +0000
+++ b/lisp/progmodes/executable.el	Wed Feb 18 20:47:46 2004 +0000
@@ -145,12 +145,8 @@
   "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