# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 943970134 0
# Node ID b5c0d55411ad240cddf4bc2f0774e2e2ff2f6be3
# Parent  f055a24e3e5b257b7a3081a6684227e74917f0c9
(set-face-documentation): Purecopy STRING.

diff -r f055a24e3e5b -r b5c0d55411ad lisp/faces.el
--- a/lisp/faces.el	Mon Nov 29 23:19:25 1999 +0000
+++ b/lisp/faces.el	Tue Nov 30 13:55:34 1999 +0000
@@ -408,7 +408,8 @@
 
 (defun set-face-documentation (face string)
   "Set the documentation string for FACE to STRING."
-  (put face 'face-documentation string))
+  ;; The text doesn't get into DOC.
+  (put face 'face-documentation (purecopy string)))
 
 
 (defalias 'face-doc-string 'face-documentation)