русификация xemacs-21.1.10 (rus xemacs)
Ключевые слова: rus, xemacs, (найти похожие документы)
Date: Mon, 05 Mar 2001 00:04:11 +0300
From: Denis Shaposhnikov <dsh@neva.vlink.ru>
Newsgroups: fido7.ru.unix.bsd
Subject: русификация xemacs-21.1.10
John> Может кто работает с такой штукой? Можете сказать, как ее
John> прорусифицировать?
~/.Xresources:
Emacs.default.attributeFont: -*-courier-medium-r-*-*-*-120-100-100-*-*-koi8-r
~/.emacs:
(load-options-file "~/.emacs.xkb")
(set-input-mode nil nil `We-will-use-eighth-bit-of-input-byte)
(standard-display-8bit 128 255)
~/.emacs.xkb:
;; -*- 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] [ё])
(define-key global-map [Cyrillic_IO] [Ё])
--
DSS5-RIPE DSS-RIPN 2:550/5068@fidonet 2:550/5069@fidonet
mailto:dsh@vlink.ru http://neva.vlink.ru/~dsh/
