В Xemacs русские буквы а не Cyrillic_%lya no defined (X rus emacs)
Ключевые слова: X, rus, emacs, (найти похожие документы)
- BEST_PEOPLE (2:5077/15.22) --------------------------- BEST_PEOPLE (RU.GNU) -
From : Alex Bakhtin 2:5020/400 24 Apr 00 10:48:28
Subj : В Xemacs русские буквы а не Cyrillic_%lya no defined
-------------------------------------------------------------------------------
* Forwarded from area 'RU.GNU'
From: Alex Bakhtin <[email protected]>
>>>>> "AS" == Alexey Shaposhnikov writes:
Пpивет.
AS> 1. Как заставить сабж выводить в иксах русские буквы а не Cyrillic_%lya no
AS> defined ?
Гpязным хаком, pазумеется;)
================
;; -*- Emacs-Lisp -*-
;;
;; KOI8 keyboard - The Nasty Hack (tm) for using with xkb
;;
(define-key global-map [(iso-next-group)] "")
(define-key global-map [Cyrillic_shorti] [й])
(define-key global-map [Cyrillic_SHORTI] [Й])
(define-key global-map [Cyrillic_tse] [ц])
(define-key global-map [Cyrillic_TSE] [Ц])
(define-key global-map [Cyrillic_u] [у])
(define-key global-map [Cyrillic_U] [У])
(define-key global-map [Cyrillic_ka] [к])
(define-key global-map [Cyrillic_KA] [К])
(define-key global-map [Cyrillic_ie] [е])
(define-key global-map [Cyrillic_IE] [Е])
(define-key global-map [Cyrillic_en] [н])
(define-key global-map [Cyrillic_EN] [H])
(define-key global-map [Cyrillic_ghe] [г])
(define-key global-map [Cyrillic_GHE] [Г])
(define-key global-map [Cyrillic_sha] [ш])
(define-key global-map [Cyrillic_SHA] [Ш])
(define-key global-map [Cyrillic_shcha] [щ])
(define-key global-map [Cyrillic_SHCHA] [Щ])
(define-key global-map [Cyrillic_ze] [з])
(define-key global-map [Cyrillic_ZE] [З])
(define-key global-map [Cyrillic_ha] [х])
(define-key global-map [Cyrillic_HA] [Х])
(define-key global-map [Cyrillic_hardsign] [ъ])
(define-key global-map [Cyrillic_HARDSIGN] [Ъ])
(define-key global-map [Cyrillic_ef] [ф])
(define-key global-map [Cyrillic_EF] [Ф])
(define-key global-map [Cyrillic_yeru] [ы])
(define-key global-map [Cyrillic_YERU] [Ы])
(define-key global-map [Cyrillic_ve] [в])
(define-key global-map [Cyrillic_VE] [В])
(define-key global-map [Cyrillic_a] [а])
(define-key global-map [Cyrillic_A] [А])
(define-key global-map [Cyrillic_pe] [п])
(define-key global-map [Cyrillic_PE] [П])
(define-key global-map [Cyrillic_er] [p])
(define-key global-map [Cyrillic_ER] [Р])
(define-key global-map [Cyrillic_o] [о])
(define-key global-map [Cyrillic_O] [О])
(define-key global-map [Cyrillic_el] [л])
(define-key global-map [Cyrillic_EL] [Л])
(define-key global-map [Cyrillic_de] [д])
(define-key global-map [Cyrillic_DE] [Д])
(define-key global-map [Cyrillic_zhe] [ж])
(define-key global-map [Cyrillic_ZHE] [Ж])
(define-key global-map [Cyrillic_e] [э])
(define-key global-map [Cyrillic_E] [Э])
(define-key global-map [Cyrillic_ya] [я])
(define-key global-map [Cyrillic_YA] [Я])
(define-key global-map [Cyrillic_che] [ч])
(define-key global-map [Cyrillic_CHE] [Ч])
(define-key global-map [Cyrillic_es] [с])
(define-key global-map [Cyrillic_ES] [С])
(define-key global-map [Cyrillic_em] [м])
(define-key global-map [Cyrillic_EM] [М])
(define-key global-map [Cyrillic_i] [и])
(define-key global-map [Cyrillic_I] [И])
(define-key global-map [Cyrillic_te] [т])
(define-key global-map [Cyrillic_TE] [Т])
(define-key global-map [Cyrillic_softsign] [ь])
(define-key global-map [Cyrillic_SOFTSIGN] [Ь])
(define-key global-map [Cyrillic_be] [б])
(define-key global-map [Cyrillic_BE] [Б])
(define-key global-map [Cyrillic_yu] [ю])
(define-key global-map [Cyrillic_YU] [Ю])
(define-key global-map [Cyrillic_io] [ё])
================
Делал не я, но я использую и меня устpаивает...
--
Best regards, -- Alex Bakhtin.
AMT Group, Cisco Systems Gold Partner, http://www.amt.ru
--- ifmail v.2.15dev4
* Origin: AMT Group (2:5020/400)
