# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1258080040 0
# Node ID f6c1ac558c84db5f3e887e27f299a7c747c602cf
# Parent  6a8befbb8e39a3f413ed94103f87a65711797ccf
(auto-coding-regexp-alist): Only purecopy
car or each item, not the whole list.

diff -r 6a8befbb8e39 -r f6c1ac558c84 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Nov 12 23:10:01 2009 +0000
+++ b/lisp/ChangeLog	Fri Nov 13 02:40:40 2009 +0000
@@ -1,3 +1,8 @@
+2009-11-13  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* international/mule.el (auto-coding-regexp-alist): Only purecopy
+	car or each item, not the whole list.
+
 2009-11-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* minibuffer.el (minibuffer-completion-help):
diff -r 6a8befbb8e39 -r f6c1ac558c84 lisp/international/mule.el
--- a/lisp/international/mule.el	Thu Nov 12 23:10:01 2009 +0000
+++ b/lisp/international/mule.el	Fri Nov 13 02:40:40 2009 +0000
@@ -1648,7 +1648,7 @@
 		       (symbol :tag "Coding system"))))
 
 (defcustom auto-coding-regexp-alist
-  (purecopy
+  (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
   '(("\\`BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion)
     ("\\`\xFE\xFF" . utf-16be-with-signature)
     ("\\`\xFF\xFE" . utf-16le-with-signature)