From 08449ec1ec935358e7fd4675ebfcb0b314b23f54 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 24 Nov 1999 20:35:54 +0000 Subject: [PATCH] (custom-declare-face): Purecopy DOC. --- lisp/cus-face.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 2b32ce3f52..b465aada7a 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -56,7 +56,7 @@ (if (memq window-system '(x w32)) (make-face-x-resource-internal face)))) (when (and doc (null (face-documentation face))) - (set-face-documentation face doc)) + (set-face-documentation face (purecopy doc))) (custom-handle-all-keywords face args 'custom-face) (run-hooks 'custom-define-hook)) face) -- 2.39.2