From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 11 May 2005 16:24:55 +0000 (+0000)
Subject: (executable-find): Move from executable.el. Use locate-file.
X-Git-Tag: ttn-vms-21-2-B4~394
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3f6aa2088306361718a65f26f767f333393ea8c;p=emacs.git

(executable-find): Move from executable.el. Use locate-file.
---

diff --git a/lisp/files.el b/lisp/files.el
index fa6d91fa421..99847b2f3fc 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -676,6 +676,13 @@ PATH-AND-SUFFIXES is a pair of lists (DIRECTORIES . SUFFIXES)."
        ((null action) (try-completion string names))
        (t (test-completion string names))))))
 
+(defun executable-find (command)
+  "Search for COMMAND in `exec-path' and return the absolute file name.
+Return nil if COMMAND is not found anywhere in `exec-path'."
+  ;; Use 1 rather than file-executable-p to better match the behavior of
+  ;; call-process.
+  (locate-file command exec-path exec-suffixes 1))
+
 (defun load-library (library)
   "Load the library named LIBRARY.
 This is an interface to the function `load'."
@@ -4855,5 +4862,5 @@ With prefix arg, silently save all file-visiting buffers, then kill."
 (define-key ctl-x-5-map "\C-f" 'find-file-other-frame)
 (define-key ctl-x-5-map "r" 'find-file-read-only-other-frame)
 
-;;; arch-tag: bc68d3ea-19ca-468b-aac6-3a4a7766101f
+;; arch-tag: bc68d3ea-19ca-468b-aac6-3a4a7766101f
 ;;; files.el ends here