Commit 291cfb96 authored by Dave Love's avatar Dave Love
Browse files

(set-face-attribute): Purecopy the attributes set.

parent d20f4d98
...@@ -408,7 +408,7 @@ Use `face-attribute' for finer control." ...@@ -408,7 +408,7 @@ Use `face-attribute' for finer control."
(defun set-face-documentation (face string) (defun set-face-documentation (face string)
"Set the documentation string for FACE to 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))) (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." ...@@ -545,7 +545,8 @@ must be t or nil in that case. A value of `unspecified' is not allowed."
(t (t
(while args (while args
(internal-set-lisp-face-attribute face (car args) (internal-set-lisp-face-attribute face (car args)
(car (cdr args)) frame) (purecopy (cadr args))
frame)
(setq args (cdr (cdr args))))))) (setq args (cdr (cdr args)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment