changeset 62234:b484427cfa6b

(executable-find): Move from executable.el. Use locate-file.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 11 May 2005 16:24:55 +0000
parents 5dfcab314a42
children cd487105a05a
files lisp/files.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Wed May 11 15:55:16 2005 +0000
+++ b/lisp/files.el	Wed May 11 16:24:55 2005 +0000
@@ -676,6 +676,13 @@
        ((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 @@
 (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