(auto-mode-alist): Don't purecopy the alist elts.

author: Richard M. Stallman 1995-11-29 21:18:05 +0000
committer: Richard M. Stallman 1995-11-29 21:18:05 +0000
commit: f76e0cd01747f7bf5eec9570f71d7d564dcb8abb (patch)
tree: b1973b09c590f11200714e61f076f8d0a8ac5144
parent: 7cba38455044b3de21e41906f4092ca3926b53ad (diff)
download: emacs-f76e0cd01747f7bf5eec9570f71d7d564dcb8abb.tar.gz
emacs-f76e0cd01747f7bf5eec9570f71d7d564dcb8abb.zip
1 files changed, 77 insertions, 77 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 8c42b53cdb3..ec3f8ba49aa 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -880,88 +880,88 @@ run `normal-mode' explicitly."
    (error (message "File local-variables error: %s"
                    (prin1-to-string err)))))
-(defvar auto-mode-alist (mapcar 'purecopy
+(defvar auto-mode-alist
-                                '(("\\.text\\'" . text-mode)
+  '(("\\.text\\'" . text-mode)
-                                  ("\\.c\\'" . c-mode)
+    ("\\.c\\'" . c-mode)
-                                  ("\\.h\\'" . c-mode)
+    ("\\.h\\'" . c-mode)
-                                  ("\\.tex\\'" . tex-mode)
+    ("\\.tex\\'" . tex-mode)
-                                  ("\\.ltx\\'" . latex-mode)
+    ("\\.ltx\\'" . latex-mode)
-                                  ("\\.el\\'" . emacs-lisp-mode)
+    ("\\.el\\'" . emacs-lisp-mode)
-                                  ("\\.mm\\'" . nroff-mode)
+    ("\\.mm\\'" . nroff-mode)
-                                  ("\\.me\\'" . nroff-mode)
+    ("\\.me\\'" . nroff-mode)
-                                  ("\\.ms\\'" . nroff-mode)
+    ("\\.ms\\'" . nroff-mode)
-                                  ("\\.man\\'" . nroff-mode)
+    ("\\.man\\'" . nroff-mode)
-                                  ("\\.scm\\'" . scheme-mode)
+    ("\\.scm\\'" . scheme-mode)
-                                  ("\\.l\\'" . lisp-mode)
+    ("\\.l\\'" . lisp-mode)
-                                  ("\\.lisp\\'" . lisp-mode)
+    ("\\.lisp\\'" . lisp-mode)
-                                  ("\\.f\\'" . fortran-mode)
+    ("\\.f\\'" . fortran-mode)
-                                  ("\\.for\\'" . fortran-mode)
+    ("\\.for\\'" . fortran-mode)
-                                  ("\\.p\\'" . pascal-mode)
+    ("\\.p\\'" . pascal-mode)
-                                  ("\\.pas\\'" . pascal-mode)
+    ("\\.pas\\'" . pascal-mode)
-                                  ("\\.mss\\'" . scribe-mode)
+    ("\\.mss\\'" . scribe-mode)
-                                  ("\\.ad[abs]\\'" . ada-mode)
+    ("\\.ad[abs]\\'" . ada-mode)
-                                  ("\\.icn\\'" . icon-mode)
+    ("\\.icn\\'" . icon-mode)
-                                  ("\\.pl\\'" . perl-mode)
+    ("\\.pl\\'" . perl-mode)
-                                  ("\\.cc\\'" . c++-mode)
+    ("\\.cc\\'" . c++-mode)
-                                  ("\\.hh\\'" . c++-mode)
+    ("\\.hh\\'" . c++-mode)
-                                  ("\\.C\\'" . c++-mode)
+    ("\\.C\\'" . c++-mode)
-                                  ("\\.H\\'" . c++-mode)
+    ("\\.H\\'" . c++-mode)
-                                  ("\\.cpp\\'" . c++-mode)
+    ("\\.cpp\\'" . c++-mode)
-                                  ("\\.cxx\\'" . c++-mode)
+    ("\\.cxx\\'" . c++-mode)
-                                  ("\\.hxx\\'" . c++-mode)
+    ("\\.hxx\\'" . c++-mode)
-                                  ("\\.c\\+\\+\\'" . c++-mode)
+    ("\\.c\\+\\+\\'" . c++-mode)
-                                  ("\\.h\\+\\+\\'" . c++-mode)
+    ("\\.h\\+\\+\\'" . c++-mode)
-                                  ("\\.mk\\'" . makefile-mode)
+    ("\\.mk\\'" . makefile-mode)
-                                  ("[Mm]akefile\\(.in\\)?\\'" . makefile-mode)
+    ("[Mm]akefile\\(.in\\)?\\'" . makefile-mode)
 ;;; Less common extensions come here
 ;;; so more common ones above are found faster.
-                                  ("\\.texinfo\\'" . texinfo-mode)
+    ("\\.texinfo\\'" . texinfo-mode)
-                                  ("\\.texi\\'" . texinfo-mode)
+    ("\\.texi\\'" . texinfo-mode)
-                                  ("\\.s\\'" . asm-mode)
+    ("\\.s\\'" . asm-mode)
-                                  ("ChangeLog\\'" . change-log-mode)
+    ("ChangeLog\\'" . change-log-mode)
-                                  ("change.log\\'" . change-log-mode)
+    ("change.log\\'" . change-log-mode)
-                                  ("changelo\\'" . change-log-mode)
+    ("changelo\\'" . change-log-mode)
-                                  ("ChangeLog.[0-9]+\\'" . change-log-mode)
+    ("ChangeLog.[0-9]+\\'" . change-log-mode)
-                                  ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
+    ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
-                                  ("\\.scm\\.[0-9]*\\'" . scheme-mode)
+    ("\\.scm\\.[0-9]*\\'" . scheme-mode)
 ;;; The following should come after the ChangeLog pattern
 ;;; for the sake of ChangeLog.1, etc.
 ;;; and after the .scm.[0-9] pattern too.
-                                  ("\\.[12345678]\\'" . nroff-mode)
+    ("\\.[12345678]\\'" . nroff-mode)
-                                  ("\\.TeX\\'" . tex-mode)
+    ("\\.TeX\\'" . tex-mode)
-                                  ("\\.sty\\'" . latex-mode)
+    ("\\.sty\\'" . latex-mode)
-                                  ("\\.cls\\'" . latex-mode) ;LaTeX 2e class
+    ("\\.cls\\'" . latex-mode)          ;LaTeX 2e class
-                                  ("\\.bbl\\'" . latex-mode)
+    ("\\.bbl\\'" . latex-mode)
-                                  ("\\.bib\\'" . bibtex-mode)
+    ("\\.bib\\'" . bibtex-mode)
-                                  ("\\.article\\'" . text-mode)
+    ("\\.article\\'" . text-mode)
-                                  ("\\.letter\\'" . text-mode)
+    ("\\.letter\\'" . text-mode)
-                                  ("\\.tcl\\'" . tcl-mode)
+    ("\\.tcl\\'" . tcl-mode)
-                                  ("\\.f90\\'" . f90-mode)
+    ("\\.f90\\'" . f90-mode)
-                                  ("\\.lsp\\'" . lisp-mode)
+    ("\\.lsp\\'" . lisp-mode)
-                                  ("\\.awk\\'" . awk-mode)
+    ("\\.awk\\'" . awk-mode)
-                                  ("\\.prolog\\'" . prolog-mode)
+    ("\\.prolog\\'" . prolog-mode)
-                                  ("\\.tar\\'" . tar-mode)
+    ("\\.tar\\'" . tar-mode)
-                                  ("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode)
+    ("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode)
-                                  ;; Mailer puts message to be edited in
+    ;; Mailer puts message to be edited in
-                                  ;; /tmp/Re.... or Message
+    ;; /tmp/Re.... or Message
-                                  ("^/tmp/Re" . text-mode)
+    ("^/tmp/Re" . text-mode)
-                                  ("/Message[0-9]*\\'" . text-mode)
+    ("/Message[0-9]*\\'" . text-mode)
-                                  ("/drafts/[0-9]+\\'" . mh-letter-mode)
+    ("/drafts/[0-9]+\\'" . mh-letter-mode)
-                                  ;; some news reader is reported to use this
+    ;; some news reader is reported to use this
-                                  ("^/tmp/fol/" . text-mode)
+    ("^/tmp/fol/" . text-mode)
-                                  ("\\.y\\'" . c-mode)
+    ("\\.y\\'" . c-mode)
-                                  ("\\.lex\\'" . c-mode)
+    ("\\.lex\\'" . c-mode)
-                                  ("\\.oak\\'" . scheme-mode)
+    ("\\.oak\\'" . scheme-mode)
-                                  ("\\.sgm\\'" . sgml-mode)
+    ("\\.sgm\\'" . sgml-mode)
-                                  ("\\.sgml\\'" . sgml-mode)
+    ("\\.sgml\\'" . sgml-mode)
-                                  ("\\.dtd\\'" . sgml-mode)
+    ("\\.dtd\\'" . sgml-mode)
-                                  ;; .emacs following a directory delimiter
+    ;; .emacs following a directory delimiter
-                                  ;; in either Unix or VMS syntax.
+    ;; in either Unix or VMS syntax.
-                                  ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)
+    ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)
-                                  ;; _emacs following a directory delimiter
+    ;; _emacs following a directory delimiter
-                                  ;; in MsDos syntax
+    ;; in MsDos syntax
-                                  ("[:/]_emacs\\'" . emacs-lisp-mode)
+    ("[:/]_emacs\\'" . emacs-lisp-mode)
-                                  ("\\.ml\\'" . lisp-mode)))
+    ("\\.ml\\'" . lisp-mode))
  "\
 Alist of filename patterns vs corresponding major mode functions.
 Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION NON-NIL).
author	Richard M. Stallman	1995-11-29 21:18:05 +0000
committer	Richard M. Stallman	1995-11-29 21:18:05 +0000
commit	f76e0cd01747f7bf5eec9570f71d7d564dcb8abb (patch)
tree	b1973b09c590f11200714e61f076f8d0a8ac5144
parent	7cba38455044b3de21e41906f4092ca3926b53ad (diff)
download	emacs-f76e0cd01747f7bf5eec9570f71d7d564dcb8abb.tar.gz emacs-f76e0cd01747f7bf5eec9570f71d7d564dcb8abb.zip

diff --git a/lisp/files.el b/lisp/files.el index 8c42b53cdb3..ec3f8ba49aa 100644 --- a/lisp/files.el +++ b/lisp/files.el
@@ -880,88 +880,88 @@ run `normal-mode' explicitly."
880	(error (message "File local-variables error: %s"	880	(error (message "File local-variables error: %s"
881	(prin1-to-string err)))))	881	(prin1-to-string err)))))
882		882
883	(defvar auto-mode-alist (mapcar 'purecopy	883	(defvar auto-mode-alist
884	'(("\\.text\\'" . text-mode)	884	'(("\\.text\\'" . text-mode)
885	("\\.c\\'" . c-mode)	885	("\\.c\\'" . c-mode)
886	("\\.h\\'" . c-mode)	886	("\\.h\\'" . c-mode)
887	("\\.tex\\'" . tex-mode)	887	("\\.tex\\'" . tex-mode)
888	("\\.ltx\\'" . latex-mode)	888	("\\.ltx\\'" . latex-mode)
889	("\\.el\\'" . emacs-lisp-mode)	889	("\\.el\\'" . emacs-lisp-mode)
890	("\\.mm\\'" . nroff-mode)	890	("\\.mm\\'" . nroff-mode)
891	("\\.me\\'" . nroff-mode)	891	("\\.me\\'" . nroff-mode)
892	("\\.ms\\'" . nroff-mode)	892	("\\.ms\\'" . nroff-mode)
893	("\\.man\\'" . nroff-mode)	893	("\\.man\\'" . nroff-mode)
894	("\\.scm\\'" . scheme-mode)	894	("\\.scm\\'" . scheme-mode)
895	("\\.l\\'" . lisp-mode)	895	("\\.l\\'" . lisp-mode)
896	("\\.lisp\\'" . lisp-mode)	896	("\\.lisp\\'" . lisp-mode)
897	("\\.f\\'" . fortran-mode)	897	("\\.f\\'" . fortran-mode)
898	("\\.for\\'" . fortran-mode)	898	("\\.for\\'" . fortran-mode)
899	("\\.p\\'" . pascal-mode)	899	("\\.p\\'" . pascal-mode)
900	("\\.pas\\'" . pascal-mode)	900	("\\.pas\\'" . pascal-mode)
901	("\\.mss\\'" . scribe-mode)	901	("\\.mss\\'" . scribe-mode)
902	("\\.ad[abs]\\'" . ada-mode)	902	("\\.ad[abs]\\'" . ada-mode)
903	("\\.icn\\'" . icon-mode)	903	("\\.icn\\'" . icon-mode)
904	("\\.pl\\'" . perl-mode)	904	("\\.pl\\'" . perl-mode)
905	("\\.cc\\'" . c++-mode)	905	("\\.cc\\'" . c++-mode)
906	("\\.hh\\'" . c++-mode)	906	("\\.hh\\'" . c++-mode)
907	("\\.C\\'" . c++-mode)	907	("\\.C\\'" . c++-mode)
908	("\\.H\\'" . c++-mode)	908	("\\.H\\'" . c++-mode)
909	("\\.cpp\\'" . c++-mode)	909	("\\.cpp\\'" . c++-mode)
910	("\\.cxx\\'" . c++-mode)	910	("\\.cxx\\'" . c++-mode)
911	("\\.hxx\\'" . c++-mode)	911	("\\.hxx\\'" . c++-mode)
912	("\\.c\\+\\+\\'" . c++-mode)	912	("\\.c\\+\\+\\'" . c++-mode)
913	("\\.h\\+\\+\\'" . c++-mode)	913	("\\.h\\+\\+\\'" . c++-mode)
914	("\\.mk\\'" . makefile-mode)	914	("\\.mk\\'" . makefile-mode)
915	("[Mm]akefile\\(.in\\)?\\'" . makefile-mode)	915	("[Mm]akefile\\(.in\\)?\\'" . makefile-mode)
916	;;; Less common extensions come here	916	;;; Less common extensions come here
917	;;; so more common ones above are found faster.	917	;;; so more common ones above are found faster.
918	("\\.texinfo\\'" . texinfo-mode)	918	("\\.texinfo\\'" . texinfo-mode)
919	("\\.texi\\'" . texinfo-mode)	919	("\\.texi\\'" . texinfo-mode)
920	("\\.s\\'" . asm-mode)	920	("\\.s\\'" . asm-mode)
921	("ChangeLog\\'" . change-log-mode)	921	("ChangeLog\\'" . change-log-mode)
922	("change.log\\'" . change-log-mode)	922	("change.log\\'" . change-log-mode)
923	("changelo\\'" . change-log-mode)	923	("changelo\\'" . change-log-mode)
924	("ChangeLog.[0-9]+\\'" . change-log-mode)	924	("ChangeLog.[0-9]+\\'" . change-log-mode)
925	("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)	925	("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
926	("\\.scm\\.[0-9]*\\'" . scheme-mode)	926	("\\.scm\\.[0-9]*\\'" . scheme-mode)
927	;;; The following should come after the ChangeLog pattern	927	;;; The following should come after the ChangeLog pattern
928	;;; for the sake of ChangeLog.1, etc.	928	;;; for the sake of ChangeLog.1, etc.
929	;;; and after the .scm.[0-9] pattern too.	929	;;; and after the .scm.[0-9] pattern too.
930	("\\.[12345678]\\'" . nroff-mode)	930	("\\.[12345678]\\'" . nroff-mode)
931	("\\.TeX\\'" . tex-mode)	931	("\\.TeX\\'" . tex-mode)
932	("\\.sty\\'" . latex-mode)	932	("\\.sty\\'" . latex-mode)
933	("\\.cls\\'" . latex-mode) ;LaTeX 2e class	933	("\\.cls\\'" . latex-mode) ;LaTeX 2e class
934	("\\.bbl\\'" . latex-mode)	934	("\\.bbl\\'" . latex-mode)
935	("\\.bib\\'" . bibtex-mode)	935	("\\.bib\\'" . bibtex-mode)
936	("\\.article\\'" . text-mode)	936	("\\.article\\'" . text-mode)
937	("\\.letter\\'" . text-mode)	937	("\\.letter\\'" . text-mode)
938	("\\.tcl\\'" . tcl-mode)	938	("\\.tcl\\'" . tcl-mode)
939	("\\.f90\\'" . f90-mode)	939	("\\.f90\\'" . f90-mode)
940	("\\.lsp\\'" . lisp-mode)	940	("\\.lsp\\'" . lisp-mode)
941	("\\.awk\\'" . awk-mode)	941	("\\.awk\\'" . awk-mode)
942	("\\.prolog\\'" . prolog-mode)	942	("\\.prolog\\'" . prolog-mode)
943	("\\.tar\\'" . tar-mode)	943	("\\.tar\\'" . tar-mode)
944	("\\.\\(arc\\\|zip\\\|lzh\\\|zoo\\)\\'" . archive-mode)	944	("\\.\\(arc\\\|zip\\\|lzh\\\|zoo\\)\\'" . archive-mode)
945	;; Mailer puts message to be edited in	945	;; Mailer puts message to be edited in
946	;; /tmp/Re.... or Message	946	;; /tmp/Re.... or Message
947	("^/tmp/Re" . text-mode)	947	("^/tmp/Re" . text-mode)
948	("/Message[0-9]*\\'" . text-mode)	948	("/Message[0-9]*\\'" . text-mode)
949	("/drafts/[0-9]+\\'" . mh-letter-mode)	949	("/drafts/[0-9]+\\'" . mh-letter-mode)
950	;; some news reader is reported to use this	950	;; some news reader is reported to use this
951	("^/tmp/fol/" . text-mode)	951	("^/tmp/fol/" . text-mode)
952	("\\.y\\'" . c-mode)	952	("\\.y\\'" . c-mode)
953	("\\.lex\\'" . c-mode)	953	("\\.lex\\'" . c-mode)
954	("\\.oak\\'" . scheme-mode)	954	("\\.oak\\'" . scheme-mode)
955	("\\.sgm\\'" . sgml-mode)	955	("\\.sgm\\'" . sgml-mode)
956	("\\.sgml\\'" . sgml-mode)	956	("\\.sgml\\'" . sgml-mode)
957	("\\.dtd\\'" . sgml-mode)	957	("\\.dtd\\'" . sgml-mode)
958	;; .emacs following a directory delimiter	958	;; .emacs following a directory delimiter
959	;; in either Unix or VMS syntax.	959	;; in either Unix or VMS syntax.
960	("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)	960	("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)
961	;; _emacs following a directory delimiter	961	;; _emacs following a directory delimiter
962	;; in MsDos syntax	962	;; in MsDos syntax
963	("[:/]_emacs\\'" . emacs-lisp-mode)	963	("[:/]_emacs\\'" . emacs-lisp-mode)
964	("\\.ml\\'" . lisp-mode)))	964	("\\.ml\\'" . lisp-mode))
965	"\	965	"\
966	Alist of filename patterns vs corresponding major mode functions.	966	Alist of filename patterns vs corresponding major mode functions.
967	Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION NON-NIL).	967	Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION NON-NIL).