Mercurial > emacs

comparison lisp/faces.el @ 92115:b4b2ac0c80f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-weight-table): Fix value of `semi-light'.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 22 Feb 2008 23:34:57 +0000
parents b6053b4bb49f
children 43421f91b96e
comparison
equal deleted inserted replaced
92114:e76a0cdd7ce8 92115:b4b2ac0c80f8
106 (defcustom font-weight-table 106 (defcustom font-weight-table
107 (if (eq system-type 'windows-nt) 107 (if (eq system-type 'windows-nt)
108 '((thin . 100) 108 '((thin . 100)
109 (ultralight . 199) (ultra-light . 200) (extra-light . 201) 109 (ultralight . 199) (ultra-light . 200) (extra-light . 201)
110 (light . 300) 110 (light . 300)
111 (semilight . 330) (semi-light . 330) 111 (semilight . 330) (semi-light . 331)
112 (book . 350) 112 (book . 350)
113 (normal . 400) (regular . 401) 113 (normal . 400) (regular . 401)
114 (medium . 500) 114 (medium . 500)
115 (semibold . 599) (semi-bold . 600) (demibold . 601) (demi . 602) 115 (semibold . 599) (semi-bold . 600) (demibold . 601) (demi . 602)
116 (bold . 700) 116 (bold . 700)
117 (extrabold . 799) (extra-bold . 800) 117 (extrabold . 799) (extra-bold . 800)
118 (ultrabold . 801) (ultra-bold . 802) 118 (ultrabold . 801) (ultra-bold . 802)
119 (black . 900) (heavy . 901)) 119 (black . 900) (heavy . 901))
1770 ;; (let ((result (copy-sequence (defined-colors))) 1770 ;; (let ((result (copy-sequence (defined-colors)))
1771 ;; to-be-rejected) 1771 ;; to-be-rejected)
1772 ;; (save-match-data 1772 ;; (save-match-data
1773 ;; (dolist (this result) 1773 ;; (dolist (this result)
1774 ;; (if (string-match " " this) 1774 ;; (if (string-match " " this)
1775 ;; (push (replace-regexp-in-string " " "" 1775 ;; (push (replace-regexp-in-string " " ""
1776 ;; this) 1776 ;; this)
1777 ;; to-be-rejected))) 1777 ;; to-be-rejected)))
1778 ;; (dolist (elt to-be-rejected) 1778 ;; (dolist (elt to-be-rejected)
1779 ;; (let ((as-found (car (member-ignore-case elt result)))) 1779 ;; (let ((as-found (car (member-ignore-case elt result))))
1780 ;; (setq result (delete as-found result))))) 1780 ;; (setq result (delete as-found result)))))