emacs-31 388adcc570b: Finish reverting experiment with proportional font on mode line

branch: emacs-31
commit 388adcc570be1b6bef87f5da449b6bbef8854222
Author: Sean Whitton <[email protected]>
Commit: Sean Whitton <[email protected]>

    Finish reverting experiment with proportional font on mode line
    
    This change
    
        Author:     Lars Ingebrigtsen <[email protected]>
        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).
---
 lisp/bindings.el | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

diff --git a/lisp/bindings.el b/lisp/bindings.el
index b13dc0a705c..1dcf824f12e 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -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
 	     "   "