|
From: | Kevin Rodgers |
Subject: | Re: quickly find all executables |
Date: | Thu, 24 Jul 2003 09:29:28 -0600 |
User-agent: | Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 |
Kin Cho wrote:
What's the quickest way to locate all executables in the exec-path?
(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)) -- Kevin Rodgers
[Prev in Thread] | Current Thread | [Next in Thread] |