Re: quickly find all executables

[Kin Cho]

Kevin Rodgers <ihs_4664@yahoo.com> writes:

> (let ((directories exec-path)
>       (executables '()))
>   (while directories
>     (let ((files (if (file-directory-p (car directories))
>                    (directory-files (car directories) t nil t)
>                  '())))
>       (while files
>       (if (and (file-regular-p (car files))
>                (file-executable-p (car files)))
>           (setq executables (cons (car files) executables)))
>       (setq files (cdr files))))
>     (setq directories (cdr directories)))
>   (nreverse executables))

Thanks.  I used add-to-list above to avoid adding duplicates that
won't be used anyway.

-kin