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 948dbba261ace96e644d5d78600f94a278408858..fb5ed74c9a4e58e387e01933ad6de8775f37cd68 100644 (file)
--- 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)
-
 \f
 * Changes in Emacs 29.1
 

diff --git a/lisp/faces.el b/lisp/faces.el
index 97579877efae7e78d5344ee88359dd6fd4f95ed4..39ba0f4d1b5ad7846b825e2b3f454e39f9f18657 100644 (file)
--- 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)