Mercurial > emacs
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)