(mouse-set-font): Update faces bold, italic and bold-italic.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index fc00dddbb4f5b70b7e898f579381f76e08dccfd4..03beeac69bab4f15b0c8b066968c163344890877 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -923,8 +923,15 @@ and selects that window."
   (interactive
    (x-popup-menu last-nonmenu-event x-fixed-font-alist))
   (if font
-      (modify-frame-parameters (selected-frame)
-                              (list (cons 'font font)))))
+      (progn (modify-frame-parameters (selected-frame)
+                                     (list (cons 'font font)))
+            ;; Update some standard faces too.
+            (set-face-font 'bold nil (selected-frame)) 
+            (make-face-bold 'bold (selected-frame) t)
+            (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))))
 \f
 ;;; Bindings for mouse commands.