Constantin Kaplinsky wrote:
: >>>>> "VB" == Vladimir Bormotov <bor(a)vb.dn.ua> writes:
:
: CK> После этого koi8-r работает, переключение языков по Ctrl-\ (чтобы
: CK> делать это обычным иксовым переключателем, надо поставить какой-то
: CK> пакетик, не помню как его называют, ru-keys.el?).
:
: VB>
http://www.bcs.zp.ua/~awn/xemacs/ru-keys.el
:
: VB> там еще много чего интересного.
:
: Попробовал, не хотит он у меня работать. При выполнении (require
: 'ru-keys) говорит:
:
: Signaling: (args-out-of-range "^@^A^B^C..." 1569)
: aset("^@^A^B^C..." ?Ё ?ё)
: (if (functionp (quote put-case-table-pair)) (put-case-table-pair uc lc table) (aset
(car table) uc lc) (aset (car table) lc lc))
: )
: ru-keys-put-case-table-pair(?Ё ?ё ("^@^A^B^C..." "^@^A^B^C..."
"^@^A^B^C..." "^@^A^B^C..."))
: ru-keys-define-case-char(Cyrillic_IO ?Ё Cyrillic_io ?ё)
: ru-keys-setup()
: load-internal("ru-keys" nil t nil koi8-r)
: load("ru-keys" nil t nil)
[skip]
:
: (Вместо "^@^A^B^C..." там строчки гораздо длиннее.)
:
: Это xemacs-21.1.14-2.7.0.asp ...
[Мои извинения, о корнях дискуссии не осведомлен ибо увидел ее только
когда пошел cross-posting на xemacs-users-ru]
1. Я правильно понимаю, что речь идет про XEmacs-Mule
и ru-keys версии 0.4.0?
2. Если не сложно, что на твоем xemacs выдают:
(char-int ?ф) ;; ожидается 198, если koi8-r и non-Mule
(char-int ?Ё) ;; ожидается 179, если koi8-r и non-Mule
(char-int ?ё) ;; ожидается 163, если koi8-r и non-Mule
(char-int ?z) ;; ожидается 122
(int-char 198) ;; ожидается ?ф, если koi8-r и non-Mule
(int-char 179) ;; ожидается ?Ё, если koi8-r и non-Mule
(int-char 163) ;; ожидается ?ё, если koi8-r и non-Mule
(int-char 122) ;; ожидается ?z
--
Andrew W. Nosenko (awn(a)bcs.zp.ua)
Фамильный призрак (c) Елена Носенко