]> git.eshelyaron.com Git - emacs.git/commitdiff
(font-weight-table): Use defaults on w32 that match
authorJason Rumney <jasonr@gnu.org>
Fri, 1 Jun 2007 09:43:24 +0000 (09:43 +0000)
committerJason Rumney <jasonr@gnu.org>
Fri, 1 Jun 2007 09:43:24 +0000 (09:43 +0000)
LOGFONT.lfWeight.

lisp/faces.el

index 883206a60f2f0a836fd9f9027163581eb5e88af6..01cfae1e20c6bbd4a158d4f720736a2596e19912 100644 (file)
@@ -104,17 +104,30 @@ REGISTRY, ALTERNATIVE1, ALTERNATIVE2, and etc."
 
 
 (defcustom font-weight-table
-  '((thin . 0)
-    (ultralight . 40) (ultra-light . 40) (extra-light . 40)
-    (light . 50)
-    (semilight . 65) (semi-light . 65)
-    (book . 75)
-    (medium . 100) (regular . 100) (normal . 100)
-    (semibold . 180) (semi-bold . 180) (demibold . 180) (demi . 180)
-    (bold . 200)
-    (extrabold . 205) (extra-bold . 205)
-    (ultrabold . 205) (ultra-bold . 205)
-    (black . 210) (heavy . 210))
+  (if (eq system-type 'windows-nt)
+      '((thin . 100)
+        (ultralight . 200) (ultra-light . 200) (extra-light . 200)
+        (light . 300)
+        (semilight . 330) (semi-light . 330)
+        (book . 350)
+        (normal . 400) (regular . 400)
+        (medium . 500) 
+        (semibold . 600) (semi-bold . 600) (demibold . 600) (demi . 600)
+        (bold . 700)
+        (extrabold . 800) (extra-bold . 800)
+        (ultrabold . 800) (ultra-bold . 800)
+        (black . 900) (heavy . 900))
+    '((thin . 0)
+      (ultralight . 40) (ultra-light . 40) (extra-light . 40)
+      (light . 50)
+      (semilight . 65) (semi-light . 65)
+      (book . 75)
+      (medium . 100) (regular . 100) (normal . 100)
+      (semibold . 180) (semi-bold . 180) (demibold . 180) (demi . 180)
+      (bold . 200)
+      (extrabold . 205) (extra-bold . 205)
+      (ultrabold . 205) (ultra-bold . 205)
+      (black . 210) (heavy . 210)))
   "*Alist of font weight symbols vs the corresponding numeric values."
   :tag "Font weight table"
   :version "23.1"