>>>>> "BW" == Ben Wing <ben(a)666.com> writes:
BW> alexey, can you create a patch with all of your changes? it seems
BW> to me that anyone who does (set-language-environment
BW> 'Cyrillic-KOI8) probably wants the other settings too? either
BW> that should happen by default when you change your language
BW> env. or it should happen when you call
BW> `setup-cyrillic-koi8-environment', defined in cyril-util.el.
Currently it seems like `setup-cyrillic-koi8-environment' is
appropriate place (I am not sure if adding more properties to
language-environment (font registry and ccl-program) is more
convenient). It needs to be documented. I'll try to write something
tomorrow and maybe discuss the issue in some local newsgroup, but for
now it seems to me like
(defun setup-cyrillic-koi8-environment ()
"Setup multilingual environment (MULE) for Cyrillic KOI8 users."
(interactive)
(set-language-environment "Cyrillic-KOI8")
(set-charset-registry 'cyrillic-iso8859-5 "koi8-r")
(set-charset-registry 'ascii "koi8-r")
(set-charset-ccl-program 'cyrillic-iso8859-5 'ccl-encode-koi8-r-font))
is enough. (Yes, it should be really "koi8-r" as standard cyrillic
fonts from XFree use that registry. "koi8-1" is just issue of my
particular machine).
Sorry, no patch for that, as it's only matter of cut-and-paste. Hope
it helps :)
I think that I'll convince someone who uses other kinds of cyrillic
environments (I know of several people using cyrillic-1251, not sure
is there anyone working with cp866 (alternativnyj)) to contribute
changes needed for them.
Please, notify me if any of my patches will appear in main XEmacs, so
that I'll not be drowned with my local changes (I haven't imported it
into CVS yet).
This one is still valid:
>> Hope this one to appear in 21.4.2:
>>
>> --- orig/xemacs-21.4.0/lisp/mule/cyrillic.el Thu Apr 12 22:21:44
>> 2001 +++ xemacs-21.4.0/lisp/mule/cyrillic.el Sat May 5 17:06:06
>> 2001 @@ -137,11 +137,11 @@ ;; `iso-8-1' is not correct, but XEmacs
>> doesn't have a `ccl' category (coding-system-put 'koi8-r 'category
>> 'iso-8-1)
>>
>> -;; (define-ccl-program ccl-encode-koi8-font -;; `(0 -;; ((r1 |=
>> 128) -;; (r1 = r1 ,cyrillic-koi8-r-encode-table))) -;; "CCL program
>> to encode Cyrillic chars to KOI font.") +(define-ccl-program
>> ccl-encode-koi8-r-font + `(0 + ((r1 |= 128) + (r1 = r1
>> ,cyrillic-koi8-r-encode-table))) + "CCL program to encode Cyrillic
>> chars to koi8-r font.")
>>
>> ;; (setq font-ccl-encoder-alist ;; (cons (cons "koi8"
>> ccl-encode-koi8-font) font-ccl-encoder-alist))
>>
Thanks,
--alexm