(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 40fd69bd08e11d966c0ab6d9d5b868febcaaf4d3..00e503e2ad49a5a4f1d3c6dfaa04ce901be12e9c 100644 (file)
--- 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 0da556befc872fb80224f22abf5e1eba249f0933..5537fbef6c35dfe7f47a3069d470187d17a78c7b 100644 (file)
--- 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)
 \f
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Creation, copying.