From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 8 Aug 2000 18:32:10 +0000 (+0000)
Subject: (auto-mode-interpreter-regexp): New variable.
X-Git-Tag: emacs-pretest-21.0.90~2408
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0720b68be2573f018c87fba04b28a01a8e112700;p=emacs.git

(auto-mode-interpreter-regexp): New variable.
(set-auto-mode): Use it.
---

diff --git a/lisp/files.el b/lisp/files.el
index b86b8d64004..1a7ddb872cf 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1513,6 +1513,17 @@ If it matches, mode MODE is selected.")
 When checking `inhibit-first-line-modes-regexps', we first discard
 from the end of the file name anything that matches one of these regexps.")
 
+(defvar auto-mode-interpreter-regexp 
+  "#![ \t]?\\([^ \t\n]*\
+/bin/env[ \t]\\)?\\([^ \t\n]+\\)"
+  "Regular expression matching interpreters, for file mode determination.
+This regular expression is matched against the first line of a file
+to determine the file's mode in `set-auto-mode' when Emacs can't deduce
+a mode from the file's name.  If it matches, the file is assumed to
+be interpreted by the interpreter matched by the second group of the
+regular expression.  The mode is then determined as the mode associated
+with that interpreter in `interpreter-mode-alist'.")
+
 (defun set-auto-mode (&optional just-from-file-name)
   "Select major mode appropriate for current buffer.
 This checks for a -*- mode tag in the buffer's text,
@@ -1634,8 +1645,7 @@ and we don't even do that unless it would come from the file name."
 		(let ((interpreter
 		       (save-excursion
 			 (goto-char (point-min))
-			 (if (looking-at "#![ \t]?\\([^ \t\n]*\
-/bin/env[ \t]\\)?\\([^ \t\n]+\\)")
+			 (if (looking-at auto-mode-interpreter-regexp)
 			     (match-string 2)
 			   "")))
 		      elt)