From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 11 May 2005 16:42:40 +0000 (+0000)
Subject: (executable-find): Move to files.el.
X-Git-Tag: ttn-vms-21-2-B4~392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba47dcb28876a44cec69a25828f1f2a420e5befd;p=emacs.git

(executable-find): Move to files.el.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ff0edac77f..4efd990f145 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-05-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* files.el (executable-find): Move from executable.el. Use locate-file.
+	* progmodes/executable.el (executable-find): Move to files.el.
+
 	* font-lock.el (font-lock-fontify-keywords-region): Use a marker
 	when trying to ensure forward progress.
 
@@ -19,7 +22,7 @@
 	* progmodes/sh-script.el (sh-indent-for-do): Default to 0.
 
 	* progmodes/ada-mode.el (ada-adjust-case-skeleton):
-	Moved from ada-stmt.el.
+	Move from ada-stmt.el.
 	(ada-mode): Add ada-adjust-case-skeleton to skeleton-end-hook.
 
 	* progmodes/ada-stmt.el (ada-adjust-case-skeleton):
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index 0eb53771019..d278b10ba0c 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -161,30 +161,6 @@ If PROGRAM is non-nil, use that instead of \"find\"."
         (if (search-forward file nil t)
             t))))
 
-;;;###autoload
-(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'."
-  (let ((list exec-path)
-	file)
-    (while list
-      (setq list
-	    (if (and (setq file (expand-file-name command (car list)))
-		     (let ((suffixes exec-suffixes)
-			   candidate)
-		       (while suffixes
-			 (setq candidate (concat file (car suffixes)))
-			 (if (and (file-executable-p candidate)
-				  (not (file-directory-p candidate)))
-			     (setq suffixes nil)
-			   (setq suffixes (cdr suffixes))
-			   (setq candidate nil)))
-		       (setq file candidate)))
-		nil
-	      (setq file nil)
-	      (cdr list))))
-    file))
-
 (defun executable-chmod ()
   "This gets called after saving a file to assure that it be executable.
 You can set the absolute or relative mode in variable `executable-chmod' for
@@ -301,5 +277,5 @@ file modes."
 
 (provide 'executable)
 
-;;; arch-tag: 58458d1c-d9db-45ec-942b-8bbb1d5e319d
+;; arch-tag: 58458d1c-d9db-45ec-942b-8bbb1d5e319d
 ;;; executable.el ends here