From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 23 Dec 2021 10:43:47 +0000 (+0100)
Subject: Revert back to using monospaced fonts in the mode line
X-Git-Tag: emacs-29.0.90~3490
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2001ae5898a1e48cae5b138828190ac2cba39b40;p=emacs.git

Revert back to using monospaced fonts in the mode line

* lisp/faces.el (mode-line-active, mode-line-inactive): Revert
back to using monospaced fonts on the mode line (for now).  The
main remaining usability problem is clicking on the very small "-"
characters in "U:--".
---

diff --git a/etc/NEWS b/etc/NEWS
index 948dbba261a..fb5ed74c9a4 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -91,15 +91,6 @@ time.
 ** 'C-x 8 .' has been moved to 'C-x 8 . .'.
 This is to open up the 'C-x 8 .' map to bind further characters there.
 
----
-** The mode line now uses a proportional font by default.
-To get the old monospaced mode line back, customize the
-'mode-line-active' and 'mode-line-inactive' faces not to inherit from
-the 'variable-pitch' face, or add this to your "~/.emacs":
-
-    (set-face-attribute 'mode-line-active nil :inherit 'mode-line)
-    (set-face-attribute 'mode-line-inactive nil :inherit 'mode-line)
-
 
 * Changes in Emacs 29.1
 
diff --git a/lisp/faces.el b/lisp/faces.el
index 97579877efa..39ba0f4d1b5 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2630,7 +2630,7 @@ See `mode-line-display' for the face used on mode lines."
   :group 'basic-faces)
 
 (defface mode-line-active
-  '((t :inherit (mode-line variable-pitch)))
+  '((t :inherit mode-line))
   "Face for the selected mode line.
 This inherits from the `mode-line' face."
   :version "29.1"
@@ -2639,7 +2639,7 @@ This inherits from the `mode-line' face."
 
 (defface mode-line-inactive
   '((default
-     :inherit (mode-line variable-pitch))
+     :inherit mode-line)
     (((class color) (min-colors 88) (background light))
      :weight light
      :box (:line-width -1 :color "grey75" :style nil)