(auto-mode-alist): Use the purecopied text (duh!).

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f817d235f57..24d83794eac 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-08-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * files.el (auto-mode-alist): Use the purecopied text (duh!).
+
 2007-08-08  Andreas Schwab  <schwab@suse.de>
 
         * mail/mailabbrev.el (sendmail-pre-abbrev-expand-hook): Check for
diff --git a/lisp/files.el b/lisp/files.el
index 4d952f3f935..8ade456ee07 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1886,7 +1886,7 @@ since only a single case-insensitive search through the alist is made."
   ;; c++-mode, java-mode and more) are added through autoload
   ;; directives in that file.  That way is discouraged since it
   ;; spreads out the definition of the initial value.
-  (mapc
+  (mapcar
    (lambda (elt)
      (cons (purecopy (car elt)) (cdr elt)))
    `(;; do this first, so that .html.pl is Polish html, not Perl