From: Kenichi Handa Date: Thu, 22 May 2008 02:34:30 +0000 (+0000) Subject: (font-weight-table, font-slant-table) X-Git-Tag: emacs-pretest-23.0.90~5371 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cd217dc0db45f2305d19e0ab7801d7aead73cd7;p=emacs.git (font-weight-table, font-slant-table) (font-width-table): Delete them. Don't call internal-set-font-style-table. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 40fd69bd08e..00e503e2ad4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2008-05-22 Kenichi Handa + * faces.el (font-weight-table, font-slant-table) + (font-width-table): Delete them. Don't call + internal-set-font-style-table. + * international/mule-diag.el (font-show-log): New function. * international/fontset.el (script-representative-chars): Add more diff --git a/lisp/faces.el b/lisp/faces.el index 0da556befc8..5537fbef6c3 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -100,47 +100,6 @@ REGISTRY, ALTERNATIVE1, ALTERNATIVE2, and etc." (set-default symbol value) (internal-set-alternative-font-registry-alist value))) - -(defconst font-weight-table - '((thin 0) - (ultra-light 20 ultralight) - (extra-light 40 extralight) - (light 50) - (semi-light 75 semilight demilight book) - (normal 100 medium regular) - (semi-bold 180 semibold demibold demi) - (bold 200) - (extra-bold 205 extrabold) - (ultra-bold 210 ultrabold black)) - "Alist of font weight symbols vs the corresponding numeric values. -Each element has the form: - \(SYMBOLIC-VALUE NUMERIC-VALUE ALIAS-SYMBOL ...) -") - -(defconst font-slant-table - '((reverse-oblique 0 ro) - (reverse-italic 10 ri) - (normal 100 r) - (italic 200 i ot) - (oblique 210 o)) - "Alist of font slant symbols vs the corresponding numeric values. -See `font-weight-table' for the detailed format.") - -(defconst font-width-table - '((ultra-condensed 50 ultracondensed) - (extra-condensed 63 extracondensed) - (condensed 75 compressed narrow) - (semi-condensed 87 semicondensed semicondensed) - (normal 100 medium regular) - (semi-expanded 113 semiexpanded demiexpanded) - (expanded 125) - (extra-expanded 150 extraexpanded) - (ultra-expanded 200 ultraexpanded wide)) - "Alist of font width symbols vs the corresponding numeric values. -See `font-weight-table' for the detailed format.") - -(internal-set-font-style-table - font-weight-table font-slant-table font-width-table) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Creation, copying.