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

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
-				'(("\\.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).