mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(font-weight-table): Use defaults on w32 that match

Browse source 
LOGFONT.lfWeight.
This commit is contained in:
Jason Rumney 2007-06-01 09:43:24 +00:00
parent c310458f64
commit b0f7845d17
1 changed files with 24 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

35
lisp/faces.el
View 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"