projects / chise / xemacs-chise.git.1 / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Contents of release-21-2 in 1999-06-17-23.
[chise/xemacs-chise.git.1] / lisp / mule / cyrillic.el
diff --git a/lisp/mule/cyrillic.el b/lisp/mule/cyrillic.el
index 1c06e6c..f610c1c 100644 (file)
--- a/lisp/mule/cyrillic.el
+++ b/lisp/mule/cyrillic.el
@@ -32,9 +32,9 @@
 
 ;; For syntax of Cyrillic
 (modify-syntax-entry 'cyrillic-iso8859-5 "w")
-(modify-syntax-entry ?\e.L\eN- ".")
-(modify-syntax-entry ?\e.L\eNp ".")
-(modify-syntax-entry ?\e.L\eN} ".")
+(modify-syntax-entry ?\e,L-\e(B ".")
+(modify-syntax-entry ?\e,Lp\e(B ".")
+(modify-syntax-entry ?\e,L}\e(B ".")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; CYRILLIC
@@ -77,7 +77,7 @@
                  (charset . (cyrillic-iso8859-5))
                  (tutorial . "TUTORIAL.ru")
                  (coding-system . (iso-8859-5))
-                 (sample-text . "Russian (\e.L\eN@\eNc\eNa\eNa\eNZ\eNX\eNY)    \eN7\eNT\eN`\eNP\eNR\eNa\eNb\eNR\eNc\eNY\eNb\eNU!")
+                 (sample-text . "Russian (\e,L@caaZXY\e(B)       \e,L7T`PRabRcYbU\e(B!")
                  (documentation . ("Support for Cyrillic ISO-8859-5."
                                    . describe-cyrillic-environment-map))))
 
