Главная страница


ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Dmitry V Sedov                       2:5051/15      17 Jan 2001  20:59:36
 To : Victor Bazhenov
 Subject : Re: XEmacs
 -------------------------------------------------------------------------------- 
 
 >>>>> "Victor" == Victor Bazhenov <Victor.Bazhenov@p1.f70.n5022.z2.fidonet.org>
 >>>>> writes:
 
     Victor> У меня XEmacs 20.4 "Emerald" [Lucid] (i386-debian-linux, Mule).
 
     Victor> В .emacs прописал:
 
     Victor> (load-file "/usr/lib/xemacs-20.4/lisp/leim/leim-list.elc")
     Victor> (set-language-environment "Cyrillic-KOI8") (select-input-method
     Victor> "cyrillic-jcuken")
 
     Victor> При этом XEmacs ругается -- No such coding system: koi8-r.  Hо
     Victor> при установленных cyrillic iso8859-5 fonts русские буквы есть,
     Victor> а при переключении раскладки, XEmacs опять ругается --
     Victor> iso-next-group not defined, Cyrillic_io not defined,
     Victor> Cyrillic_ve not defined, Cyrillic_em not defined...  Как быть в
     Victor> этом случае?
 Вообще-то ты пытаешся пользоваться xkb, а XEmacs этого не любит
 (в отличии от FSF Emacs ;-), правильная переключалка в XEmacs С-\,
 но если ты хочешь пользоваться xkb, то добавь ЭТО в .emacs:
 -------------
 ;;
 ;; KOI8 keyboard - The Nasty Hack (tm) for using with xkb
 ;;
 
 (global-set-key [(iso-next-group)]
   '(lambda ()
      (interactive)
      (play-sound-file _switch-keyboard-sound)))
 
 (global-set-key [(Cyrillic_io)]
    '(lambda ()
         (interactive)
         (insert "ё")))
 (global-set-key [(Cyrillic_IO)]
    '(lambda ()
         (interactive)
         (insert "Ё")))
 (global-set-key [(Cyrillic_shorti)]
    '(lambda ()
         (interactive)
         (insert "й")))
 (global-set-key [(Cyrillic_SHORTI)]
    '(lambda ()
         (interactive)
         (insert "Й")))
 (global-set-key [(Cyrillic_ya)]
    '(lambda ()
         (interactive)
         (insert "я")))
 (global-set-key [(Cyrillic_YA)]
    '(lambda ()
         (interactive)
         (insert "Я")))
 (global-set-key [(Cyrillic_yeru)]
    '(lambda ()
         (interactive)
         (insert "ы")))
 (global-set-key [(Cyrillic_YERU)]
    '(lambda ()
         (interactive)
         (insert "Ы")))
 (global-set-key [(Cyrillic_ef)]
    '(lambda ()
         (interactive)
         (insert "ф")))
 (global-set-key [(Cyrillic_EF)]
    '(lambda ()
         (interactive)
         (insert "Ф")))
 (global-set-key [(Cyrillic_tse)]
    '(lambda ()
         (interactive)
         (insert "ц")))
 (global-set-key [(Cyrillic_TSE)]
    '(lambda ()
         (interactive)
         (insert "Ц")))
 (global-set-key [(Cyrillic_es)]
    '(lambda ()
         (interactive)
         (insert "с")))
 (global-set-key [(Cyrillic_ES)]
    '(lambda ()
         (interactive)
         (insert "С")))
 (global-set-key [(Cyrillic_che)]
    '(lambda ()
         (interactive)
         (insert "ч")))
 (global-set-key [(Cyrillic_CHE)]
    '(lambda ()
         (interactive)
         (insert "Ч")))
 (global-set-key [(Cyrillic_ve)]
    '(lambda ()
         (interactive)
         (insert "в")))
 (global-set-key [(Cyrillic_VE)]
    '(lambda ()
         (interactive)
         (insert "В")))
 (global-set-key [(Cyrillic_u)]
    '(lambda ()
         (interactive)
         (insert "у")))
 (global-set-key [(Cyrillic_U)]
    '(lambda ()
         (interactive)
         (insert "У")))
 (global-set-key [(Cyrillic_em)]
    '(lambda ()
         (interactive)
         (insert "м")))
 (global-set-key [(Cyrillic_EM)]
    '(lambda ()
         (interactive)
         (insert "М")))
 (global-set-key [(Cyrillic_a)]
    '(lambda ()
         (interactive)
         (insert "а")))
 (global-set-key [(Cyrillic_A)]
    '(lambda ()
         (interactive)
         (insert "А")))
 (global-set-key [(Cyrillic_ie)]
    '(lambda ()
         (interactive)
         (insert "е")))
 (global-set-key [(Cyrillic_IE)]
    '(lambda ()
         (interactive)
         (insert "Е")))
 (global-set-key [(Cyrillic_ka)]
    '(lambda ()
         (interactive)
         (insert "к")))
 (global-set-key [(Cyrillic_KA)]
    '(lambda ()
         (interactive)
         (insert "К")))
 (global-set-key [(Cyrillic_te)]
    '(lambda ()
         (interactive)
         (insert "т")))
 (global-set-key [(Cyrillic_TE)]
    '(lambda ()
         (interactive)
         (insert "Т")))
 (global-set-key [(Cyrillic_i)]
    '(lambda ()
         (interactive)
         (insert "и")))
 (global-set-key [(Cyrillic_I)]
    '(lambda ()
         (interactive)
         (insert "И")))
 (global-set-key [(Cyrillic_er)]
    '(lambda ()
         (interactive)
         (insert "р")))
 (global-set-key [(Cyrillic_ER)]
    '(lambda ()
         (interactive)
         (insert "Р")))
 (global-set-key [(Cyrillic_pe)]
    '(lambda ()
         (interactive)
         (insert "п")))
 (global-set-key [(Cyrillic_PE)]
    '(lambda ()
         (interactive)
         (insert "П")))
 (global-set-key [(Cyrillic_en)]
    '(lambda ()
         (interactive)
         (insert "н")))
 (global-set-key [(Cyrillic_EN)]
    '(lambda ()
         (interactive)
         (insert "H")))
 (global-set-key [(Cyrillic_softsign)]
    '(lambda ()
         (interactive)
         (insert "ь")))
 (global-set-key [(Cyrillic_SOFTSIGN)]
    '(lambda ()
         (interactive)
         (insert "Ь")))
 (global-set-key [(Cyrillic_o)]
    '(lambda ()
         (interactive)
         (insert "о")))
 (global-set-key [(Cyrillic_O)]
    '(lambda ()
         (interactive)
         (insert "О")))
 (global-set-key [(Cyrillic_ghe)]
    '(lambda ()
         (interactive)
         (insert "г")))
 (global-set-key [(Cyrillic_GHE)]
    '(lambda ()
         (interactive)
         (insert "Г")))
 (global-set-key [(Cyrillic_be)]
    '(lambda ()
         (interactive)
         (insert "б")))
 (global-set-key [(Cyrillic_BE)]
    '(lambda ()
         (interactive)
         (insert "Б")))
 (global-set-key [(Cyrillic_el)]
    '(lambda ()
         (interactive)
         (insert "л")))
 (global-set-key [(Cyrillic_EL)]
    '(lambda ()
         (interactive)
         (insert "Л")))
 (global-set-key [(Cyrillic_sha)]
    '(lambda ()
         (interactive)
         (insert "ш")))
 (global-set-key [(Cyrillic_SHA)]
    '(lambda ()
         (interactive)
         (insert "Ш")))
 (global-set-key [(Cyrillic_shcha)]
    '(lambda ()
         (interactive)
         (insert "щ")))
 (global-set-key [(Cyrillic_SHCHA)]
    '(lambda ()
         (interactive)
         (insert "Щ")))
 (global-set-key [(Cyrillic_yu)]
    '(lambda ()
         (interactive)
         (insert "ю")))
 (global-set-key [(Cyrillic_YU)]
    '(lambda ()
         (interactive)
         (insert "Ю")))
 (global-set-key [(Cyrillic_de)]
    '(lambda ()
         (interactive)
         (insert "д")))
 (global-set-key [(Cyrillic_DE)]
    '(lambda ()
         (interactive)
         (insert "Д")))
 (global-set-key [(Cyrillic_zhe)]
    '(lambda ()
         (interactive)
         (insert "ж")))
 (global-set-key [(Cyrillic_ZHE)]
    '(lambda ()
         (interactive)
         (insert "Ж")))
 (global-set-key [(Cyrillic_ze)]
    '(lambda ()
         (interactive)
         (insert "з")))
 (global-set-key [(Cyrillic_ZE)]
    '(lambda ()
         (interactive)
         (insert "З")))
 (global-set-key [(Cyrillic_e)]
    '(lambda ()
         (interactive)
         (insert "э")))
 (global-set-key [(Cyrillic_E)]
    '(lambda ()
         (interactive)
         (insert "Э")))
 (global-set-key [(Cyrillic_ha)]
    '(lambda ()
         (interactive)
         (insert "х")))
 (global-set-key [(Cyrillic_HA)]
    '(lambda ()
         (interactive)
         (insert "Х")))
 (global-set-key [(Cyrillic_hardsign)]
    '(lambda ()
         (interactive)
         (insert "ъ")))
 (global-set-key [(Cyrillic_HARDSIGN)]
    '(lambda ()
         (interactive)
         (insert "Ъ")))
 -------------------------------------
 Далее, чтобы и в управляющих последовательностях
 русские коды понимала:
 -------------------------------------
 
 ;; Map Latin1 symbols with modifiers back to ASCII symbols.
 (x11-remap-keysyms-using-function-key-map         
  '((Cyrillic_ef          . ?a)
    (Cyrillic_i           . ?b)
    (Cyrillic_es          . ?c)
    (Cyrillic_ve          . ?d)
    (Cyrillic_u           . ?e)
    (Cyrillic_a           . ?f)
    (Cyrillic_pe          . ?g)
    (Cyrillic_er          . ?h)
    (Cyrillic_sha         . ?i)
    (Cyrillic_o           . ?j)
    (Cyrillic_el          . ?k)
    (Cyrillic_de          . ?l)
    (Cyrillic_softsign    . ?m)
    (Cyrillic_te          . ?n)
    (Cyrillic_ghe         . ?o)
    (Cyrillic_ze          . ?p)
    (Cyrillic_shorti      . ?q)
    (Cyrillic_ka          . ?r)
    (Cyrillic_yeru        . ?s)
    (Cyrillic_ie          . ?t)
    (Cyrillic_ghe         . ?u)
    (Cyrillic_em          . ?v)
    (Cyrillic_tse         . ?w)
    (Cyrillic_che         . ?x)
    (Cyrillic_en          . ?y)
    (Cyrillic_ya          . ?z)
    (Cyrillic_EF          . ?A)
    (Cyrillic_I           . ?B)
    (Cyrillic_ES          . ?C)
    (Cyrillic_VE          . ?D)
    (Cyrillic_U           . ?E)
    (Cyrillic_A           . ?F)
    (Cyrillic_PE          . ?G)
    (Cyrillic_ER          . ?H)
    (Cyrillic_SHA         . ?I)
    (Cyrillic_O           . ?J)
    (Cyrillic_EL          . ?K)
    (Cyrillic_DE          . ?L)
    (Cyrillic_SOFTSIGN    . ?M)
    (Cyrillic_TE          . ?N)
    (Cyrillic_GHE         . ?O)
    (Cyrillic_ZE          . ?P)
    (Cyrillic_SHORTI      . ?Q)
    (Cyrillic_KA          . ?R)
    (Cyrillic_YERU        . ?S)
    (Cyrillic_IE          . ?T)
    (Cyrillic_GHE         . ?U)
    (Cyrillic_EM          . ?V)
    (Cyrillic_TSE         . ?W)
    (Cyrillic_CHE         . ?X)
    (Cyrillic_EN          . ?Y)
    (Cyrillic_YA          . ?Z)
    (Cyrillic_HA          . ?{)
    (Cyrillic_HARDSIGN    . ?})
    (Cyrillic_ZHE         . ?:)
    (Cyrillic_E           . ?\")
    (Cyrillic_BE          . ?<)
    (Cyrillic_YU          . ?>)
    (exclamdown           . ??)
    (quotedbl             . ?@)
    (percent              . ?$)
    (colon                . ?%)
    (comma                . ?^)
    (period               . ?&)
    (Cyrillic_zhe         . ?\;)
    (Cyrillic_ha          . ?\[)
    (Cyrillic_hardsign    . ?\])
    (Cyrillic_e           . ?')
    (Cyrillic_be          . ?,)
    (Cyrillic_yu          . ?.)
    (ntilde               . ?/)))
 '(lambda ()
 ----------------------------------
 
 P.S. Честно говоря, я раз четвёртый это сюда посылаю...
      не разозлить бы модератора...
 -- 
 Sed-Off
 
 --- ifmail v.2.14dev3
  * Origin: Lamers World Organization (2:5051/15@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Re: XEmacs   Yuri Bulava   14 Jan 2001 14:40:23 
 Re: XEmacs   Andrew Kornilov   14 Jan 2001 18:35:37 
 Re: XEmacs   Dmitry V Sedov   15 Jan 2001 17:07:40 
 XEmacs   Victor Bazhenov   16 Jan 2001 17:54:17 
 Re: XEmacs   Dmitry V Sedov   17 Jan 2001 20:59:36 
 Re: XEmacs   Andrew Filonov   18 Jan 2001 02:33:34 
 Re: XEmacs   Serg Senyko   15 Jan 2001 22:16:38 
 XEmacs   Kirill Frolov   18 Jan 2001 17:16:26 
 Re: XEmacs   Serg Senyko   18 Jan 2001 19:00:17 
 XEmacs   Anton Popov   24 Jan 2001 15:49:50 
Архивное /ru.linux/2449197ab173c.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional