emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Finish reverting experiment with proportional font on mode line

Browse source 
This change

    Author:     Lars Ingebrigtsen <larsi@gnus.org>
    AuthorDate: Thu Dec 23 11:43:47 2021 +0100

        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:--".

didn't also undo these changes to bindings.el that were
introduced along with the proportional font experiment, leading
to bug#81336.

* lisp/bindings.el (mode-line-position)
(standard-mode-line-format): Don't set display minimum widths (bug#81336).
This commit is contained in:
Sean Whitton 2026-07-03 10:42:22 +01:00
parent 7746db313a
commit 388adcc570
1 changed files with 5 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/bindings.el
View file

@ -726,7 +726,6 @@ mouse-1: Display Line and Column Mode Menu"))
`((:propertize
("" mode-line-percent-position)
local-map ,mode-line-column-line-number-mode-map
display (min-width (5.0))
mouse-face mode-line-highlight
;; XXX needs better description
help-echo "Window Scroll Percentage
@ -745,31 +744,26 @@ mouse-1: Display Line and Column Mode Menu")))
(10
(:propertize
mode-line-position-column-line-format
display (min-width (10.0))
,@mode-line-position--column-line-properties))
(10
(:propertize
(:eval (string-replace
"%c" "%C" (car mode-line-position-column-line-format)))
display (min-width (10.0))
,@mode-line-position--column-line-properties)))
(6
(:propertize
mode-line-position-line-format
display (min-width (6.0))
,@mode-line-position--column-line-properties)))
(column-number-mode
(column-number-indicator-zero-based
(6
(:propertize
mode-line-position-column-format
display (min-width (6.0))
,@mode-line-position--column-line-properties))
(6
(:propertize
(:eval (string-replace
"%c" "%C" (car mode-line-position-column-format)))
display (min-width (6.0))
,@mode-line-position--column-line-properties))))))
"Mode line construct for displaying the position in the buffer.
Normally displays the buffer percentage and, optionally, the
@ -824,15 +818,11 @@ By default, this shows the information specified by `global-mode-string'.")
(let ((standard-mode-line-format
(list "%e"
'mode-line-front-space
(list
:propertize
(list ""
'mode-line-mule-info
'mode-line-client
'mode-line-modified
'mode-line-remote
'mode-line-window-dedicated)
'display '(min-width (6.0)))
'mode-line-mule-info
'mode-line-client
'mode-line-modified
'mode-line-remote
'mode-line-window-dedicated
'mode-line-frame-identification
'mode-line-buffer-identification
" "