[Emacs-diffs] Changes to emacs/lisp/progmodes/executable.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/executable.el
diff -c emacs/lisp/progmodes/executable.el:1.32 
emacs/lisp/progmodes/executable.el:1.33
*** emacs/lisp/progmodes/executable.el:1.32     Wed Dec 15 21:24:20 2004
--- emacs/lisp/progmodes/executable.el  Wed May 11 16:42:15 2005
***************
*** 161,190 ****
          (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
--- 161,166 ----
***************
*** 301,305 ****
  
  (provide 'executable)
  
! ;;; arch-tag: 58458d1c-d9db-45ec-942b-8bbb1d5e319d
  ;;; executable.el ends here
--- 277,281 ----
  
  (provide 'executable)
  
! ;; arch-tag: 58458d1c-d9db-45ec-942b-8bbb1d5e319d
  ;;; executable.el ends here