Mercurial > emacs
annotate lisp/language/cyril-util.el @ 28678:b132db55ef7e
(struct Lisp_Buffer_Cons): Remove.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 21 Apr 2000 13:00:58 +0000 |
parents | 708271862495 |
children | 60eb71a9f901 |
rev | line source |
---|---|
17995 | 1 ;;; cyril-util.el --- utilities for Cyrillic scripts |
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 | |
24 ;;; Code: | |
25 | |
26 ;;;###autoload | |
19452
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
27 (defun setup-cyrillic-iso-environment () |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
28 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
29 (interactive) |
22987
708271862495
(setup-XXX-environment): Just call set-language-environment. If
Kenichi Handa <handa@m17n.org>
parents:
22882
diff
changeset
|
30 (set-language-environment "Cyrillic-ISO")) |
19452
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
31 |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
32 ;;;###autoload |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
33 (defun setup-cyrillic-koi8-environment () |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
34 "Setup multilingual environment (MULE) for Cyrillic KOI8 users." |
17995 | 35 (interactive) |
22987
708271862495
(setup-XXX-environment): Just call set-language-environment. If
Kenichi Handa <handa@m17n.org>
parents:
22882
diff
changeset
|
36 (set-language-environment "Cyrillic-KOI8")) |
19452
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
37 |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
38 ;;;###autoload |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
39 (defun setup-cyrillic-alternativnyj-environment () |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
40 "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." |
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
41 (interactive) |
22987
708271862495
(setup-XXX-environment): Just call set-language-environment. If
Kenichi Handa <handa@m17n.org>
parents:
22882
diff
changeset
|
42 (set-language-environment "Cyrillic-ALT")) |
19452
9cf9cae37598
(setup-cyrillic-environment): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
19427
diff
changeset
|
43 |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
44 ;;;###autoload |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
45 (defun cyrillic-encode-koi8-r-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
46 "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
|
47 (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
|
48 char)) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
49 |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
50 ;;;###autoload |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
51 (defun cyrillic-encode-alternativnyj-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
52 "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
|
53 (aref (char-table-extra-slot |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
54 cyrillic-alternativnyj-nonascii-translation-table 0) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
55 char)) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
56 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
57 |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
58 ;; Display |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
59 |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
60 ;; 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
|
61 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
62 (defvar cyrillic-language-alist |
19204
c439a8794985
(cyrillic-language-alist): Add one language.
Richard M. Stallman <rms@gnu.org>
parents:
19158
diff
changeset
|
63 (list '("Belorussian") '("Bulgarian") '("Macedonian") |
19221
d125603385f7
(cyrillic-language-alist): Fix punctuation.
Richard M. Stallman <rms@gnu.org>
parents:
19204
diff
changeset
|
64 '("Russian") '("Serbo-Croatian") '("Ukrainian")) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
65 "*List of known cyrillic languages") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
66 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
67 ;;;###autoload |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
68 (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
|
69 "Display a cyrillic buffer using a transliteration. |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
70 For readability, the table is slightly |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
71 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
|
72 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
73 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
|
74 that affects the choice of transliterations slightly. |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
75 Possible values are listed in 'cyrillic-language-alist'. |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
76 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
|
77 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
|
78 (interactive |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
79 (list |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
80 (let* ((completion-ignore-case t)) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
81 (completing-read |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
82 "Cyrillic language (default nil): " |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
83 cyrillic-language-alist nil t nil nil nil)))) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
84 |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
85 (or standard-display-table |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
86 (setq standard-display-table (make-display-table))) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
87 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
88 (if (equal cyrillic-language "") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
89 (setq cyrillic-language nil)) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
90 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
91 (if (null cyrillic-language) |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
92 (setq standard-display-table (make-display-table)) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
93 (aset standard-display-table ?,LP(B [?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
94 (aset standard-display-table ?,LQ(B [?b]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
95 (aset standard-display-table ?,LR(B [?v]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
96 (aset standard-display-table ?,LS(B [?g]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
97 (aset standard-display-table ?,LT(B [?d]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
98 (aset standard-display-table ?,LU(B [?e]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
99 (aset standard-display-table ?,Lq(B [?y?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
100 (aset standard-display-table ?,LV(B [?z?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
101 (aset standard-display-table ?,LW(B [?z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
102 (aset standard-display-table ?,LX(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
103 (aset standard-display-table ?,LY(B [?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
104 (aset standard-display-table ?,LZ(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
105 (aset standard-display-table ?,L[(B [?l]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
106 (aset standard-display-table ?,L\(B [?m]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
107 (aset standard-display-table ?,L](B [?n]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
108 (aset standard-display-table ?,L^(B [?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
109 (aset standard-display-table ?,L_(B [?p]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
110 (aset standard-display-table ?,L`(B [?r]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
111 (aset standard-display-table ?,La(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
112 (aset standard-display-table ?,Lb(B [?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
113 (aset standard-display-table ?,Lc(B [?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
114 (aset standard-display-table ?,Ld(B [?f]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
115 (aset standard-display-table ?,Le(B [?k?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
116 (aset standard-display-table ?,Lf(B [?t?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
117 (aset standard-display-table ?,Lg(B [?c?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
118 (aset standard-display-table ?,Lh(B [?s?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
119 (aset standard-display-table ?,Li(B [?s?c?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
120 (aset standard-display-table ?,Lj(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
121 (aset standard-display-table ?,Lk(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
122 (aset standard-display-table ?,Ll(B [?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
123 (aset standard-display-table ?,Lm(B [?e?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
124 (aset standard-display-table ?,Ln(B [?y?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
125 (aset standard-display-table ?,Lo(B [?y?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
126 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
127 (aset standard-display-table ?,L0(B [?A]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
128 (aset standard-display-table ?,L1(B [?B]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
129 (aset standard-display-table ?,L2(B [?V]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
130 (aset standard-display-table ?,L3(B [?G]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
131 (aset standard-display-table ?,L4(B [?D]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
132 (aset standard-display-table ?,L5(B [?E]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
133 (aset standard-display-table ?,L!(B [?Y?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
134 (aset standard-display-table ?,L6(B [?Z?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
135 (aset standard-display-table ?,L7(B [?Z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
136 (aset standard-display-table ?,L8(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
137 (aset standard-display-table ?,L9(B [?J]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
138 (aset standard-display-table ?,L:(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
139 (aset standard-display-table ?,L;(B [?L]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
140 (aset standard-display-table ?,L<(B [?M]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
141 (aset standard-display-table ?,L=(B [?N]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
142 (aset standard-display-table ?,L>(B [?O]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
143 (aset standard-display-table ?,L?(B [?P]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
144 (aset standard-display-table ?,L@(B [?R]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
145 (aset standard-display-table ?,LA(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
146 (aset standard-display-table ?,LB(B [?T]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
147 (aset standard-display-table ?,LC(B [?U]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
148 (aset standard-display-table ?,LD(B [?F]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
149 (aset standard-display-table ?,LE(B [?K?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
150 (aset standard-display-table ?,LF(B [?T?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
151 (aset standard-display-table ?,LG(B [?C?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
152 (aset standard-display-table ?,LH(B [?S?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
153 (aset standard-display-table ?,LI(B [?S?c?h]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
154 (aset standard-display-table ?,LJ(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
155 (aset standard-display-table ?,LK(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
156 (aset standard-display-table ?,LL(B [?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
157 (aset standard-display-table ?,LM(B [?E?']) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
158 (aset standard-display-table ?,LN(B [?Y?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
159 (aset standard-display-table ?,LO(B [?Y?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
160 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
161 (aset standard-display-table ?,Lt(B [?i?e]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
162 (aset standard-display-table ?,Lw(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
163 (aset standard-display-table ?,L~(B [?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
164 (aset standard-display-table ?,Lr(B [?d?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
165 (aset standard-display-table ?,L{(B [?c?h?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
166 (aset standard-display-table ?,Ls(B [?g?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
167 (aset standard-display-table ?,Lu(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
168 (aset standard-display-table ?,L|(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
169 (aset standard-display-table ?,Lv(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
170 (aset standard-display-table ?,Lx(B [?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
171 (aset standard-display-table ?,Ly(B [?l?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
172 (aset standard-display-table ?,Lz(B [?n?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
173 (aset standard-display-table ?,L(B [?d?z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
174 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
175 (aset standard-display-table ?,L$(B [?Y?e]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
176 (aset standard-display-table ?,L'(B [?Y?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
177 (aset standard-display-table ?,L.(B [?U]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
178 (aset standard-display-table ?,L"(B [?D?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
179 (aset standard-display-table ?,L+(B [?C?h?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
180 (aset standard-display-table ?,L#(B [?G?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
181 (aset standard-display-table ?,L%(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
182 (aset standard-display-table ?,L,(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
183 (aset standard-display-table ?,L&(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
184 (aset standard-display-table ?,L((B [?J]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
185 (aset standard-display-table ?,L)(B [?L?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
186 (aset standard-display-table ?,L*(B [?N?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
187 (aset standard-display-table ?,L/(B [?D?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
188 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
189 (when (equal cyrillic-language "Bulgarian") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
190 (aset standard-display-table ?,Li(B [?s?h?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
191 (aset standard-display-table ?,LI(B [?S?h?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
192 (aset standard-display-table ?,Ln(B [?i?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
193 (aset standard-display-table ?,LN(B [?I?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
194 (aset standard-display-table ?,Lo(B [?i?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
195 (aset standard-display-table ?,LO(B [?I?a])) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
196 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
197 (when (equal cyrillic-language "Ukrainian") ; based on the official |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
198 ; transliteration table |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
199 (aset standard-display-table ?,LX(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
200 (aset standard-display-table ?,L8(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
201 (aset standard-display-table ?,LY(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
202 (aset standard-display-table ?,L9(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
203 (aset standard-display-table ?,Ln(B [?i?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
204 (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
|
205 |
17995 | 206 |
18307
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
207 ;; |
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
208 (provide 'cyril-util) |
17995 | 209 |
210 ;;; cyril-util.el ends here | |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
211 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
212 ;; Local Variables: |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
213 ;; buffer-file-coding-system: iso-2022-7bit |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
214 ;; End: |