bug#6029: Emacs 23.1.97 pretest

[Tak Ota]

Thu, 6 May 2010 06:42:52 -0700: Jason Rumney <jasonr@gnu.org> wrote:

> Tak Ota <Takaaki.Ota@am.sony.com> writes:
> 
> >         character: ゲ (12466, #o30262, #x30b2)
> 
> >           display: by this font (glyph code)
> >     
> > uniscribe:-outline-BatangChe-normal-normal-normal-mono-13-*-*-*-c-*-jisx0208*-*
> >  (#x1040)
> 
> Isn't BatangChe a Korean font?  Why do your Japanese fonts get overlooked?
> 
> What do the following say (copy to the *scratch* buffer and press Ctrl-J
> after each line):
> 
> (list-fonts (font-spec :registry "JISX0208*"))
> (list-fonts (font-spec :registry "GB2312.1980-0"))
> (list-fonts (font-spec :registry "KSC5601.1987*"))
> (list-fonts (font-spec :registry "iso10646-1" :script 'kana))

Here is the result.  If you need full length lists without truncation
let me know how to avoid the truncation in the *scratch* buffer.

-Tak

(list-fonts (font-spec :registry "JISX0208*"))
(#<font-entity uniscribe outline Batang serif jisx0208* normal normal normal 0 
nil 0 nil ((:format . opentype) (:script symbol kanbun ideographic-description 
han hangul kana cjk-misc cyrillic greek latin))> #<font-entity uniscribe 
outline BatangChe mono jisx0208* normal normal normal 0 nil 110 nil ((:format . 
opentype) (:script symbol kanbun ideographic-description han hangul kana 
cjk-misc cyrillic greek latin))> #<font-entity uniscribe outline Gungsuh serif 
jisx0208* normal normal normal 0 nil 0 nil ((:format . opentype) (:script 
symbol kanbun ideographic-description han hangul kana cjk-misc cyrillic greek 
latin))> #<font-entity uniscribe outline GungsuhChe mono jisx0208* normal 
normal normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Gulim sans jisx0208* normal normal normal 0 nil 
0 nil ((:format . opentype) (:script symbol kanbun ideographic-description han 
hangul kana cjk-misc cyrillic greek latin))> #<font-entity uniscribe outline 
GulimChe mono jisx0208* normal normal normal 0 nil 110 nil ((:format . 
opentype) (:script symbol kanbun ideographic-description han hangul kana 
cjk-misc cyrillic greek latin))> #<font-entity uniscribe outline Dotum sans 
jisx0208* normal normal normal 0 nil 0 nil ((:format . opentype) (:script 
symbol kanbun ideographic-description han hangul kana cjk-misc cyrillic greek 
latin))> #<font-entity uniscribe outline DotumChe mono jisx0208* normal normal 
normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Meiryo sans jisx0208* bold italic normal 0 nil 
0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans jisx0208* bold normal normal 0 nil 
0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans jisx0208* normal italic normal 0 
nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans jisx0208* normal normal normal 0 
nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
...)

(list-fonts (font-spec :registry "GB2312.1980-0"))
(#<font-entity uniscribe outline Batang serif gb2312\.1980-0 normal normal 
normal 0 nil 0 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline BatangChe mono gb2312\.1980-0 normal normal 
normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Gungsuh serif gb2312\.1980-0 normal normal 
normal 0 nil 0 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline GungsuhChe mono gb2312\.1980-0 normal normal 
normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Gulim sans gb2312\.1980-0 normal normal normal 
0 nil 0 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline GulimChe mono gb2312\.1980-0 normal normal 
normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Dotum sans gb2312\.1980-0 normal normal normal 
0 nil 0 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline DotumChe mono gb2312\.1980-0 normal normal 
normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Meiryo sans gb2312\.1980-0 bold italic normal 0 
nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans gb2312\.1980-0 bold normal normal 0 
nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans gb2312\.1980-0 normal italic normal 
0 nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans gb2312\.1980-0 normal normal normal 
0 nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
...)

(list-fonts (font-spec :registry "KSC5601.1987*"))
nil

(list-fonts (font-spec :registry "iso10646-1" :script 'kana))
(#<font-entity uniscribe outline Batang serif iso10646-1 normal normal normal 0 
nil 0 nil ((:format . opentype) (:script symbol kanbun ideographic-description 
han hangul kana cjk-misc cyrillic greek latin))> #<font-entity uniscribe 
outline BatangChe mono iso10646-1 normal normal normal 0 nil 110 nil ((:format 
. opentype) (:script symbol kanbun ideographic-description han hangul kana 
cjk-misc cyrillic greek latin))> #<font-entity uniscribe outline Gungsuh serif 
iso10646-1 normal normal normal 0 nil 0 nil ((:format . opentype) (:script 
symbol kanbun ideographic-description han hangul kana cjk-misc cyrillic greek 
latin))> #<font-entity uniscribe outline GungsuhChe mono iso10646-1 normal 
normal normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Gulim sans iso10646-1 normal normal normal 0 
nil 0 nil ((:format . opentype) (:script symbol kanbun ideographic-description 
han hangul kana cjk-misc cyrillic greek latin))> #<font-entity uniscribe 
outline GulimChe mono iso10646-1 normal normal normal 0 nil 110 nil ((:format . 
opentype) (:script symbol kanbun ideographic-description han hangul kana 
cjk-misc cyrillic greek latin))> #<font-entity uniscribe outline Dotum sans 
iso10646-1 normal normal normal 0 nil 0 nil ((:format . opentype) (:script 
symbol kanbun ideographic-description han hangul kana cjk-misc cyrillic greek 
latin))> #<font-entity uniscribe outline DotumChe mono iso10646-1 normal normal 
normal 0 nil 110 nil ((:format . opentype) (:script symbol kanbun 
ideographic-description han hangul kana cjk-misc cyrillic greek latin))> 
#<font-entity uniscribe outline Meiryo sans iso10646-1 bold italic normal 0 nil 
0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans iso10646-1 bold normal normal 0 nil 
0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans iso10646-1 normal italic normal 0 
nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
#<font-entity uniscribe outline Meiryo sans iso10646-1 normal normal normal 0 
nil 0 nil ((:format . opentype) (:script symbol khmer kanbun 
ideographic-description han kana cjk-misc thai bengali cyrillic greek ...))> 
...)