From 0b75349e7e197c3783153ca2231b2c206513812b Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 1 Feb 2011 13:15:18 -0500 Subject: * lisp/subr.el (purecopy-cons, purecopy-car): Add shortcuts. * lisp/faces.el (face-x-resources): Use `purecopy-cons'. * lisp/files.el (auto-mode-alist, interpreter-mode-alist): Use `purecopy-car'. * lisp/international/fontset.el (font-encoding-alist): Ditto. * lisp/international/mule-conf.el (file-coding-system-alist): Ditto. * lisp/international/mule.el (auto-coding-alist) (auto-coding-regexp-alist): Ditto. * lisp/mouse.el (mouse-buffer-menu-mode-groups): Use `purecopy-cons'. * lisp/term/x-win.el (x-gtk-stock-map): Ditto. --- lisp/international/mule.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/international/mule.el') diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 4a387a233a0..2da15b5f9bd 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1671,11 +1671,11 @@ in-place." (defcustom auto-coding-alist ;; .exe and .EXE are added to support archive-mode looking at DOS ;; self-extracting exe archives. - (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg))) - '(("\\.\\(\ + (mapcar 'purecopy-car + '(("\\.\\(\ arc\\|zip\\|lzh\\|lha\\|zoo\\|[jew]ar\\|xpi\\|rar\\|7z\\|\ ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\|7Z\\)\\'" - . no-conversion-multibyte) + . no-conversion-multibyte) ("\\.\\(exe\\|EXE\\)\\'" . no-conversion) ("\\.\\(sx[dmicw]\\|odt\\|tar\\|tgz\\)\\'" . no-conversion) ("\\.\\(gz\\|Z\\|bz\\|bz2\\|xz\\|gpg\\)\\'" . no-conversion) @@ -1696,7 +1696,7 @@ and the contents of `file-coding-system-alist'." (symbol :tag "Coding system")))) (defcustom auto-coding-regexp-alist - (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg))) + (mapcar 'purecopy-car '(("\\`BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion) ("\\`\xFE\xFF" . utf-16be-with-signature) ("\\`\xFF\xFE" . utf-16le-with-signature) -- cgit v1.2.3