Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 19:07:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(interpreter-mode-alist): Add mawk.

Browse source 
(set-auto-mode): Allow either space or tab in #! line.
This commit is contained in:
Karl Heuer 1996-02-19 08:13:10 +00:00
parent db188a6121
commit dfeadd842f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/files.el
View file

@ -1018,6 +1018,7 @@ REGEXP and search the list again for another match.")
("tcl" . tcl-mode)
("tclsh" . tcl-mode)
("awk" . awk-mode)
("mawk" . awk-mode)
("nawk" . awk-mode)
("gawk" . awk-mode)
("scm" . scheme-mode)
@ -1172,7 +1173,7 @@ If `enable-local-variables' is nil, this function does not check for a
(let ((interpreter
(save-excursion
(goto-char (point-min))
(if (looking-at "#! *\\([^ \t\n]*/bin/env +\\)?\\([^ \t\n]+\\)")
(if (looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)")
(buffer-substring (match-beginning 2)
(match-end 2))
"")))