diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-22 06:20:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-22 06:20:40 +0000 |
| commit | 26d86f19f9444957fd7a9a5fd28ad55a3cdae681 (patch) | |
| tree | b11ea4a73987c0b2c9f7af2eda760841764224ac /lisp/mouse.el | |
| parent | 313d590c15bda951da66306f3d705474e4295eef (diff) | |
| download | emacs-26d86f19f9444957fd7a9a5fd28ad55a3cdae681.tar.gz | |
(mouse-set-font): Update faces bold, italic and bold-italic.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 11 |
1 files 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. |