Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 441bb1e64a06
children 8d2a9b52c682
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
1135 (defconst interpreter-mode-alist 1135 (defconst interpreter-mode-alist
1136 (mapcar 'purecopy 1136 (mapcar 'purecopy
1137 '(("^#!.*[acjkwz]sh" . sh-mode) 1137 '(("^#!.*[acjkwz]sh" . sh-mode)
1138 ("^#!.*sh\\b" . sh-mode) 1138 ("^#!.*sh\\b" . sh-mode)
1139 ("^#!.*\\b\\(scope\\|wishx?\\|tcl\\|tclsh\\|expect\\)" . tcl-mode) 1139 ("^#!.*\\b\\(scope\\|wishx?\\|tcl\\|tclsh\\|expect\\)" . tcl-mode)
1140 ("perl" . perl-mode)
1140 ("python" . python-mode) 1141 ("python" . python-mode)
1141 ("[mng]?awk\\b" . awk-mode) 1142 ("[mng]?awk\\b" . awk-mode)
1142 ("rexx" . rexx-mode) 1143 ("rexx" . rexx-mode)
1143 ("scm" . scheme-mode) 1144 ("scm" . scheme-mode)
1144 ("^:" . sh-mode) 1145 ("^:" . sh-mode)
1145 ("tail" . text-mode)
1146 ("more" . text-mode)
1147 ("less" . text-mode)
1148 ("pg" . text-mode)
1149 )) 1146 ))
1150 "Alist mapping interpreter names to major modes. 1147 "Alist mapping interpreter names to major modes.
1151 This alist is used to guess the major mode of a file based on the 1148 This alist is used to guess the major mode of a file based on the
1152 contents of the first line. This line often contains something like: 1149 contents of the first line. This line often contains something like:
1153 #!/bin/sh 1150 #!/bin/sh