diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/faces.el | 41 |
2 files changed, 4 insertions, 41 deletions
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 <handa@m17n.org> + * 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. |