Mercurial > emacs

changeset 26927:27d6c0e07ea8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-face-attribute): Purecopy the attributes set.
author Dave Love <fx@gnu.org>
date Thu, 16 Dec 1999 19:41:04 +0000
parents 0f3de230f8c5
children 755f54893c1f
files lisp/faces.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Thu Dec 16 19:29:06 1999 +0000
+++ b/lisp/faces.el	Thu Dec 16 19:41:04 1999 +0000
@@ -408,7 +408,7 @@
 
 (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 @@
 	(t
 	 (while args
 	   (internal-set-lisp-face-attribute face (car args)
-					     (car (cdr args)) frame)
+					     (purecopy (cadr args))
+					     frame)
 	   (setq args (cdr (cdr args)))))))