Re: set-fontset-font and preferred charset?

[Kenichi Handa]

In article <address@hidden>, Yoshiaki Kasahara <address@hidden> 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
address@hidden