Mercurial > emacs
diff lisp/files.el @ 14598:5a1435bd8ff3
(interpreter-mode-alist): Add mawk.
(set-auto-mode): Allow either space or tab in #! line.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 19 Feb 1996 08:13:10 +0000 |
| parents | d82c768cb571 |
| children | 2edced5a8756 |
line wrap: on
line diff
--- a/lisp/files.el Mon Feb 19 08:04:43 1996 +0000 +++ b/lisp/files.el Mon Feb 19 08:13:10 1996 +0000 @@ -1018,6 +1018,7 @@ ("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 @@ (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)) "")))