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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
