diff options
| author | Sam Steingold <sds@gnu.org> | 2011-02-01 13:15:18 -0500 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2011-02-01 13:15:18 -0500 |
| commit | 0b75349e7e197c3783153ca2231b2c206513812b (patch) | |
| tree | 84d922c2a7e7c8af173a4059a991577d48c3ffe7 /lisp/faces.el | |
| parent | 928f4e732d8b605b682cb6d41c9452028083047a (diff) | |
| download | emacs-0b75349e7e197c3783153ca2231b2c206513812b.tar.gz | |
* 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.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index a9d26de604b..9d6d3416c01 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -261,8 +261,7 @@ If FRAME is omitted or nil, use the selected frame." (mapcar (lambda (arg) ;; FIXME; can we purecopy some of the conses too? - (cons (car arg) - (cons (purecopy (car (cdr arg))) (purecopy (cdr (cdr arg)))))) + (cons (car arg) (purecopy-cons (cdr arg)))) '((:family (".attributeFamily" . "Face.AttributeFamily")) (:foundry (".attributeFoundry" . "Face.AttributeFoundry")) (:width (".attributeWidth" . "Face.AttributeWidth")) |