Mercurial > emacs
comparison lisp/progmodes/executable.el @ 15750:347aa710b4a9
(executable-find): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 21 Jul 1996 19:49:45 +0000 |
| parents | 911086ff68f5 |
| children | 7af77f490166 |
comparison
equal
deleted
inserted
replaced
| 15749:646df9ca91ba | 15750:347aa710b4a9 |
|---|---|
| 118 See `compilation-error-regexp-alist'.") | 118 See `compilation-error-regexp-alist'.") |
| 119 | 119 |
| 120 ;; The C function openp slightly modified would do the trick fine | 120 ;; The C function openp slightly modified would do the trick fine |
| 121 (defun executable-find (command) | 121 (defun executable-find (command) |
| 122 "Search for COMMAND in exec-path and return the absolute file name. | 122 "Search for COMMAND in exec-path and return the absolute file name. |
| 123 Return nil if COMMAND is not found anywhere in exec-path." | 123 Return nil if COMMAND is not found anywhere in `exec-path'." |
| 124 (let ((list exec-path) | 124 (let ((list exec-path) |
| 125 file) | 125 file) |
| 126 (while list | 126 (while list |
| 127 (setq list (if (and (setq file (expand-file-name command (car list))) | 127 (setq list (if (and (setq file (expand-file-name command (car list))) |
| 128 (file-executable-p file) | 128 (file-executable-p file) |