Next Previous Contents

4.

. , ( )

4.1 Emacs XEmacs

Emacs - GNU Emacs XEmacs. . . - ( Emacs ) "" .

: , , emacs . MULE (MULtilanguage Emacs support). ( ) , .

GNU emacs ( XEmacs) , .emacs ( , X Windows ): 

(standard-display-european t)

(let ((m (current-input-mode)))
  (set-input-mode (car m) (nth 1 m) 1))

, ASCII .

, . Emacs , . , emacs: 

(require 'case-table)

(let* ((ruc "\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361")
       (rlc "\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321")
       (i 0)
       (len (length ruc)))
  (while (< i len)
    (modify-syntax-entry (elt ruc i) "w  ")
    (modify-syntax-entry (elt rlc i) "w  ")
    (set-case-syntax-pair (elt ruc i) (elt rlc i) (standard-case-table))
    (setq i (+ i 1))))



     rusup.el,    ,
      .      
 ~/.emacs.



   :  
russian.el,     (valery@math.uga.edu),
     
       
     (  ,   
   MS-DOS  Windows).



4.2   vi









 vi (     vim, 
   Linux)    8 
.       . 
   .       
      ,     
  vi.    -  , 
  



4.3    joe







    8   joe 
  -asis.      
     ~/.joerc   
  /usr/lib/joerc    .

     -asis,   
  .

, joe     .  ,
         
   .



4.4     









      GNU ispell.
        .
      
       
 .

       
ispell.      
  ..
     , 
      emacs;

    ispell  ,  
   ,  , 
 Makefile  .     
     ispell,   
8  .      ,   
 Linux ispell   
8  .        
 ispell.

   RedHat    ispell
     .  ,   
  
RedHat FTP site.

    ,    
   ,    ispell
  '-d russian'

,    Emacs,     
        .  
   ,  ispell.el, 
         .
 ,          
   ~/.emacs  (  /usr/share/emacs/site-lisp/site-start.el
   )



(setq ispell-dictionary-alist
  (append ispell-dictionary-alist
          '(("russian"
             "[\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]"
             "[^\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]"
             "[']" t ("-C" "-d" "russian") "~latin1"))))
  
(define-key-after ispell-menu-map [ispell-select-russian]
  '("Select Russian (KOI-8)" . (lambda ()
                                 (interactive)
                                 (ispell-change-dictionary "russian")))
  'british)



 ,     XEmacs.     
.




Next
Previous
Contents