Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 59463afc5666
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1090 (prin1-to-string err)))))) 1090 (prin1-to-string err))))))
1091 1091
1092 (defvar auto-mode-alist 1092 (defvar auto-mode-alist
1093 '(("\\.te?xt\\'" . text-mode) 1093 '(("\\.te?xt\\'" . text-mode)
1094 ("\\.[ch]\\'" . c-mode) 1094 ("\\.[ch]\\'" . c-mode)
1095 ("\\.ltx\\'" . latex-mode)
1096 ("\\.el\\'" . emacs-lisp-mode) 1095 ("\\.el\\'" . emacs-lisp-mode)
1097 ("\\.l\\(i?sp\\)?\\'" . lisp-mode)
1098 ("\\.f\\(or\\)?\\'" . fortran-mode)
1099 ("\\.p\\(as\\)?\\'" . pascal-mode)
1100 ("\\.ad[abs]\\'" . ada-mode)
1101 ("\\.p[lm]\\'" . perl-mode)
1102 ("\\.\\([CH]\\|cc\\|hh\\)\\'" . c++-mode) 1096 ("\\.\\([CH]\\|cc\\|hh\\)\\'" . c++-mode)
1103 ("\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\'" . c++-mode) 1097 ("\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\'" . c++-mode)
1104 ("\\.java\\'" . java-mode) 1098 ("\\.java\\'" . java-mode)
1099 ("\\.f\\(or\\)?\\'" . fortran-mode)
1100 ("\\.F\\(OR\\)?\\'" . fortran-mode)
1101 ("\\.[fF]90\\'" . f90-mode)
1105 ;;; Less common extensions come here 1102 ;;; Less common extensions come here
1106 ;;; so more common ones above are found faster. 1103 ;;; so more common ones above are found faster.
1104 ("\\.p[lm]\\'" . perl-mode)
1105 ("\\.py\\'" . python-mode)
1107 ("\\.texi\\(nfo\\)?\\'" . texinfo-mode) 1106 ("\\.texi\\(nfo\\)?\\'" . texinfo-mode)
1107 ("\\.ad[abs]\\'" . ada-mode)
1108 ("\\.l\\(i?sp\\)?\\'" . lisp-mode)
1109 ("\\.p\\(as\\)?\\'" . pascal-mode)
1110 ("\\.ltx\\'" . latex-mode)
1108 ("\\.[sS]\\'" . asm-mode) 1111 ("\\.[sS]\\'" . asm-mode)
1109 ("[Cc]hange.?[Ll]og?\\(.[0-9]+\\)?\\'" . change-log-mode) 1112 ("[Cc]hange.?[Ll]og?\\(.[0-9]+\\)?\\'" . change-log-mode)
1110 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) 1113 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
1111 ("\\.scm\\(\\.[0-9]*\\)?\\'" . scheme-mode) 1114 ("\\.scm\\(\\.[0-9]*\\)?\\'" . scheme-mode)
1112 ("\\.py\\'" . python-mode)
1113 ("\\.e\\'" . eiffel-mode) 1115 ("\\.e\\'" . eiffel-mode)
1114 ("\\.mss\\'" . scribe-mode) 1116 ("\\.mss\\'" . scribe-mode)
1115 ("\\.m\\([mes]\\|an\\)\\'" . nroff-mode) 1117 ("\\.m\\([mes]\\|an\\)\\'" . nroff-mode)
1116 ("\\.icn\\'" . icon-mode) 1118 ("\\.icn\\'" . icon-mode)
1117 ;;; The following should come after the ChangeLog pattern 1119 ;;; The following should come after the ChangeLog pattern
1123 ("\\.bib\\'" . bibtex-mode) 1125 ("\\.bib\\'" . bibtex-mode)
1124 ("\\.article\\'" . text-mode) 1126 ("\\.article\\'" . text-mode)
1125 ("\\.letter\\'" . text-mode) 1127 ("\\.letter\\'" . text-mode)
1126 ("\\.\\(tcl\\|exp\\)\\'" . tcl-mode) 1128 ("\\.\\(tcl\\|exp\\)\\'" . tcl-mode)
1127 ("\\.wrl\\'" . vrml-mode) 1129 ("\\.wrl\\'" . vrml-mode)
1128 ("\\.f90\\'" . f90-mode)
1129 ("\\.awk\\'" . awk-mode) 1130 ("\\.awk\\'" . awk-mode)
1130 ("\\.prolog\\'" . prolog-mode) 1131 ("\\.prolog\\'" . prolog-mode)
1131 ("\\.tar\\'" . tar-mode) 1132 ("\\.tar\\'" . tar-mode)
1132 ("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode) 1133 ("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode)
1133 ;; Mailer puts message to be edited in 1134 ;; Mailer puts message to be edited in
1148 ;; in either Unix or VMS syntax. 1149 ;; in either Unix or VMS syntax.
1149 ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode) 1150 ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)
1150 ;; _emacs following a directory delimiter 1151 ;; _emacs following a directory delimiter
1151 ;; in MsDos syntax 1152 ;; in MsDos syntax
1152 ("[:/]_emacs\\'" . emacs-lisp-mode) 1153 ("[:/]_emacs\\'" . emacs-lisp-mode)
1153 ("\\.m4\\'" . m4-mode) 1154 ("\\.m4\\'" . autoconf-mode)
1154 ("configure\\.in\\'" . autoconf-mode) 1155 ("configure\\.in\\'" . autoconf-mode)
1155 ("\\.ml\\'" . lisp-mode) 1156 ("\\.ml\\'" . lisp-mode)
1156 ("\\.ma?k\\'" . makefile-mode) 1157 ("\\.ma?k\\'" . makefile-mode)
1157 ("[Mm]akefile\\(\\.\\|\\'\\)" . makefile-mode) 1158 ("[Mm]akefile\\(\\.\\|\\'\\)" . makefile-mode)
1158 ) 1159 )
1159 "Alist of filename patterns vs. corresponding major mode functions. 1160 "Alist of filename patterns vs. corresponding major mode functions.
1160 Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION NON-NIL). 1161 Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION NON-NIL).
1161 \(NON-NIL stands for anything that is not nil; the value does not matter.) 1162 \(NON-NIL stands for anything that is not nil; the value does not matter.)
1162 Visiting a file whose name matches REGEXP specifies FUNCTION as the 1163 Visiting a file whose name matches REGEXP specifies FUNCTION as the
1163 mode function to use. FUNCTION will be called, unless it is nil. 1164 mode function to use. FUNCTION will be called, unless it is nil.
1164 1165