Mercurial > emacs
changeset 30689:194b7f43b959
(auto-mode-interpreter-regexp): New variable.
(set-auto-mode): Use it.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 08 Aug 2000 18:32:10 +0000 |
| parents | f0a91dd9685b |
| children | e666b7ea99a9 |
| files | lisp/files.el |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Aug 08 18:30:47 2000 +0000 +++ b/lisp/files.el Tue Aug 08 18:32:10 2000 +0000 @@ -1513,6 +1513,17 @@ 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 @@ (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)