Mercurial > emacs
changeset 5198:1f14aa44c786
(mouse-set-font): Update nonstandard faces that are supposed
to use a modification of the frame's font.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 27 Nov 1993 07:52:19 +0000 |
| parents | c684276af9f2 |
| children | b8b8063551e1 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sat Nov 27 06:37:16 1993 +0000 +++ b/lisp/mouse.el Sat Nov 27 07:52:19 1993 +0000 @@ -1279,7 +1279,24 @@ (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.