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

[Stefan Monnier]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.765 emacs/lisp/files.el:1.766
*** emacs/lisp/files.el:1.765   Tue May 10 09:08:28 2005
--- emacs/lisp/files.el Wed May 11 16:24:55 2005
***************
*** 676,681 ****
--- 676,688 ----
         ((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,4859 ****
  (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
  ;;; files.el ends here
--- 4862,4866 ----
  (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
  ;;; files.el ends here