From 2001ae5898a1e48cae5b138828190ac2cba39b40 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 23 Dec 2021 11:43:47 +0100 Subject: [PATCH] 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:--". --- etc/NEWS | 9 --------- lisp/faces.el | 4 ++-- 2 files changed, 2 insertions(+), 11 deletions(-) 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) -- 2.39.2