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/term/x-win.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp/term/x-win.el') diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 1ec80d5c277..c966fc561cb 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -1447,8 +1447,7 @@ Request data types in the order specified by `x-select-request-type'." (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event) (defcustom x-gtk-stock-map - (mapcar (lambda (arg) - (cons (purecopy (car arg)) (purecopy (cdr arg)))) + (mapcar 'purecopy-cons '( ("etc/images/new" . "gtk-new") ("etc/images/open" . "gtk-open") -- cgit v1.2.1