From 131b3b112ad5405132ad5db55e0562b50477a94c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 14 May 2008 01:58:43 +0000 Subject: [PATCH] (custom-face-attributes): Add "thin" for :weight. --- lisp/ChangeLog | 31 +++++++++++++++++++++++++++++++ lisp/cus-face.el | 3 ++- 2 files changed, 33 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47852c456e0..e154ef40d7c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,34 @@ +2008-05-14 Kenichi Handa + + * 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 * ibuffer.el (ibuffer-buffer-file-name): New function. diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 4be3b7552ba..9ef9428470f 100644 --- 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" -- 2.11.4.GIT