@@ -96,13 +96,13 @@
    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
    ?\e$B(!\e(B ?\e$B("\e(B ?\e$B(#\e(B ?\e$B($\e(B ?\e$B(&\e(B ?\e$B(%\e(B ?\e$B('\e(B ?\e$B()\e(B ?\e$B((\e(B ?\e$B(*\e(B ?\e$B(+\e(B 32  ?\e$(G#'\e(B ?\e$(G#+\e(B ?\e$(G#/\e(B 32
-   32  ?\e$(C"F\e(B 32  32  ?\e$B"#\e(B 32  ?\e$B"e\e(B ?\e$A!V\e(B ?\e$A!\\e(B ?\e$A!]\e(B ?\e.A\eN   32  ?\eN0  ?\eN2  ?\eN7  ?\eNw
-   ?\e$(G#D\e(B 32  32  ?\e.L\eNq  32  32  32  32  32  32  32  32  32  32  32  ?\e$(G#E\e(B
-   32  32  ?\e$(G#G\e(B ?\e.L\eN!  32  32  32  32  32  32  32  32  ?\e$(G#F\e(B 32  32  ?\e.A\eN)
-   ?\e.L\eNn  ?\eNP  ?\eNQ  ?\eNf  ?\eNT  ?\eNU  ?\eNd  ?\eNS  ?\eNe  ?\eNX  ?\eNY  ?\eNZ  ?\eN[  ?\eN\  ?\eN]  ?\eN^ 
-   ?\e.L\eN_  ?\eNo  ?\eN`  ?\eNa  ?\eNb  ?\eNc  ?\eNV  ?\eNR  ?\eNl  ?\eNk  ?\eNW  ?\eNh  ?\eNm  ?\eNi  ?\eNg  ?\eNj 
-   ?\e.L\eNN  ?\eN0  ?\eN1  ?\eNF  ?\eN4  ?\eN5  ?\eND  ?\eN3  ?\eNE  ?\eN8  ?\eN9  ?\eN:  ?\eN;  ?\eN<  ?\eN=  ?\eN> 
-   ?\e.L\eN?  ?\eNO  ?\eN@  ?\eNA  ?\eNB  ?\eNC  ?\eN6  ?\eN2  ?\eNL  ?\eNK  ?\eN7  ?\eNH  ?\eNM  ?\eNI  ?\eNG  ?\eNJ ]
+   32  ?\e$(C"F\e(B 32  32  ?\e$B"#\e(B 32  ?\e$B"e\e(B ?\e$A!V\e(B ?\e$A!\\e(B ?\e$A!]\e(B ?\e,L \e(B  32  ?\e,A0\e(B  ?\e,A2\e(B  ?\e,A7\e(B  ?\e,Aw\e(B
+   ?\e$(G#D\e(B 32  32  ?\e,Lq\e(B  32  32  32  32  32  32  32  32  32  32  32  ?\e$(G#E\e(B
+   32  32  ?\e$(G#G\e(B ?\e,L!\e(B  32  32  32  32  32  32  32  32  ?\e$(G#F\e(B 32  32  ?\e,A)\e(B
+   ?\e,Ln\e(B  ?\e,LP\e(B  ?\e,LQ\e(B  ?\e,Lf\e(B  ?\e,LT\e(B  ?\e,LU\e(B  ?\e,Ld\e(B  ?\e,LS\e(B  ?\e,Le\e(B  ?\e,LX\e(B  ?\e,LY\e(B  ?\e,LZ\e(B  ?\e,L[\e(B  ?\e,L\\e(B  ?\e,L]\e(B  ?\e,L^\e(B 
+   ?\e,L_\e(B  ?\e,Lo\e(B  ?\e,L`\e(B  ?\e,La\e(B  ?\e,Lb\e(B  ?\e,Lc\e(B  ?\e,LV\e(B  ?\e,LR\e(B  ?\e,Ll\e(B  ?\e,Lk\e(B  ?\e,LW\e(B  ?\e,Lh\e(B  ?\e,Lm\e(B  ?\e,Li\e(B  ?\e,Lg\e(B  ?\e,Lj\e(B 
+   ?\e,LN\e(B  ?\e,L0\e(B  ?\e,L1\e(B  ?\e,LF\e(B  ?\e,L4\e(B  ?\e,L5\e(B  ?\e,LD\e(B  ?\e,L3\e(B  ?\e,LE\e(B  ?\e,L8\e(B  ?\e,L9\e(B  ?\e,L:\e(B  ?\e,L;\e(B  ?\e,L<\e(B  ?\e,L=\e(B  ?\e,L>\e(B 
+   ?\e,L?\e(B  ?\e,LO\e(B  ?\e,L@\e(B  ?\e,LA\e(B  ?\e,LB\e(B  ?\e,LC\e(B  ?\e,L6\e(B  ?\e,L2\e(B  ?\e,LL\e(B  ?\e,LK\e(B  ?\e,L7\e(B  ?\e,LH\e(B  ?\e,LM\e(B  ?\e,LI\e(B  ?\e,LG\e(B  ?\e,LJ\e(B ]
   "Cyrillic KOI8-R decoding table.")
 
 (defvar cyrillic-koi8-r-encode-table
@@ -110,7 +110,7 @@
        (i 0))
     (while (< i 256)
       (let* ((ch (aref cyrillic-koi8-r-decode-table i))
-            (split (split-char-or-char-int ch)))
+            (split (split-char ch)))
        (cond ((eq (car split) 'cyrillic-iso8859-5)
               (aset table (logior (nth 1 split) 128) i)
               )
@@ -184,7 +184,7 @@
                   (charset . (cyrillic-iso8859-5))
                   (coding-system . (koi8-r))
                   (tutorial . "TUTORIAL.ru")
-                  (sample-text . "Russian (\e.L\eN@\eNc\eNa\eNa\eNZ\eNX\eNY)   \eN7\eNT\eN`\eNP\eNR\eNa\eNb\eNR\eNc\eNY\eNb\eNU!")
+                  (sample-text . "Russian (\e,L@caaZXY\e(B)      \e,L7T`PRabRcYbU\e(B!")
                   (documentation . ("Support for Cyrillic KOI-8."
                                     . describe-cyrillic-environment-map))))
 
@@ -204,14 +204,14 @@
               80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95
               96  97  98  99 100 101 102 103 104 105 106 107 108 109 110 111
               112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
-              ?\e.L\eN0  ?\eN1  ?\eN2  ?\eN3  ?\eN4  ?\eN5  ?\eN6  ?\eN7  ?\eN8  ?\eN9  ?\eN:  ?\eN;  ?\eN<  ?\eN=  ?\eN>  ?\eN?
-              ?\e.L\eN@  ?\eNA  ?\eNB  ?\eNC  ?\eND  ?\eNE  ?\eNF  ?\eNG  ?\eNH  ?\eNI  ?\eNJ  ?\eNK  ?\eNL  ?\eNM  ?\eNN  ?\eNO
-              ?\e.L\eNP  ?\eNQ  ?\eNR  ?\eNS  ?\eNT  ?\eNU  ?\eNV  ?\eNW  ?\eNX  ?\eNY  ?\eNZ  ?\eN[  ?\eN\  ?\eN]  ?\eN^  ?\eN_
+              ?\e,L0\e(B  ?\e,L1\e(B  ?\e,L2\e(B  ?\e,L3\e(B  ?\e,L4\e(B  ?\e,L5\e(B  ?\e,L6\e(B  ?\e,L7\e(B  ?\e,L8\e(B  ?\e,L9\e(B  ?\e,L:\e(B  ?\e,L;\e(B  ?\e,L<\e(B  ?\e,L=\e(B  ?\e,L>\e(B  ?\e,L?\e(B
+              ?\e,L@\e(B  ?\e,LA\e(B  ?\e,LB\e(B  ?\e,LC\e(B  ?\e,LD\e(B  ?\e,LE\e(B  ?\e,LF\e(B  ?\e,LG\e(B  ?\e,LH\e(B  ?\e,LI\e(B  ?\e,LJ\e(B  ?\e,LK\e(B  ?\e,LL\e(B  ?\e,LM\e(B  ?\e,LN\e(B  ?\e,LO\e(B
+              ?\e,LP\e(B  ?\e,LQ\e(B  ?\e,LR\e(B  ?\e,LS\e(B  ?\e,LT\e(B  ?\e,LU\e(B  ?\e,LV\e(B  ?\e,LW\e(B  ?\e,LX\e(B  ?\e,LY\e(B  ?\e,LZ\e(B  ?\e,L[\e(B  ?\e,L\\e(B  ?\e,L]\e(B  ?\e,L^\e(B  ?\e,L_\e(B
               32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32
               32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32
               32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32
-              ?\e.L\eN`  ?\eNa  ?\eNb  ?\eNc  ?\eNd  ?\eNe  ?\eNf  ?\eNg  ?\eNh  ?\eNi  ?\eNj  ?\eNk  ?\eNl  ?\eNm  ?\eNn  ?\eNo
-              ?\e.L\eN!  ?\eNq   32  32  32  32  32  32  32  32  32  32  32  32  32 ?\eNp]))))
+              ?\e,L`\e(B  ?\e,La\e(B  ?\e,Lb\e(B  ?\e,Lc\e(B  ?\e,Ld\e(B  ?\e,Le\e(B  ?\e,Lf\e(B  ?\e,Lg\e(B  ?\e,Lh\e(B  ?\e,Li\e(B  ?\e,Lj\e(B  ?\e,Lk\e(B  ?\e,Ll\e(B  ?\e,Lm\e(B  ?\e,Ln\e(B  ?\e,Lo\e(B
+              ?\e,L!\e(B  ?\e,Lq\e(B   32  32  32  32  32  32  32  32  32  32  32  32  32 ?\e,Lp\e(B]))))
   "CCL program to decode Alternativnyj.")
 
 (define-ccl-program ccl-encode-alternativnyj
@@ -268,7 +268,7 @@
                  (charset . (cyrillic-iso8859-5))
                  (coding-system . (alternativnyj))
                  (tutorial . "TUTORIAL.ru")
-                 (sample-text . "Russian (\e.L\eN@\eNc\eNa\eNa\eNZ\eNX\eNY)    \eN7\eNT\eN`\eNP\eNR\eNa\eNb\eNR\eNc\eNY\eNb\eNU!")
+                 (sample-text . "Russian (\e,L@caaZXY\e(B)       \e,L7T`PRabRcYbU\e(B!")
                  (documentation . ("Support for Cyrillic ALTERNATIVNYJ."
                                    . describe-cyrillic-environment-map))))
 
@@ -303,7 +303,7 @@
               (charset . (cyrillic-iso8859-5))
              (tutorial . "TUTORIAL.ru")
               (coding-system . (iso-8859-5 koi8-r alternativnyj))
-              (sample-text . "Russian (\e.L\eN@\eNc\eNa\eNa\eNZ\eNX\eNY) \eN7\eNT\eN`\eNP\eNR\eNa\eNb\eNR\eNc\eNY\eNb\eNU!")
+              (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
               (documentation . nil)))
 
 ;;; cyrillic.el ends here