diff options
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")) |