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