diff options
author | Karl Heuer <[email protected]> | 1996-02-19 08:13:10 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1996-02-19 08:13:10 +0000 |
commit | dfeadd842f22d67218e78d59d779dd4b7e0ee143 (patch) | |
tree | f05dd11a9650d9e0128367b26b5b0c8c069e040f | |
parent | db188a6121eca7e6a48f54462cb95a125c0819d5 (diff) |
(interpreter-mode-alist): Add mawk.
(set-auto-mode): Allow either space or tab in #! line.
-rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 4ceab9c5d1..31c7f257ce 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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)) ""))) |