Mercurial > emacs
annotate lisp/language/cyril-util.el @ 40484:2e6c799155b3
(text-mode-map): Remove the \t binding.
(text-mode): Simplify now that the default is more favorable.
(paragraph-indent-text-mode): Fix last change.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 30 Oct 2001 06:00:10 +0000 |
parents | 67b464da13ec |
children | 78844af65a1f |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
1 ;;; cyril-util.el --- utilities for Cyrillic scripts |
17995 | 2 |
19158
93f27c9d0c60
Fix copyright holder name.
Richard M. Stallman <rms@gnu.org>
parents:
19156
diff
changeset
|
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. |
17995 | 4 |
5 ;; Keywords: mule, multilingual, Cyrillic | |
6 | |
7 ;; This file is part of GNU Emacs. | |
8 | |
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) | |
12 ;; any later version. | |
13 | |
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. | |
18 | |
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. | |
23 | |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
24 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
25 |
17995 | 26 ;;; Code: |
27 | |
28 ;;;###autoload | |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
29 (defun cyrillic-encode-koi8-r-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
30 "Return KOI8-R external character code of CHAR if appropriate." |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
31 (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
32 char)) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
33 |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
34 ;;;###autoload |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
35 (defun cyrillic-encode-alternativnyj-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
36 "Return ALTERNATIVNYJ external character code of CHAR if appropriate." |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
37 (aref (char-table-extra-slot |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
38 cyrillic-alternativnyj-nonascii-translation-table 0) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
39 char)) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
40 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
41 |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
42 ;; Display |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
43 |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
44 ;; Written by Valery Alexeev <valery@math.uga.edu>. |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
45 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
46 (defvar cyrillic-language-alist |
19204
c439a8794985
(cyrillic-language-alist): Add one language.
Richard M. Stallman <rms@gnu.org>
parents:
19158
diff
changeset
|
47 (list '("Belorussian") '("Bulgarian") '("Macedonian") |
19221
d125603385f7
(cyrillic-language-alist): Fix punctuation.
Richard M. Stallman <rms@gnu.org>
parents:
19204
diff
changeset
|
48 '("Russian") '("Serbo-Croatian") '("Ukrainian")) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
49 "*List of known cyrillic languages") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
50 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
51 ;;;###autoload |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
52 (defun standard-display-cyrillic-translit (&optional cyrillic-language) |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
53 "Display a cyrillic buffer using a transliteration. |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
54 For readability, the table is slightly |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
55 different from the one used for the input method `cyrillic-translit'. |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
56 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
57 The argument is a string which specifies which language you are using; |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
58 that affects the choice of transliterations slightly. |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
59 Possible values are listed in 'cyrillic-language-alist'. |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
60 If the argument is t, we use the default cyrillic transliteration. |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
61 If the argument is nil, we return the display table to its standard state." |
19156
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
62 (interactive |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
63 (list |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
64 (let* ((completion-ignore-case t)) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
65 (completing-read |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
66 "Cyrillic language (default nil): " |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
67 cyrillic-language-alist nil t nil nil nil)))) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
68 |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
69 (or standard-display-table |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
70 (setq standard-display-table (make-display-table))) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
71 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
72 (if (equal cyrillic-language "") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
73 (setq cyrillic-language nil)) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
74 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
75 (if (null cyrillic-language) |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
76 (setq standard-display-table (make-display-table)) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
77 (aset standard-display-table ?,LP(B [?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
78 (aset standard-display-table ?,LQ(B [?b]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
79 (aset standard-display-table ?,LR(B [?v]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
80 (aset standard-display-table ?,LS(B [?g]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
81 (aset standard-display-table ?,LT(B [?d]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
82 (aset standard-display-table ?,LU(B [?e]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
83 (aset standard-display-table ?,Lq(B [?y?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
84 (aset standard-display-table ?,LV(B [?z?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
85 (aset standard-display-table ?,LW(B [?z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
86 (aset standard-display-table ?,LX(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
87 (aset standard-display-table ?,LY(B [?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
88 (aset standard-display-table ?,LZ(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
89 (aset standard-display-table ?,L[(B [?l]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
90 (aset standard-display-table ?,L\(B [?m]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
91 (aset standard-display-table ?,L](B [?n]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
92 (aset standard-display-table ?,L^(B [?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
93 (aset standard-display-table ?,L_(B [?p]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
94 (aset standard-display-table ?,L`(B [?r]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
95 (aset standard-display-table ?,La(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
96 (aset standard-display-table ?,Lb(B [?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
97 (aset standard-display-table ?,Lc(B [?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
98 (aset standard-display-table ?,Ld(B [?f]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
99 (aset standard-display-table ?,Le(B [?k?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
100 (aset standard-display-table ?,Lf(B [?t?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
101 (aset standard-display-table ?,Lg(B [?c?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
102 (aset standard-display-table ?,Lh(B [?s?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
103 (aset standard-display-table ?,Li(B [?s?c?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
104 (aset standard-display-table ?,Lj(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
105 (aset standard-display-table ?,Lk(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
106 (aset standard-display-table ?,Ll(B [?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
107 (aset standard-display-table ?,Lm(B [?e?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
108 (aset standard-display-table ?,Ln(B [?y?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
109 (aset standard-display-table ?,Lo(B [?y?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
110 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
111 (aset standard-display-table ?,L0(B [?A]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
112 (aset standard-display-table ?,L1(B [?B]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
113 (aset standard-display-table ?,L2(B [?V]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
114 (aset standard-display-table ?,L3(B [?G]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
115 (aset standard-display-table ?,L4(B [?D]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
116 (aset standard-display-table ?,L5(B [?E]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
117 (aset standard-display-table ?,L!(B [?Y?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
118 (aset standard-display-table ?,L6(B [?Z?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
119 (aset standard-display-table ?,L7(B [?Z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
120 (aset standard-display-table ?,L8(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
121 (aset standard-display-table ?,L9(B [?J]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
122 (aset standard-display-table ?,L:(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
123 (aset standard-display-table ?,L;(B [?L]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
124 (aset standard-display-table ?,L<(B [?M]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
125 (aset standard-display-table ?,L=(B [?N]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
126 (aset standard-display-table ?,L>(B [?O]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
127 (aset standard-display-table ?,L?(B [?P]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
128 (aset standard-display-table ?,L@(B [?R]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
129 (aset standard-display-table ?,LA(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
130 (aset standard-display-table ?,LB(B [?T]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
131 (aset standard-display-table ?,LC(B [?U]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
132 (aset standard-display-table ?,LD(B [?F]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
133 (aset standard-display-table ?,LE(B [?K?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
134 (aset standard-display-table ?,LF(B [?T?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
135 (aset standard-display-table ?,LG(B [?C?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
136 (aset standard-display-table ?,LH(B [?S?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
137 (aset standard-display-table ?,LI(B [?S?c?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
138 (aset standard-display-table ?,LJ(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
139 (aset standard-display-table ?,LK(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
140 (aset standard-display-table ?,LL(B [?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
141 (aset standard-display-table ?,LM(B [?E?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
142 (aset standard-display-table ?,LN(B [?Y?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
143 (aset standard-display-table ?,LO(B [?Y?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
144 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
145 (aset standard-display-table ?,Lt(B [?i?e]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
146 (aset standard-display-table ?,Lw(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
147 (aset standard-display-table ?,L~(B [?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
148 (aset standard-display-table ?,Lr(B [?d?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
149 (aset standard-display-table ?,L{(B [?c?h?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
150 (aset standard-display-table ?,Ls(B [?g?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
151 (aset standard-display-table ?,Lu(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
152 (aset standard-display-table ?,L|(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
153 (aset standard-display-table ?,Lv(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
154 (aset standard-display-table ?,Lx(B [?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
155 (aset standard-display-table ?,Ly(B [?l?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
156 (aset standard-display-table ?,Lz(B [?n?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
157 (aset standard-display-table ?,L(B [?d?z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
158 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
159 (aset standard-display-table ?,L$(B [?Y?e]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
160 (aset standard-display-table ?,L'(B [?Y?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
161 (aset standard-display-table ?,L.(B [?U]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
162 (aset standard-display-table ?,L"(B [?D?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
163 (aset standard-display-table ?,L+(B [?C?h?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
164 (aset standard-display-table ?,L#(B [?G?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
165 (aset standard-display-table ?,L%(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
166 (aset standard-display-table ?,L,(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
167 (aset standard-display-table ?,L&(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
168 (aset standard-display-table ?,L((B [?J]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
169 (aset standard-display-table ?,L)(B [?L?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
170 (aset standard-display-table ?,L*(B [?N?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
171 (aset standard-display-table ?,L/(B [?D?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
172 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
173 (when (equal cyrillic-language "Bulgarian") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
174 (aset standard-display-table ?,Li(B [?s?h?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
175 (aset standard-display-table ?,LI(B [?S?h?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
176 (aset standard-display-table ?,Ln(B [?i?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
177 (aset standard-display-table ?,LN(B [?I?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
178 (aset standard-display-table ?,Lo(B [?i?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
179 (aset standard-display-table ?,LO(B [?I?a])) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
180 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
181 (when (equal cyrillic-language "Ukrainian") ; based on the official |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
182 ; transliteration table |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
183 (aset standard-display-table ?,LX(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
184 (aset standard-display-table ?,L8(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
185 (aset standard-display-table ?,LY(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
186 (aset standard-display-table ?,L9(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
187 (aset standard-display-table ?,Ln(B [?i?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
188 (aset standard-display-table ?,Lo(B [?i?a])))) |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
189 |
17995 | 190 |
18307
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
191 ;; |
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
192 (provide 'cyril-util) |
17995 | 193 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
194 ;; Local Variables: |
36679
b7b5b611c480
Fix coding: in Local Variables:.
Kenichi Handa <handa@m17n.org>
parents:
28906
diff
changeset
|
195 ;; coding: iso-2022-7bit |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
196 ;; End: |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
197 |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
198 ;;; cyril-util.el ends here |