The Right Thing is to integrate something similar to the below in the X11 startup code, but I won’t get to that for a while. In the meantime, this makes non-ASCII a good more readable on XFT, IMO. (when (featurep 'xft) (set-specifier (face-font 'default) (cons '(x) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse "Monospace-11.5:lang=en"))))) (loop for (tag-name regex size) in '((zh-tw "^chinese-\\(big5\\|cns\\)" 18) (zh "^chinese-" 18) (ja "^\\(japanese\\|katakana\\)-" 18) (ko "^korean-" 18) (am "^ethiopic-" 18) (vi "^vietnamese-" 14) (el "^greek-" 12) (ru "^cyrillic-" 12) (hu "^latin-iso8859-2" 12) (ar "^arabic-" 16)) do (define-specifier-tag tag-name nil (list 'lambda '(charset) (list 'string-match regex '(symbol-name (charset-name charset))))) (set-face-font 'default (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list 'x tag-name) 'append))) -- Santa Maradona, priez pour moi! _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta