Mercurial > emacs

comparison lisp/cus-face.el @ 26583:3251a6750150

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.