diff options
| -rw-r--r-- | lisp/cus-face.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index bd120299a16..de51b6a2973 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el | |||
| @@ -53,7 +53,10 @@ | |||
| 53 | (while frames | 53 | (while frames |
| 54 | (setq frame (car frames) | 54 | (setq frame (car frames) |
| 55 | frames (cdr frames)) | 55 | frames (cdr frames)) |
| 56 | (face-spec-set face value frame))))) | 56 | (face-spec-set face value frame))) |
| 57 | ;; When making a face after frames already exist | ||
| 58 | (if (memq window-system '(x w32)) | ||
| 59 | (make-face-x-resource-internal face)))) | ||
| 57 | (when (and doc (null (face-documentation face))) | 60 | (when (and doc (null (face-documentation face))) |
| 58 | (set-face-documentation face doc)) | 61 | (set-face-documentation face doc)) |
| 59 | (custom-handle-all-keywords face args 'custom-face) | 62 | (custom-handle-all-keywords face args 'custom-face) |