Mercurial > emacs
comparison lisp/cus-face.el @ 26583:3251a6750150
(custom-declare-face): Purecopy DOC.
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 24 Nov 1999 20:35:54 +0000 |
parents | e3ed0e86532c |
children | b332ebdca302 |
comparison
equal
deleted
inserted
replaced
26582:fbd1f4d3000d | 26583:3251a6750150 |
---|---|
54 (face-spec-set face value frame))) | 54 (face-spec-set face value frame))) |
55 ;; When making a face after frames already exist | 55 ;; When making a face after frames already exist |
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) |
63 | 63 |
64 ;;; Face attributes. | 64 ;;; Face attributes. |