From 26d86f19f9444957fd7a9a5fd28ad55a3cdae681 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 Jul 1993 06:20:40 +0000 Subject: [PATCH] (mouse-set-font): Update faces bold, italic and bold-italic. --- lisp/mouse.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index fc00dddbb4f..03beeac69ba 100644 --- 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)))) ;;; Bindings for mouse commands. -- 2.39.5