Commit 852bc46f authored by Richard M. Stallman's avatar Richard M. Stallman

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

to use a modification of the frame's font.
parent 86fb06ae
......@@ -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.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment