ru.unix.bsd

 
 - RU.UNIX.BSD ------------------------------------------------------------------
 From : Denis Shaposhnikov                   2:550/5068     05 Mar 2001  01:04:11
 To : John Grigoriev
 Subject : Re: xemacs-21.1.10, russification
 -------------------------------------------------------------------------------- 
 

 >>>>> "John" == John Grigoriev <john@localhost.localdomain> writes:
 
  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/
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: Solar system, Jupiter (2:550/5068@fidonet)
 
 

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