From 4943580109c216e0d8fa52f14702f2a84b14c16e Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 30 Nov 1999 13:55:34 +0000 Subject: [PATCH] (set-face-documentation): Purecopy STRING. --- lisp/faces.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index 3788606e25..74fb666f6c 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) -- 2.39.2