Re: set-fontset-font and preferred charset?

[Kenichi Handa <handa@m17n.org>]

In article <20090703.082403.252821682.wl@gnu.org>, Werner LEMBERG <wl@gnu.org> writes:
[...]
> > (set-fontset-font "fontset-default"
> > 		  'cyrillic '(nil . "jisx0208.1983-0") 'append)
[...]
> There are typos; this should rather be

Oops, right.  We need nil before 'append.

> IMHO, this kind of setup should be the default -- I'm quite sure that
> even Japanese or Chinese prefer half-width characters for Greek and
> Cyrillic.  Any reason against this?

Actually, 23.1 doesn't contain "jisx0208.1983-0" for
cyrillic and greek.  So, they are always displayed as
half-width.

Recently, for 23.2, I added this code to make them displayed
as doble-width when charset property is some of CJK charset.

+  ;; Append CJK fonts for characters other than han, kana, cjk-misc.
+  ;;             CHARSET-REGISTRY  CHARSET            FROM-CODE TO-CODE
+  (let ((list '(("JISX0208.1983-0" japanese-jisx0208  #x2121    #x287E)
+		("GB2312.1980-0"   chinese-gb2312     #x2121    #x297E)
+		("BIG5-0"          big5               #xA140    #xA3FE)
+		("CNS11643.1992-1" chinese-cns11643-1 #x2121    #x427E)
+		("KSC5601.1987-0"  korean-ksc5601     #x2121    #x2C7E))))
+    (dolist (elt list)
+      (map-charset-chars
+       #'(lambda (range arg)
+	   (set-fontset-font "fontset-default" range
+			     (cons nil (car elt)) nil 'append))
+       (nth 1 elt) nil (nth 2 elt) (nth 3 elt))))

So, if he uses 23.2 trunk code, there's no need of extra
setting.

Perhaps, I should add that code for 23.1 too because it can
be considered as a bug that Emacs 23.1 dislays several
characters as half width by M-x list-charset-chars RET
japanese-jisx0208 RET.

---
Kenichi Handa
handa@m17n.org