# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 943475754 0
# Node ID 3251a675015098fc6a278b1ebaa1ca370f0d4f97
# Parent  fbd1f4d3000dfb790f5a10cd791a7d458d9acedf
(custom-declare-face): Purecopy DOC.

diff -r fbd1f4d3000d -r 3251a6750150 lisp/cus-face.el
--- a/lisp/cus-face.el	Wed Nov 24 20:29:55 1999 +0000
+++ b/lisp/cus-face.el	Wed Nov 24 20:35:54 1999 +0000
@@ -56,7 +56,7 @@
 	(if (memq window-system '(x w32))
 	    (make-face-x-resource-internal face))))
     (when (and doc (null (face-documentation face)))
-      (set-face-documentation face doc))
+      (set-face-documentation face (purecopy doc)))
     (custom-handle-all-keywords face args 'custom-face)
     (run-hooks 'custom-define-hook))
   face)