procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
to use a modification of the frame's font.
This commit is contained in:
Richard M. Stallman 1993-11-27 07:52:19 +00:00
parent 86fb06ae8e
commit 852bc46fcb
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/mouse.el
View file

@ -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.