# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 824717590 0
# Node ID 5a1435bd8ff3cd1163a59c8b2e3b92c4dc64574d
# Parent  735184f496c37bb20fd0abf019666bb66b40164d
(interpreter-mode-alist): Add mawk.
(set-auto-mode): Allow either space or tab in #! line.

diff -r 735184f496c3 -r 5a1435bd8ff3 lisp/files.el
--- 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))
 			   "")))