(mouse-set-font): Update nonstandard faces that are supposed

to use a modification of the frame's font.

1 files changed, 18 insertions, 1 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 7c6648df302..5139086bb47 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1279,7 +1279,24 @@ and selects that window."
              (set-face-font 'italic nil (selected-frame))
              (make-face-italic 'italic (selected-frame) t)
              (set-face-font 'bold-italic nil (selected-frame))
-             (make-face-bold-italic 'bold-italic (selected-frame) t))))
+             (make-face-bold-italic 'bold-italic (selected-frame) t)
+             ;; Update any nonstandard faces whose definition is
+             ;; "a bold/italic/bold&italic version of the frame's font".
+             (let ((rest global-face-data))
+               (while rest
+                 (condition-case nil
+                     (if (listp (face-font (cdr (car rest))))
+                         (let ((bold (memq 'bold (face-font (cdr (car rest)))))
+                               (italic (memq 'italic (face-font (cdr (car rest))))))
+                           (if (and bold italic)
+                               (make-face-bold-italic (car (car rest)) (selected-frame))
+                             (if bold
+                                 (make-face-bold (car (car rest)) (selected-frame))
+                               (if italic
+                                   (make-face-italic (car (car rest)) (selected-frame)))))))
+                   (error nil))
+                 (setq rest (cdr rest))))
+             )))
 
 ;;; Bindings for mouse commands.