From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 10 Apr 2020 16:55:29 +0000 (+0100)
Subject: el/dot-emacs.el: Define a `fixed-pitch-serif' face.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/da4332a99aa48af7d4992f87ea93b277e58ce9d8?hp=3d24d0fa3400d1364383c27734d5f36c4b49a361

el/dot-emacs.el: Define a `fixed-pitch-serif' face.

This is primarily needed for Info mode, which, in later Emacs, otherwise
uses Courier for explicitly-monospace text, which really doesn't fit
well against X11 Fixed.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 180b0b2..d2b9dcc 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1400,6 +1400,10 @@ doesn't match any of the regular expressions in
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :foundry "trad" :height 130)
   (t :foreground "white" :background "black"))
+(mdw-define-face fixed-pitch-serif
+  (((type w32)) :family "courier new" :height 85 :weight bold)
+  (((type x)) :family "6x13" :foundry "trad" :height 130 :weight bold)
+  (t :foreground "white" :background "black" :weight bold))
 (if (mdw-emacs-version-p 23)
     (mdw-define-face variable-pitch
       (((type x)) :family "sans" :height 100))