(auto-coding-regexp-alist): Only purecopy

car or each item, not the whole list.
This commit is contained in:
Dan Nicolaescu 2009-11-13 02:40:40 +00:00
parent 4d93a9e061
commit f70b89257e
2 changed files with 6 additions and 1 deletions

View file

@ -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):

View file

@ -1648,7 +1648,7 @@ and the contents of `file-coding-system-alist'."
(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)