Mercurial > emacs

diff lisp/international/mule.el @ 105970:f6c1ac558c84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(auto-coding-regexp-alist): Only purecopy car or each item, not the whole list.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 13 Nov 2009 02:40:40 +0000
parents 3f64b8380468
children 1d1d5d9bd884
line wrap: on
line diff
--- 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)