Subject: Re: Emacs 23.1.97 pretest

From: Tak Ota <[email-masked]>
Date: Thu, 6 May 2010 07:14:03 -0700

Thu, 6 May 2010 06:42:52 -0700: Jason Rumney <[email-masked]> wrote:

> Tak Ota <[email-masked]> 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 ...))> ...)