Mercurial > emacs

comparison lisp/progmodes/executable.el @ 15744:911086ff68f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(executable-find): Doc fix.
author Karl Heuer <kwzh@gnu.org>
date Sun, 21 Jul 1996 17:53:08 +0000
parents 7a25ca1a7d7d
children 347aa710b4a9
comparison
equal deleted inserted replaced
15743:510a8a97914e 15744:911086ff68f5
117 "Alist of regexps used to match script errors. 117 "Alist of regexps used to match script errors.
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 $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 $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)