(custom-face-attributes): Add "thin" for :weight.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47852c456e0953d145a630c34c5784d5b73734c4..e154ef40d7cccded4c80cd992f72613fe9399799 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,34 @@
+2008-05-14  Kenichi Handa  <handa@m17n.org>
+
+       * language/korean.el ("Korean"): Set `iso639-language'
+       property to `ko'.
+
+       * language/japanese.el ("Japanese"): Set `iso639-language'
+       property to `ja'.
+
+       * language/chinese.el ("Chinese-GB", "Chinese-BIG5")
+       ("Chinese-CNS", "Chinese-EUC-TW", "Chinese-GBK")
+       ("Chinese-GB18030"): Set `iso639-language' property to `zh'.
+
+       * international/mule-cmds.el (set-language-environment): Set
+       current-iso639-language
+
+       * international/fontset.el (setup-default-fontset): For kana, han,
+       hangul, and cjk-misc, move an entry with font-spec at the end.
+       (generate-fontset-menu): Exclue fontset-auto* from the list.
+
+       * composite.el (compose-chars-after): Assume that WINDOW is always
+       non-nil.
+
+       * faces.el (font-weight-table, font-slant-table)
+       (font-swidth-table): Declare them by defconst.  Change the format
+       of elements.  Call internal-set-font-style-table after their
+       declaration.
+       (face-valid-attribute-values): Call font-family-list.  Get values
+       for width, weight, and slant from font-xxx-table.
+
+       * cus-face.el (custom-face-attributes): Add "thin" for :weight.
+
 2008-05-13  John Paul Wallington  <jpw@pobox.com>
 
        * ibuffer.el (ibuffer-buffer-file-name): New function.

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 4be3b7552ba60e36ff209873c165651329b30462..9ef9428470f49b521d0e1a40192957a3750c4f5c 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -110,7 +110,8 @@
             (const :tag "semibold" semi-bold)
             (const :tag "semilight" semi-light)
             (const :tag "ultralight" ultra-light)
-            (const :tag "ultrabold" ultra-bold)))
+            (const :tag "ultrabold" ultra-bold)
+            (const :tag "thin" thin)))
 
     (:slant
      (choice :tag "Slant"