From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 15 Dec 1995 21:11:52 +0000 (+0000)
Subject: (set-auto-mode): Recognize `#!/bin/env INTERPRETER' hack.
X-Git-Tag: emacs-19.34~2123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1540e4e9cc1ca84acba6e3aaf848e50c0f0156c7;p=emacs.git

(set-auto-mode): Recognize `#!/bin/env INTERPRETER' hack.
---

diff --git a/lisp/files.el b/lisp/files.el
index 0f8f69c6bc4..11ed8883cb3 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1108,12 +1108,14 @@ If `enable-local-variables' is nil, this function does not check for a
 		  (funcall mode)
 		;; If we can't deduce a mode from the file name,
 		;; look for an interpreter specified in the first line.
+		;; As a special case, allow for things like "#!/bin/env perl",
+		;; which finds the interpreter anywhere in $PATH.
 		(let ((interpreter
 		       (save-excursion
 			 (goto-char (point-min))
-			 (if (looking-at "#! *\\([^ \t\n]+\\)")
-			     (buffer-substring (match-beginning 1)
-					       (match-end 1))
+			 (if (looking-at "#! *\\([^ \t\n]*/bin/env +\\)?\\([^ \t\n]+\\)")
+			     (buffer-substring (match-beginning 2)
+					       (match-end 2))
 			   "")))
 		      elt)
 		  ;; Map interpreter name to a mode.