From f70b89257e27648f72a025d7a6f41e0f72e8fdaa Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 13 Nov 2009 02:40:40 +0000 Subject: [PATCH] (auto-coding-regexp-alist): Only purecopy car or each item, not the whole list. --- lisp/ChangeLog | 5 +++++ lisp/international/mule.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index abb97e7b581..1cb15fb252f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-13 Dan Nicolaescu + + * international/mule.el (auto-coding-regexp-alist): Only purecopy + car or each item, not the whole list. + 2009-11-12 Stefan Monnier * minibuffer.el (minibuffer-completion-help): diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 7ccec501c7d..34bb916160a 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -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) -- 2.39.2