diff options
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
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.") | |||
| 1018 | ("tcl" . tcl-mode) | 1018 | ("tcl" . tcl-mode) |
| 1019 | ("tclsh" . tcl-mode) | 1019 | ("tclsh" . tcl-mode) |
| 1020 | ("awk" . awk-mode) | 1020 | ("awk" . awk-mode) |
| 1021 | ("mawk" . awk-mode) | ||
| 1021 | ("nawk" . awk-mode) | 1022 | ("nawk" . awk-mode) |
| 1022 | ("gawk" . awk-mode) | 1023 | ("gawk" . awk-mode) |
| 1023 | ("scm" . scheme-mode) | 1024 | ("scm" . scheme-mode) |
| @@ -1172,7 +1173,7 @@ If `enable-local-variables' is nil, this function does not check for a | |||
| 1172 | (let ((interpreter | 1173 | (let ((interpreter |
| 1173 | (save-excursion | 1174 | (save-excursion |
| 1174 | (goto-char (point-min)) | 1175 | (goto-char (point-min)) |
| 1175 | (if (looking-at "#! *\\([^ \t\n]*/bin/env +\\)?\\([^ \t\n]+\\)") | 1176 | (if (looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") |
| 1176 | (buffer-substring (match-beginning 2) | 1177 | (buffer-substring (match-beginning 2) |
| 1177 | (match-end 2)) | 1178 | (match-end 2)) |
| 1178 | ""))) | 1179 | ""))) |