procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set-auto-mode): Recognize `#!/bin/env INTERPRETER' hack.

Browse source
This commit is contained in:
Karl Heuer 1995-12-15 21:11:52 +00:00
parent 1bdabbcd25
commit 1540e4e9cc
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/files.el
View file

@ -1108,12 +1108,14 @@ If `enable-local-variables' is nil, this function does not check for a
(funcall mode)
;; If we can't deduce a mode from the file name,
;; look for an interpreter specified in the first line.
;; As a special case, allow for things like "#!/bin/env perl",
;; which finds the interpreter anywhere in $PATH.
(let ((interpreter
(save-excursion
(goto-char (point-min))
(if (looking-at "#! *\\([^ \t\n]+\\)")
(buffer-substring (match-beginning 1)
(match-end 1))
(if (looking-at "#! *\\([^ \t\n]*/bin/env +\\)?\\([^ \t\n]+\\)")
(buffer-substring (match-beginning 2)
(match-end 2))
"")))
elt)
;; Map interpreter name to a mode.