[Emacs-diffs] emacs/lisp ChangeLog international/mule.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/13 02:40:46

Modified files:
        lisp           : ChangeLog 
        lisp/international: mule.el 

Log message:
        (auto-coding-regexp-alist): Only purecopy
        car or each item, not the whole list.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16612&r2=1.16613
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule.el?cvsroot=emacs&r1=1.293&r2=1.294

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16612
retrieving revision 1.16613
diff -u -b -r1.16612 -r1.16613
--- ChangeLog   12 Nov 2009 23:10:01 -0000      1.16612
+++ ChangeLog   13 Nov 2009 02:40:40 -0000      1.16613
@@ -1,3 +1,8 @@
+2009-11-13  Dan Nicolaescu  <address@hidden>
+
+       * international/mule.el (auto-coding-regexp-alist): Only purecopy
+       car or each item, not the whole list.
+
 2009-11-12  Stefan Monnier  <address@hidden>
 
        * minibuffer.el (minibuffer-completion-help):

Index: international/mule.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule.el,v
retrieving revision 1.293
retrieving revision 1.294
diff -u -b -r1.293 -r1.294
--- international/mule.el       12 Nov 2009 06:55:43 -0000      1.293
+++ international/mule.el       13 Nov 2009 02:40:45 -0000      1.294
@@ -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)