changeset 26657:b5c0d55411ad

(set-face-documentation): Purecopy STRING.
author Dave Love <fx@gnu.org>
date Tue, 30 Nov 1999 13:55:34 +0000
parents f055a24e3e5b
children 67eff40a4604
files lisp/faces.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)