1 ;;; cyril-util.el --- utilities for Cyrillic scripts
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
5 ;; Keywords: mule, multilingual, Cyrillic
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA.
27 (defun setup-cyrillic-iso-environment ()
28 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users."
30 (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5
31 'cyrillic-iso-8bit
"cyrillic-yawerty"))
34 (defun setup-cyrillic-koi8-environment ()
35 "Setup multilingual environment (MULE) for Cyrillic KOI8 users."
37 (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5
'cyrillic-koi8
41 (defun setup-cyrillic-alternativnyj-environment ()
42 "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users."
44 (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5
45 'cyrillic-alternativnyj
"cyrillic-yawerty")
46 (setq coding-category-raw-text
'cyrillic-alternativnyj
))
51 ;; Written by Valery Alexeev <valery@math.uga.edu>.
53 (defvar cyrillic-language-alist
54 (list '("Belorussian") '("Bulgarian") '("Macedonian")
55 '("Russian") '("Serbo-Croatian") '("Ukrainian"))
56 "*List of known cyrillic languages")
59 (defun standard-display-cyrillic-translit (&optional cyrillic-language
)
60 "Display a cyrillic buffer using a transliteration.
61 For readability, the table is slightly
62 different from the one used for the input method `cyrillic-translit'.
64 The argument is a string which specifies which language you are using;
65 that affects the choice of transliterations slightly.
66 Possible values are listed in 'cyrillic-language-alist'.
67 If the argument is t, we use the default cyrillic transliteration.
68 If the argument is nil, we return the display table to its standard state."
71 (let* ((completion-ignore-case t
))
73 "Cyrillic language (default nil): "
74 cyrillic-language-alist nil t nil nil nil
))))
76 (or standard-display-table
77 (setq standard-display-table
(make-display-table)))
79 (if (equal cyrillic-language
"")
80 (setq cyrillic-language nil
))
82 (if (null cyrillic-language
)
83 (setq standard-display-table
(make-display-table))
84 (aset standard-display-table ?
\e,LP
\e(B [?a
])
85 (aset standard-display-table ?
\e,LQ
\e(B [?b
])
86 (aset standard-display-table ?
\e,LR
\e(B [?v
])
87 (aset standard-display-table ?
\e,LS
\e(B [?g
])
88 (aset standard-display-table ?
\e,LT
\e(B [?d
])
89 (aset standard-display-table ?
\e,LU
\e(B [?e
])
90 (aset standard-display-table ?
\e,Lq
\e(B [?y?o
])
91 (aset standard-display-table ?
\e,LV
\e(B [?z?h
])
92 (aset standard-display-table ?
\e,LW
\e(B [?z
])
93 (aset standard-display-table ?
\e,LX
\e(B [?i
])
94 (aset standard-display-table ?
\e,LY
\e(B [?j
])
95 (aset standard-display-table ?
\e,LZ
\e(B [?k
])
96 (aset standard-display-table ?
\e,L
[\e(B [?l
])
97 (aset standard-display-table ?
\e,L\
\e(B [?m
])
98 (aset standard-display-table ?
\e,L
]\e(B [?n
])
99 (aset standard-display-table ?
\e,L^
\e(B [?o
])
100 (aset standard-display-table ?
\e,L_
\e(B [?p
])
101 (aset standard-display-table ?
\e,L
`\e(B [?r
])
102 (aset standard-display-table ?
\e,La
\e(B [?s
])
103 (aset standard-display-table ?
\e,Lb
\e(B [?t
])
104 (aset standard-display-table ?
\e,Lc
\e(B [?u
])
105 (aset standard-display-table ?
\e,Ld
\e(B [?f
])
106 (aset standard-display-table ?
\e,Le
\e(B [?k?h
])
107 (aset standard-display-table ?
\e,Lf
\e(B [?t?s
])
108 (aset standard-display-table ?
\e,Lg
\e(B [?c?h
])
109 (aset standard-display-table ?
\e,Lh
\e(B [?s?h
])
110 (aset standard-display-table ?
\e,Li
\e(B [?s?c?h
])
111 (aset standard-display-table ?
\e,Lj
\e(B [?~
])
112 (aset standard-display-table ?
\e,Lk
\e(B [?y
])
113 (aset standard-display-table ?
\e,Ll
\e(B [?
'])
114 (aset standard-display-table ?
\e,Lm
\e(B [?e?
'])
115 (aset standard-display-table ?
\e,Ln
\e(B [?y?u
])
116 (aset standard-display-table ?
\e,Lo
\e(B [?y?a
])
118 (aset standard-display-table ?
\e,L0
\e(B [?A
])
119 (aset standard-display-table ?
\e,L1
\e(B [?B
])
120 (aset standard-display-table ?
\e,L2
\e(B [?V
])
121 (aset standard-display-table ?
\e,L3
\e(B [?G
])
122 (aset standard-display-table ?
\e,L4
\e(B [?D
])
123 (aset standard-display-table ?
\e,L5
\e(B [?E
])
124 (aset standard-display-table ?
\e,L
!\e(B [?Y?o
])
125 (aset standard-display-table ?
\e,L6
\e(B [?Z?h
])
126 (aset standard-display-table ?
\e,L7
\e(B [?Z
])
127 (aset standard-display-table ?
\e,L8
\e(B [?I
])
128 (aset standard-display-table ?
\e,L9
\e(B [?J
])
129 (aset standard-display-table ?
\e,L
:\e(B [?K
])
130 (aset standard-display-table ?
\e,L
;\e(B [?L])
131 (aset standard-display-table ?
\e,L
<\e(B [?M
])
132 (aset standard-display-table ?
\e,L
=\e(B [?N
])
133 (aset standard-display-table ?
\e,L
>\e(B [?O
])
134 (aset standard-display-table ?
\e,L?
\e(B [?P
])
135 (aset standard-display-table ?
\e,L
@\e(B [?R
])
136 (aset standard-display-table ?
\e,LA
\e(B [?S
])
137 (aset standard-display-table ?
\e,LB
\e(B [?T
])
138 (aset standard-display-table ?
\e,LC
\e(B [?U
])
139 (aset standard-display-table ?
\e,LD
\e(B [?F
])
140 (aset standard-display-table ?
\e,LE
\e(B [?K?h
])
141 (aset standard-display-table ?
\e,LF
\e(B [?T?s
])
142 (aset standard-display-table ?
\e,LG
\e(B [?C?h
])
143 (aset standard-display-table ?
\e,LH
\e(B [?S?h
])
144 (aset standard-display-table ?
\e,LI
\e(B [?S?c?h
])
145 (aset standard-display-table ?
\e,LJ
\e(B [?~
])
146 (aset standard-display-table ?
\e,LK
\e(B [?Y
])
147 (aset standard-display-table ?
\e,LL
\e(B [?
'])
148 (aset standard-display-table ?
\e,LM
\e(B [?E?
'])
149 (aset standard-display-table ?
\e,LN
\e(B [?Y?u
])
150 (aset standard-display-table ?
\e,LO
\e(B [?Y?a
])
152 (aset standard-display-table ?
\e,Lt
\e(B [?i?e
])
153 (aset standard-display-table ?
\e,Lw
\e(B [?i
])
154 (aset standard-display-table ?
\e,L~
\e(B [?u
])
155 (aset standard-display-table ?
\e,Lr
\e(B [?d?j
])
156 (aset standard-display-table ?
\e,L
{\e(B [?c?h?j
])
157 (aset standard-display-table ?
\e,Ls
\e(B [?g?j
])
158 (aset standard-display-table ?
\e,Lu
\e(B [?s
])
159 (aset standard-display-table ?
\e,L|
\e(B [?k
])
160 (aset standard-display-table ?
\e,Lv
\e(B [?i
])
161 (aset standard-display-table ?
\e,Lx
\e(B [?j
])
162 (aset standard-display-table ?
\e,Ly
\e(B [?l?j
])
163 (aset standard-display-table ?
\e,Lz
\e(B [?n?j
])
164 (aset standard-display-table ?
\e,L
\x7f\e(B [?d?z
])
166 (aset standard-display-table ?
\e,L$
\e(B [?Y?e
])
167 (aset standard-display-table ?
\e,L
'\e(B [?Y?i
])
168 (aset standard-display-table ?
\e,L.
\e(B [?U
])
169 (aset standard-display-table ?
\e,L
"\e(B [?D?j])
170 (aset standard-display-table ?\e,L+\e(B [?C?h?j])
171 (aset standard-display-table ?\e,L#\e(B [?G?j])
172 (aset standard-display-table ?\e,L%\e(B [?S])
173 (aset standard-display-table ?\e,L,\e(B [?K])
174 (aset standard-display-table ?\e,L&\e(B [?I])
175 (aset standard-display-table ?\e,L(\e(B [?J])
176 (aset standard-display-table ?\e,L)\e(B [?L?j])
177 (aset standard-display-table ?\e,L*\e(B [?N?j])
178 (aset standard-display-table ?\e,L/\e(B [?D?j])
180 (when (equal cyrillic-language "Bulgarian
")
181 (aset standard-display-table ?\e,Li\e(B [?s?h?t])
182 (aset standard-display-table ?\e,LI\e(B [?S?h?t])
183 (aset standard-display-table ?\e,Ln\e(B [?i?u])
184 (aset standard-display-table ?\e,LN\e(B [?I?u])
185 (aset standard-display-table ?\e,Lo\e(B [?i?a])
186 (aset standard-display-table ?\e,LO\e(B [?I?a]))
188 (when (equal cyrillic-language "Ukrainian
") ; based on the official
189 ; transliteration table
190 (aset standard-display-table ?\e,LX\e(B [?y])
191 (aset standard-display-table ?\e,L8\e(B [?Y])
192 (aset standard-display-table ?\e,LY\e(B [?i])
193 (aset standard-display-table ?\e,L9\e(B [?Y])
194 (aset standard-display-table ?\e,Ln\e(B [?i?u])
195 (aset standard-display-table ?\e,Lo\e(B [?i?a]))))
199 (provide 'cyril-util)
201 ;;; cyril-util.el ends here
204 ;; buffer-file-coding-system: iso-2022-7bit