Re: [locale] without kde

["Valeriy E. Ushakov" <uwe@ptc.spbu.ru>]

On Wed, Jan 10, 2001 at 12:41:51 -0800, Alexander V. Voinov wrote:

> > хм. а что, MULE в GNU Emacs может работать с русским не непременно с
> > 8859-5 шрифтами?!
> 
> Может. Вот строчка из моей .bash_history:
> 
> /tools/emacs-20.7/bin/emacs -fn
> -*-courier-medium-r-*-*-17-*-*-*-*-*-koi8-* &
> 
> Это, естественно, не относится к ntemacs. 

NT emacs чудно живет с родным (уникодным) курьером.  Я как-то интереса
ради, решил посмотреть, чего можно выжать из шрифтов, ставящихся с
IE5 и вот чего получилось.

(setq w32-standard-fontset-spec
  "-*-Courier New-normal-r-*-*-*-120-*-*-c-*-fontset-courier,
   ascii:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-1,
   latin-iso8859-1:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-1,
   latin-iso8859-2:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-2,
   latin-iso8859-3:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-3,
   latin-iso8859-4:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-4,
   latin-iso8859-9:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-9,

   cyrillic-iso8859-5:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-5,
   greek-iso8859-7:-*-Courier New-normal-r-*-*-*-120-*-*-c-*-iso8859-7,
   hebrew-iso8859-8:-*-Rod-normal-r-*-*-*-120-*-*-c-*-iso8859-8,

   ipa:-*-Lucida Sans Unicode-normal-r-*-*-*-120-*-*-c-*-muleipa*-*,

   thai-tis620:-*-Tahoma-normal-r-*-*-*-120-*-*-c-*-tis620-*,

   latin-jisx0201:-*-MS Gothic-normal-r-*-*-*-120-*-*-c-*-jisx0208-sjis,
   katakana-jisx0201:-*-MS Gothic-normal-r-*-*-*-120-*-*-c-*-jisx0208-sjis,
   japanese-jisx0208:-*-MS Gothic-normal-r-*-*-*-120-*-*-c-*-jisx0208-sjis,
   japanese-jisx0208-1978:-*-MS Gothic-normal-r-*-*-*-120-*-*-c-*-jisx0208-sjis,
   japanese-jisx0212:-*-MS Gothic-normal-r-*-*-*-120-*-*-c-*-jisx0212-sjis,
   korean-ksc5601:-*-Gulim-normal-r-*-*-*-120-*-*-c-*-ksc5601-*,
   chinese-gb2312:-*-MS Song-normal-r-*-*-*-120-*-*-c-*-gb2312-*,
   chinese-big5-1:-*-MingLiU-normal-r-*-*-*-120-*-*-c-*-big5-*,
   chinese-big5-2:-*-MingLiU-normal-r-*-*-*-120-*-*-c-*-big5-*")

(setq w32-enable-italics t)
(create-fontset-from-fontset-spec w32-standard-fontset-spec t)


Ну и BDF шрифты он тоже понимает (сам):

(setq bdf-directory-list '("c:/emacs/fonts/bdf/unicode"))
(setq w32-bdf-filename-alist (w32-find-bdf-fonts bdf-directory-list))

(create-fontset-from-fontset-spec
 "-misc-fixed-medium-r-normal-*-18-*-*-*-*-*-fontset-unicode")

; Too big...
; (oc-create-fontset
;  "-misc-fixed-medium-r-normal--18-*-*-*-*-*-fontset-standard"
;  "-misc-fixed-medium-r-normal-ja-18-*-iso10646-*")

(setq w32-use-w32-font-dialog nil)
(setq w32-fixed-font-alist '("Select Fontset"))


SY, Uwe
-- 
uwe@ptc.spbu.ru                         |       Zu Grunde kommen
http://www.ptc.spbu.ru/~uwe/            |       Ist zu Grunde gehen