]> git.eshelyaron.com Git - emacs.git/commitdiff
(set-face-documentation): Purecopy STRING.
authorDave Love <fx@gnu.org>
Tue, 30 Nov 1999 13:55:34 +0000 (13:55 +0000)
committerDave Love <fx@gnu.org>
Tue, 30 Nov 1999 13:55:34 +0000 (13:55 +0000)
lisp/faces.el

index 3788606e25b812bcef8aaaf8ab760a2ebb79112e..74fb666f6cca2f8ea7844c8ef93dcbbb35e3c467 100644 (file)
@@ -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)