diff options
| author | Markus Rost | 2004-02-18 20:48:26 +0000 |
|---|---|---|
| committer | Markus Rost | 2004-02-18 20:48:26 +0000 |
| commit | c6190ba03bb1140848f87daab09d2f3f4877c395 (patch) | |
| tree | 3b7d1c7b33b583228cffe5c147c44e54818d044f /lisp/progmodes/executable.el | |
| parent | d29edb21c8fb2abc77cd119e5dbb0fe34a82120f (diff) | |
| download | emacs-c6190ba03bb1140848f87daab09d2f3f4877c395.tar.gz emacs-c6190ba03bb1140848f87daab09d2f3f4877c395.zip | |
(executable-command-find-posix-p): Fix choice of the directory.
Diffstat (limited to 'lisp/progmodes/executable.el')
| -rw-r--r-- | lisp/progmodes/executable.el | 8 |
1 files changed, 2 insertions, 6 deletions
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'.") | |||
| 145 | "Check if PROGRAM handles arguments Posix-style. | 145 | "Check if PROGRAM handles arguments Posix-style. |
| 146 | If PROGRAM is non-nil, use that instead of \"find\"." | 146 | If PROGRAM is non-nil, use that instead of \"find\"." |
| 147 | ;; Pick file to search from location we know | 147 | ;; Pick file to search from location we know |
| 148 | (let* ((dir (car load-path)) | 148 | (let* ((dir (file-truename data-directory)) |
| 149 | (file (find-if | 149 | (file (car (directory-files dir nil "^[^.]")))) |
| 150 | (lambda (x) | ||
| 151 | ;; Filter directories . and .. | ||
| 152 | (not (string-match "^\\.\\.?$" x))) | ||
| 153 | (directory-files dir)))) | ||
| 154 | (with-temp-buffer | 150 | (with-temp-buffer |
| 155 | (call-process (or program "find") | 151 | (call-process (or program "find") |
| 156 | nil | 152 | nil |