Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 6b37e6ddd302
children 0132846995bd
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
1171 calling FUNCTION (if it's not nil), we delete the suffix that matched 1171 calling FUNCTION (if it's not nil), we delete the suffix that matched
1172 REGEXP and search the list again for another match.") 1172 REGEXP and search the list again for another match.")
1173 1173
1174 (defconst interpreter-mode-alist 1174 (defconst interpreter-mode-alist
1175 '(("^#!.*csh" . sh-mode) 1175 '(("^#!.*csh" . sh-mode)
1176 ("^#!.*sh\\b" . ksh-mode) 1176 ("^#!.*sh\\b" . sh-mode)
1177 ("^#!.*\\b\\(scope\\|wish\\|tcl\\|expect\\)" . tcl-mode) 1177 ("^#!.*\\b\\(scope\\|wish\\|tcl\\|expect\\)" . tcl-mode)
1178 ("perl" . perl-mode) 1178 ("perl" . perl-mode)
1179 ("python" . python-mode) 1179 ("python" . python-mode)
1180 ("awk\\b" . awk-mode) 1180 ("awk\\b" . awk-mode)
1181 ("rexx" . rexx-mode) 1181 ("rexx" . rexx-mode)
1182 ("scm" . scheme-mode) 1182 ("scm" . scheme-mode)
1183 ("^:" . ksh-mode)) 1183 ("^:" . sh-mode))
1184 "Alist mapping interpreter names to major modes. 1184 "Alist mapping interpreter names to major modes.
1185 This alist is used to guess the major mode of a file based on the 1185 This alist is used to guess the major mode of a file based on the
1186 contents of the first line. This line often contains something like: 1186 contents of the first line. This line often contains something like:
1187 #!/bin/sh 1187 #!/bin/sh
1188 but may contain something more imaginative like 1188 but may contain something more imaginative like