diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/faces.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 06f3c4bdc3e..bb506e6812a 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -830,6 +830,25 @@ selected frame." (modify-frame-parameters frame (list visibility-spec))) frame))) +;; Update a frame's faces when we change its default font. +(defun frame-update-faces (frame) + (let* ((faces global-face-data) + (rest faces)) + (while rest + (let* ((face (car (car rest))) + (font (face-font face t))) + (if (listp font) + (let ((bold (memq 'bold font)) + (italic (memq 'italic font))) + (cond ((and bold italic) + (make-face-bold-italic face frame t)) + (bold + (make-face-bold face frame t)) + (italic + (make-face-italic face frame t))))) + (setq rest (cdr rest))) + frame))) + ;; Fill in the face FACE from frame-independent face data DATA. ;; DATA should be the non-frame-specific ("global") face vector ;; for the face. FACE should be a face name or face object. |