Mercurial > hg > xemacs-beta

annotate lisp/mule/cyrillic.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children 3bb7ccffb0c0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
1 ;; Cyrillic specific utilityes for Mule
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
2 ;; Copyright (C) 1995 Free Software Foundation, Inc.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
3 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
4 ;; This file contains Cyrillic characters (ISO8859-5).
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
5
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
6 ;; Mule is free software distributed in the form of patches to GNU Emacs.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
7 ;; You can redistribute it and/or modify
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
8 ;; it under the terms of the GNU General Public License as published by
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
9 ;; the Free Software Foundation; either version 1, or (at your option)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
10 ;; any later version.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
11
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
12 ;; Mule is distributed in the hope that it will be useful,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
15 ;; GNU General Public License for more details.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
16
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
17 ;; You should have received a copy of the GNU General Public License
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
18 ;; along with GNU Emacs; see the file COPYING. If not, write to the
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
20 ;; Boston, MA 02111-1307, USA.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
21
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
22 ;;; 95.6.21 modified for Mule Ver.2.2.2 by TAKAHASHI N. <ntakahas@etl.go.jp>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
23 ;;; Added Alternativnyj utilities.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
24
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
25 ;;; KOI8 staff
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
26
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
27 (define-ccl-program ccl-read-koi8
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
28 '(((read r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
29 (loop
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
30 (write-read-repeat
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
31 r0
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
32 [0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
33 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
34 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
35 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
36 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
37 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
38 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
39 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
40 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
41 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
42 32 32 32 ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
43 32 32 32 ?,L!(B 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
44 ?,Ln(B ?,LP(B ?,LQ(B ?,Lf(B ?,LT(B ?,LU(B ?,Ld(B ?,LS(B ?,Le(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
45 ?,L_(B ?,Lo(B ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,LV(B ?,LR(B ?,Ll(B ?,Lk(B ?,LW(B ?,Lh(B ?,Lm(B ?,Li(B ?,Lg(B ?,Lj(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
46 ?,LN(B ?,L0(B ?,L1(B ?,LF(B ?,L4(B ?,L5(B ?,LD(B ?,L3(B ?,LE(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
47 ?,L?(B ?,LO(B ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,L6(B ?,L2(B ?,LL(B ?,LK(B ?,L7(B ?,LH(B ?,LM(B ?,LI(B ?,LG(B ?,LJ(B ]))))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
48 "CCL program to read KOI8.")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
49
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
50 (define-ccl-program ccl-write-koi8
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
51 '(((read r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
52 (loop
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
53 (if (r0 != 140) ; lc-crl == 140
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
54 (write-read-repeat r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
55 ((read r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
56 (r0 -= 160)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
57 (write-read-repeat
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
58 r0
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
59 [ 32 179 32 32 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
60 225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
61 242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
62 193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
63 210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
64 32 163 32 32 32 32 32 32 32 32 32 32 32 32 32 32])
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
65 )))))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
66 "CCL program to write KOI8.")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
67
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
68 (make-coding-system
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
69 'koi8 'ccl
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
70 "Coding-system used for KOI8."
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
71 `(decode ,ccl-read-koi8
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
72 encode ,ccl-write-koi8
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
73 mnemonic "KOI8"))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
74
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
75 (define-ccl-program ccl-cyrillic-to-koi8
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
76 '(((r1 -= 160)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
77 (r1 = r1
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
78 [ 32 179 32 32 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
79 225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
80 242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
81 193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
82 210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
83 32 163 32 32 32 32 32 32 32 32 32 32 32 32 32 32])
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
84 ))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
85 "CCL program to convert chars of 'cyrillic to KOI font.")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
86
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
87 (defun set-cyrillic-environment-koi8 ()
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
88 "Make KOI8 the default character set for cyrillic."
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
89 (set-coding-category-system 'iso-8-designate 'koi8)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
90
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
91 (set-coding-priority-list '(iso-8-designate iso-8-1))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
92
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
93 (set-default-file-coding-system 'koi8)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
94 (set-terminal-coding-system 'koi8)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
95
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
96 (setq-default quail-current-package (assoc "yawerty" quail-package-alist))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
97
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
98 (set-charset-ccl-program 'cyrillic ccl-cyrillic-to-koi8)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
99 )
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
100
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
101
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
102 ;;; Alternativnyj staff
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
103
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
104 (define-ccl-program ccl-read-alternativnyj
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
105 '(((read r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
106 (loop
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
107 (write-read-repeat
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
108 r0
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
109 [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
110 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
111 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
112 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
113 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
114 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
115 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
116 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
117 ?,L0(B ?,L1(B ?,L2(B ?,L3(B ?,L4(B ?,L5(B ?,L6(B ?,L7(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B ?,L?(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
118 ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,LD(B ?,LE(B ?,LF(B ?,LG(B ?,LH(B ?,LI(B ?,LJ(B ?,LK(B ?,LL(B ?,LM(B ?,LN(B ?,LO(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
119 ?,LP(B ?,LQ(B ?,LR(B ?,LS(B ?,LT(B ?,LU(B ?,LV(B ?,LW(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B ?,L_(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
120 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
121 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
122 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
123 ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,Ld(B ?,Le(B ?,Lf(B ?,Lg(B ?,Lh(B ?,Li(B ?,Lj(B ?,Lk(B ?,Ll(B ?,Lm(B ?,Ln(B ?,Lo(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
124 ?,L!(B ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 32 32 ?,Lp(B]))))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
125 "CCL program to read Alternativnyj.")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
126
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
127 (define-ccl-program ccl-write-alternativnyj
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
128 '(((read r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
129 (loop
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
130 (if (r0 != 140) ; lc-crl == 140
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
131 (write-read-repeat r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
132 ((read r0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
133 (r0 -= 160)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
134 (write-read-repeat
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
135 r0
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
136 [ 32 240 32 32 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
137 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
138 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
139 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
140 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
141 255 241 32 32 32 32 32 32 32 32 32 32 32 32 32 32])
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
142 )))))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
143 "CCL program to write Alternativnyj.")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
144
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
145 (make-coding-system
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
146 'alternativnyj 'ccl
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
147 "Coding-system used for Alternativnyj."
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
148 `(decode ,ccl-read-alternativnyj
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
149 encode ,ccl-write-alternativnyj
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
150 mnemonic "Alt.ivnyj"))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
151
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
152 (define-ccl-program ccl-cyrillic-to-alternativnyj
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
153 '(((r1 -= 160)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
154 (r1 = r1
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
155 [ 32 240 32 32 32 32 32 32 32 32 32 32 32 32 32 32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
156 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
157 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
158 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
159 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
160 255 241 32 32 32 32 32 32 32 32 32 32 32 32 32 32])
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
161 ))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
162 "CCL program to convert chars of 'cyrillic to Alternativnyj font.")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
163
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
164 (defun set-cyrillic-environment-alternativnyj ()
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
165 "Make Alternativnyj the default character set for cyrillic."
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
166 (set-coding-category-system 'iso-8-designate 'alternativnyj-dos)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
167
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
168 (set-coding-priority-list '(iso-8-designate iso-8-1))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
169
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
170 (set-default-file-coding-system 'alternativnyj-dos)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
171 (set-terminal-coding-system 'alternativnyj-dos)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
172
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
173 (setq-default quail-current-package (assoc "yawerty" quail-package-alist))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
174
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
175 (set-charset-ccl-program 'cyrillic ccl-cyrillic-to-alternativnyj)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
176 )
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
177
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
178 (provide 'cyrillic)