From b0f7845d17d3951ccbd1c90b9f721052a9462f5d Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Fri, 1 Jun 2007 09:43:24 +0000 Subject: [PATCH] (font-weight-table): Use defaults on w32 that match LOGFONT.lfWeight. --- lisp/faces.el | 35 ++++++++++++++++++++++++----------- 1 file changed, 24 insertions(+), 11 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 883206a60f2..01cfae1e20c 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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" -- 2.39.5