Re: quickly find all executables

[Kin Cho]

Kevin Rodgers <ihs_4664@yahoo.com> writes:

> Kin Cho wrote:
> 
> > 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.
> 
> But the files are full path names, so there won't be any exact duplicates.

Unless there are duplicated entries in exec-path -- but I first
should remove duplicates from my exec-path.

-kin