set-fontset-font and preferred charset?

[Kenichi Handa]

In article <20090709.140615.308756192925110043.kasahara@...>, Yoshiaki Kasahara <kasahara@...> writes:

> Fontset: -misc-fixed-medium-r-normal--14-*-75-75-c-70-fontset-startup
> CHAR RANGE (CODE RANGE)
>     FONT NAME (REQUESTED and [OPENED])
> C-@ .. DEL
>     -*-*-*-*-*-*-*-*-*-*-*-*-iso8859-1
> \200 ..   (#x80 .. #xFF)
>     -*-*-*-*-*-*-*-*-*-*-*-*-iso8859-1
>     -*-*-*-*-*-*-*-*-*-*-*-*-jisx0208.1983-0
>   ..   (#x100 .. #xFFFF)
>     -*-*-*-*-*-*-*-*-*-*-*-*-jisx0208.1983-0
>   ..   (#x10000 .. #x3FFF7F)
>     -*-*-*-*-*-*-*-*-*-*-*-*-iso8859-1
> \200 .. \377 (#x3FFF80 .. #x3FFFFF)
>     -*-*-*-*-*-*-*-*-*-*-*-*-iso8859-1

>   ---<fallback to the default fontset>---

This list looks good.  Please try this workarond code
instead.  At least, it works for me.

(if (display-graphic-p)
    (let ((fontset (face-attribute 'default :fontset)))
      (set-fontset-font fontset '(#x80 . #xFF)
                        (font-spec :registry "iso8859-1" :script 'latin))
      (set-fontset-font fontset 'greek  '(nil . "iso8859-7"))
      (set-fontset-font fontset 'cyrillic  '(nil . "iso8859-5"))
      (set-fontset-font fontset '(#x80 . #xFFFF) '(nil . "jisx0208.1983-0")
                        nil 'append)))

---
Kenichi Handa
handa@...

[Yoshiaki Kasahara]

On Thu, 09 Jul 2009 21:00:25 +0900,
        Kenichi Handa <handa@...> said:

> This list looks good.  Please try this workarond code
> instead.  At least, it works for me.
>
> (if (display-graphic-p)
>     (let ((fontset (face-attribute 'default :fontset)))
>       (set-fontset-font fontset '(#x80 . #xFF)
> (font-spec :registry "iso8859-1" :script 'latin))
>       (set-fontset-font fontset 'greek  '(nil . "iso8859-7"))
>       (set-fontset-font fontset 'cyrillic  '(nil . "iso8859-5"))
>       (set-fontset-font fontset '(#x80 . #xFFFF) '(nil . "jisx0208.1983-0")
> nil 'append)))

It worked for me, too.  It seems quite complicated, but I'll try to
understand them and add other charsets if I need.  Thank you very
much.

--
Yoshiaki Kasahara
Research Institute for Information Technology, Kyushu University
kasahara@...

[Kenichi Handa]

In article <20090710.115245.579061707355054240.kasahara@...>, Yoshiaki Kasahara <kasahara@...> writes:

> > (if (display-graphic-p)
> >     (let ((fontset (face-attribute 'default :fontset)))
> >       (set-fontset-font fontset '(#x80 . #xFF)
> > (font-spec :registry "iso8859-1" :script 'latin))
> >       (set-fontset-font fontset 'greek  '(nil . "iso8859-7"))
> >       (set-fontset-font fontset 'cyrillic  '(nil . "iso8859-5"))
> >       (set-fontset-font fontset '(#x80 . #xFFFF) '(nil . "jisx0208.1983-0")
> > nil 'append)))

> It worked for me, too.

That's good.  I'll add this workaround in etc/PROBLEMS.

---
Kenichi Handa
handa@...