diff options
| author | Dave Love | 1999-11-24 20:35:54 +0000 |
|---|---|---|
| committer | Dave Love | 1999-11-24 20:35:54 +0000 |
| commit | 08449ec1ec935358e7fd4675ebfcb0b314b23f54 (patch) | |
| tree | f390355128dcb4d02da360bbd2a77666a644aebc | |
| parent | 32651a48c54260f4407de431d23395d8e6b9e361 (diff) | |
| download | emacs-08449ec1ec935358e7fd4675ebfcb0b314b23f54.tar.gz emacs-08449ec1ec935358e7fd4675ebfcb0b314b23f54.zip | |
(custom-declare-face): Purecopy DOC.
| -rw-r--r-- | lisp/cus-face.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 2b32ce3f522..b465aada7ae 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el | |||
| @@ -56,7 +56,7 @@ | |||
| 56 | (if (memq window-system '(x w32)) | 56 | (if (memq window-system '(x w32)) |
| 57 | (make-face-x-resource-internal face)))) | 57 | (make-face-x-resource-internal face)))) |
| 58 | (when (and doc (null (face-documentation face))) | 58 | (when (and doc (null (face-documentation face))) |
| 59 | (set-face-documentation face doc)) | 59 | (set-face-documentation face (purecopy doc))) |
| 60 | (custom-handle-all-keywords face args 'custom-face) | 60 | (custom-handle-all-keywords face args 'custom-face) |
| 61 | (run-hooks 'custom-define-hook)) | 61 | (run-hooks 'custom-define-hook)) |
| 62 | face) | 62 | face) |