From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 19 Feb 1996 08:13:10 +0000 (+0000)
Subject: (interpreter-mode-alist): Add mawk.
X-Git-Tag: emacs-19.34~1262
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfeadd842f22d67218e78d59d779dd4b7e0ee143;p=emacs.git

(interpreter-mode-alist): Add mawk.
(set-auto-mode): Allow either space or tab in #! line.
---

diff --git a/lisp/files.el b/lisp/files.el
index 4ceab9c5d1d..31c7f257ce7 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))
 			   "")))