From: Dave Love <fx@gnu.org>
Date: Tue, 30 Nov 1999 13:55:34 +0000 (+0000)
Subject: (set-face-documentation): Purecopy STRING.
X-Git-Tag: emacs-pretest-21.0.90~5926
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4943580109c216e0d8fa52f14702f2a84b14c16e;p=emacs.git

(set-face-documentation): Purecopy STRING.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 3788606e25b..74fb666f6cc 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -408,7 +408,8 @@ Use `face-attribute' for finer control."
 
 (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)