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

diff --git a/lisp/files.el b/lisp/files.el
index 8c42b53cdb3e2a36ad417adf29f6e7bdb6148726..ec3f8ba49aa834eb2caea886b6455e206f266f13 100644 (file)
--- 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
-                               '(("\\.text\\'" . text-mode)
-                                 ("\\.c\\'" . c-mode)
-                                 ("\\.h\\'" . c-mode)
-                                 ("\\.tex\\'" . tex-mode)
-                                 ("\\.ltx\\'" . latex-mode)
-                                 ("\\.el\\'" . emacs-lisp-mode)
-                                 ("\\.mm\\'" . nroff-mode)
-                                 ("\\.me\\'" . nroff-mode)
-                                 ("\\.ms\\'" . nroff-mode)
-                                 ("\\.man\\'" . nroff-mode)
-                                 ("\\.scm\\'" . scheme-mode)
-                                 ("\\.l\\'" . lisp-mode)
-                                 ("\\.lisp\\'" . lisp-mode)
-                                 ("\\.f\\'" . fortran-mode)
-                                 ("\\.for\\'" . fortran-mode)
-                                 ("\\.p\\'" . pascal-mode)
-                                 ("\\.pas\\'" . pascal-mode)
-                                 ("\\.mss\\'" . scribe-mode)
-                                 ("\\.ad[abs]\\'" . ada-mode)
-                                 ("\\.icn\\'" . icon-mode)
-                                 ("\\.pl\\'" . perl-mode)
-                                 ("\\.cc\\'" . c++-mode)
-                                 ("\\.hh\\'" . c++-mode)
-                                 ("\\.C\\'" . c++-mode)
-                                 ("\\.H\\'" . c++-mode)
-                                 ("\\.cpp\\'" . c++-mode)
-                                 ("\\.cxx\\'" . c++-mode)
-                                 ("\\.hxx\\'" . c++-mode)
-                                 ("\\.c\\+\\+\\'" . c++-mode)
-                                 ("\\.h\\+\\+\\'" . c++-mode)
-                                 ("\\.mk\\'" . makefile-mode)
-                                 ("[Mm]akefile\\(.in\\)?\\'" . makefile-mode)
+(defvar auto-mode-alist
+  '(("\\.text\\'" . text-mode)
+    ("\\.c\\'" . c-mode)
+    ("\\.h\\'" . c-mode)
+    ("\\.tex\\'" . tex-mode)
+    ("\\.ltx\\'" . latex-mode)
+    ("\\.el\\'" . emacs-lisp-mode)
+    ("\\.mm\\'" . nroff-mode)
+    ("\\.me\\'" . nroff-mode)
+    ("\\.ms\\'" . nroff-mode)
+    ("\\.man\\'" . nroff-mode)
+    ("\\.scm\\'" . scheme-mode)
+    ("\\.l\\'" . lisp-mode)
+    ("\\.lisp\\'" . lisp-mode)
+    ("\\.f\\'" . fortran-mode)
+    ("\\.for\\'" . fortran-mode)
+    ("\\.p\\'" . pascal-mode)
+    ("\\.pas\\'" . pascal-mode)
+    ("\\.mss\\'" . scribe-mode)
+    ("\\.ad[abs]\\'" . ada-mode)
+    ("\\.icn\\'" . icon-mode)
+    ("\\.pl\\'" . perl-mode)
+    ("\\.cc\\'" . c++-mode)
+    ("\\.hh\\'" . c++-mode)
+    ("\\.C\\'" . c++-mode)
+    ("\\.H\\'" . c++-mode)
+    ("\\.cpp\\'" . c++-mode)
+    ("\\.cxx\\'" . c++-mode)
+    ("\\.hxx\\'" . c++-mode)
+    ("\\.c\\+\\+\\'" . c++-mode)
+    ("\\.h\\+\\+\\'" . c++-mode)
+    ("\\.mk\\'" . makefile-mode)
+    ("[Mm]akefile\\(.in\\)?\\'" . makefile-mode)
 ;;; Less common extensions come here
 ;;; so more common ones above are found faster.
-                                 ("\\.texinfo\\'" . texinfo-mode)
-                                 ("\\.texi\\'" . texinfo-mode)
-                                 ("\\.s\\'" . asm-mode)
-                                 ("ChangeLog\\'" . change-log-mode)
-                                 ("change.log\\'" . change-log-mode)
-                                 ("changelo\\'" . change-log-mode)
-                                 ("ChangeLog.[0-9]+\\'" . change-log-mode)
-                                 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
-                                 ("\\.scm\\.[0-9]*\\'" . scheme-mode)
+    ("\\.texinfo\\'" . texinfo-mode)
+    ("\\.texi\\'" . texinfo-mode)
+    ("\\.s\\'" . asm-mode)
+    ("ChangeLog\\'" . change-log-mode)
+    ("change.log\\'" . change-log-mode)
+    ("changelo\\'" . change-log-mode)
+    ("ChangeLog.[0-9]+\\'" . change-log-mode)
+    ("\\$CHANGE_LOG\\$\\.TXT" . change-log-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)
-                                 ("\\.TeX\\'" . tex-mode)
-                                 ("\\.sty\\'" . latex-mode)
-                                 ("\\.cls\\'" . latex-mode) ;LaTeX 2e class
-                                 ("\\.bbl\\'" . latex-mode)
-                                 ("\\.bib\\'" . bibtex-mode)
-                                 ("\\.article\\'" . text-mode)
-                                 ("\\.letter\\'" . text-mode)
-                                 ("\\.tcl\\'" . tcl-mode)
-                                 ("\\.f90\\'" . f90-mode)
-                                 ("\\.lsp\\'" . lisp-mode)
-                                 ("\\.awk\\'" . awk-mode)
-                                 ("\\.prolog\\'" . prolog-mode)
-                                 ("\\.tar\\'" . tar-mode)
-                                 ("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode)
-                                 ;; Mailer puts message to be edited in
-                                 ;; /tmp/Re.... or Message
-                                 ("^/tmp/Re" . text-mode)
-                                 ("/Message[0-9]*\\'" . text-mode)
-                                 ("/drafts/[0-9]+\\'" . mh-letter-mode)
-                                 ;; some news reader is reported to use this
-                                 ("^/tmp/fol/" . text-mode)
-                                 ("\\.y\\'" . c-mode)
-                                 ("\\.lex\\'" . c-mode)
-                                 ("\\.oak\\'" . scheme-mode)
-                                 ("\\.sgm\\'" . sgml-mode)
-                                 ("\\.sgml\\'" . sgml-mode)
-                                 ("\\.dtd\\'" . sgml-mode)
-                                 ;; .emacs following a directory delimiter
-                                 ;; in either Unix or VMS syntax.
-                                 ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)
-                                 ;; _emacs following a directory delimiter
-                                 ;; in MsDos syntax
-                                 ("[:/]_emacs\\'" . emacs-lisp-mode)
-                                 ("\\.ml\\'" . lisp-mode)))
+    ("\\.[12345678]\\'" . nroff-mode)
+    ("\\.TeX\\'" . tex-mode)
+    ("\\.sty\\'" . latex-mode)
+    ("\\.cls\\'" . latex-mode)         ;LaTeX 2e class
+    ("\\.bbl\\'" . latex-mode)
+    ("\\.bib\\'" . bibtex-mode)
+    ("\\.article\\'" . text-mode)
+    ("\\.letter\\'" . text-mode)
+    ("\\.tcl\\'" . tcl-mode)
+    ("\\.f90\\'" . f90-mode)
+    ("\\.lsp\\'" . lisp-mode)
+    ("\\.awk\\'" . awk-mode)
+    ("\\.prolog\\'" . prolog-mode)
+    ("\\.tar\\'" . tar-mode)
+    ("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode)
+    ;; Mailer puts message to be edited in
+    ;; /tmp/Re.... or Message
+    ("^/tmp/Re" . text-mode)
+    ("/Message[0-9]*\\'" . text-mode)
+    ("/drafts/[0-9]+\\'" . mh-letter-mode)
+    ;; some news reader is reported to use this
+    ("^/tmp/fol/" . text-mode)
+    ("\\.y\\'" . c-mode)
+    ("\\.lex\\'" . c-mode)
+    ("\\.oak\\'" . scheme-mode)
+    ("\\.sgm\\'" . sgml-mode)
+    ("\\.sgml\\'" . sgml-mode)
+    ("\\.dtd\\'" . sgml-mode)
+    ;; .emacs following a directory delimiter
+    ;; in either Unix or VMS syntax.
+    ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)
+    ;; _emacs following a directory delimiter
+    ;; in MsDos syntax
+    ("[:/]_emacs\\'" . emacs-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).