From 291cfb968c59e55375fcca86de3811ff4ae3f759 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 16 Dec 1999 19:41:04 +0000 Subject: [PATCH] (set-face-attribute): Purecopy the attributes set. --- lisp/faces.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index f4e071222d3..de5a7dcd1e4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -408,7 +408,7 @@ Use `face-attribute' for finer control." (defun set-face-documentation (face string) "Set the documentation string for FACE to STRING." - ;; The text doesn't get into DOC. + ;; Perhaps the text should go in DOC. (put face 'face-documentation (purecopy string))) @@ -545,7 +545,8 @@ must be t or nil in that case. A value of `unspecified' is not allowed." (t (while args (internal-set-lisp-face-attribute face (car args) - (car (cdr args)) frame) + (purecopy (cadr args)) + frame) (setq args (cdr (cdr args))))))) -- 2.39.5