Mercurial > emacs
changeset 48521:e8d332923257
(custom-declare-face): Add face-defface-spec prop after applying the
face spec.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Nov 2002 18:58:35 +0000 |
| parents | be172c6eba33 |
| children | 70e8f2b6672e |
| files | lisp/cus-face.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-face.el Sun Nov 24 02:35:49 2002 +0000 +++ b/lisp/cus-face.el Sun Nov 24 18:58:35 2002 +0000 @@ -37,7 +37,6 @@ (defun custom-declare-face (face spec doc &rest args) "Like `defface', but FACE is evaluated as a normal argument." (unless (get face 'face-defface-spec) - (put face 'face-defface-spec spec) (when (fboundp 'facep) (unless (facep face) ;; If the user has already created the face, respect that. @@ -46,7 +45,7 @@ frame) ;; Create global face. (make-empty-face face) - ;; Create frame local faces + ;; Create frame-local faces (while frames (setq frame (car frames) frames (cdr frames)) @@ -54,6 +53,8 @@ ;; When making a face after frames already exist (if (memq window-system '(x w32)) (make-face-x-resource-internal face)))) + ;; Don't record SPEC until we see it causes no errors. + (put face 'face-defface-spec spec) (when (and doc (null (face-documentation face))) (set-face-documentation face (purecopy doc))) (custom-handle-all-keywords face args 'custom-face)