Re: master 84bf954 2/2: Use a proportional font for the mode line

[Eli Zaretskii]

> From: Robert Pluim <rpluim@gmail.com>
> Cc: Lars Ingebrigtsen <larsi@gnus.org>,  emacs-devel@gnu.org
> Date: Thu, 25 Nov 2021 19:44:40 +0100
> 
> This also does it, but those weights look seriously out of whack
> compared to the list in font.c

Does the below look reasonable?

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 5037ee7..5323639 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -85,22 +85,32 @@ custom-face-attributes
      (choice :tag "Weight"
             :help-echo "Font weight."
             :value normal              ; default
+            (const :tag "thin" thin)
             (const :tag "ultralight" ultra-light)
-            (const :tag "extralight" extra-light)
+            (const :tag "ultra-light" ultra-light)
+            (const :tag "extralight" ultra-light)
+            (const :tag "extra-light" ultra-light)
             (const :tag "light" light)
-            (const :tag "thin" thin)
             (const :tag "semilight" semi-light)
-            (const :tag "book" semi-light)
+            (const :tag "semi-light" semi-light)
+            (const :tag "demilight" semi-light)
             (const :tag "normal" normal)
             (const :tag "regular" normal)
-            (const :tag "medium" normal)
+            (const :tag "book" normal)
+            (const :tag "medium" medium)
             (const :tag "semibold" semi-bold)
+            (const :tag "semi-bold" semi-bold)
             (const :tag "demibold" semi-bold)
+            (const :tag "demi-bold" semi-bold)
             (const :tag "bold" bold)
             (const :tag "extrabold" extra-bold)
-            (const :tag "heavy" extra-bold)
-            (const :tag "ultrabold" ultra-bold)
-            (const :tag "black" ultra-bold)))
+            (const :tag "extra-bold" extra-bold)
+            (const :tag "ultrabold" extra-bold)
+            (const :tag "ultra-bold" extra-bold)
+            (const :tag "heavy" heavy)
+            (const :tag "black" heavy)
+             (const :tag "ultra-heavy" ultra-heavy)
+             (const :tag "ultraheavy" ultra-heavy)))
 
     (:slant
      (choice :tag "Slant"