Mercurial > emacs

diff lisp/faces.el @ 26657:b5c0d55411ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-face-documentation): Purecopy STRING.
author Dave Love <fx@gnu.org>
date Tue, 30 Nov 1999 13:55:34 +0000
parents f9c908630f61
children a0674327c167
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)