From: Dave Love <fx@gnu.org>
Date: Wed, 24 Nov 1999 20:35:54 +0000 (+0000)
Subject: (custom-declare-face): Purecopy DOC.
X-Git-Tag: emacs-pretest-21.0.90~5985
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08449ec1ec935358e7fd4675ebfcb0b314b23f54;p=emacs.git

(custom-declare-face): Purecopy DOC.
---

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 2b32ce3f522..b465aada7ae 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -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)