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.