Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
105969:6a8befbb8e39 105970:f6c1ac558c84
1646 :group 'mule 1646 :group 'mule
1647 :type '(repeat (cons (regexp :tag "File name regexp") 1647 :type '(repeat (cons (regexp :tag "File name regexp")
1648 (symbol :tag "Coding system")))) 1648 (symbol :tag "Coding system"))))
1649 1649
1650 (defcustom auto-coding-regexp-alist 1650 (defcustom auto-coding-regexp-alist
1651 (purecopy 1651 (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
1652 '(("\\`BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion) 1652 '(("\\`BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion)
1653 ("\\`\xFE\xFF" . utf-16be-with-signature) 1653 ("\\`\xFE\xFF" . utf-16be-with-signature)
1654 ("\\`\xFF\xFE" . utf-16le-with-signature) 1654 ("\\`\xFF\xFE" . utf-16le-with-signature)
1655 ("\\`\xEF\xBB\xBF" . utf-8-with-signature) 1655 ("\\`\xEF\xBB\xBF" . utf-8-with-signature)
1656 ("\\`;ELC\024\0\0\0" . emacs-mule))) ; Emacs 20-compiled 1656 ("\\`;ELC\024\0\0\0" . emacs-mule))) ; Emacs 20-compiled