Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(executable-binary-suffixes): Make varalias.

Browse source 
(executable-find): Use exec-suffixes.
(executable-set-magic): Don't use make-local-hook.
This commit is contained in:
Stefan Monnier 2001-10-14 20:09:46 +00:00
parent ae95a95a9c
commit 2d08a2d49a
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/executable.el
View file

@ -138,21 +138,18 @@ This can be included in `font-lock-keywords' by modes that call `executable'.")
See `compilation-error-regexp-alist'.")
;; The C function openp slightly modified would do the trick fine
(defvar executable-binary-suffixes
(if (memq system-type '(ms-dos windows-nt))
'(".exe" ".com" ".bat" ".cmd" ".btm" "")
'("")))
(defvaralias 'executable-binary-suffixes 'exec-suffixes)
;;;###autoload
(defun executable-find (command)
"Search for COMMAND in exec-path and return the absolute file name.
"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 executable-binary-suffixes)
(let ((suffixes exec-suffixes)
candidate)
(while suffixes
(setq candidate (concat file (car suffixes)))
@ -233,7 +230,6 @@ executable."
(let ((point (point-marker))
(buffer-modified-p (buffer-modified-p)))
(goto-char (point-min))
(make-local-hook 'after-save-hook)
(add-hook 'after-save-hook 'executable-chmod nil t)
(if (looking-at "#![ \t]*\\(.*\\)$")
(and (goto-char (match-beginning 1))