Mercurial > emacs
annotate lisp/language/cyril-util.el @ 84033:52ef29977fe9
Move to ../doc/lispref
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 06 Sep 2007 04:14:59 +0000 |
parents | 9355f9b7bbff |
children | b5d3fc1c4afe f55f9811f5d7 |
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 |
74544 | 3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, |
75347 | 4 ;; 2006, 2007 Free Software Foundation, Inc. |
17995 | 5 |
6 ;; Keywords: mule, multilingual, Cyrillic | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
78236
9355f9b7bbff
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
12 ;; the Free Software Foundation; either version 3, or (at your option) |
17995 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64085 | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 ;; Boston, MA 02110-1301, USA. | |
17995 | 24 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
25 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
26 |
17995 | 27 ;;; Code: |
28 | |
46676 | 29 ;; Fixme: are the next two useful? |
30 | |
17995 | 31 ;;;###autoload |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
32 (defun cyrillic-encode-koi8-r-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
33 "Return KOI8-R external character code of CHAR if appropriate." |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
34 (aref (char-table-extra-slot |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
35 (get 'cyrillic-koi8-r-nonascii-translation-table 'translation-table) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
36 0) |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
37 char)) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
38 |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
39 ;;;###autoload |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
40 (defun cyrillic-encode-alternativnyj-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
41 "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
|
42 (aref (char-table-extra-slot |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
43 (get 'cyrillic-alternativnyj-nonascii-translation-table |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
44 'translation-table) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
45 0) |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
46 char)) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
47 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
48 |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
49 ;; Display |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
50 |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
51 ;; 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
|
52 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
53 (defvar cyrillic-language-alist |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
54 (list '("Belorussian") '("Bulgarian") '("Macedonian") |
19221
d125603385f7
(cyrillic-language-alist): Fix punctuation.
Richard M. Stallman <rms@gnu.org>
parents:
19204
diff
changeset
|
55 '("Russian") '("Serbo-Croatian") '("Ukrainian")) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
56 "List of known cyrillic languages.") |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
57 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
58 ;;;###autoload |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
59 (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
|
60 "Display a cyrillic buffer using a transliteration. |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
61 For readability, the table is slightly |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
62 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
|
63 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
64 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
|
65 that affects the choice of transliterations slightly. |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
66 Possible values are listed in `cyrillic-language-alist'. |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
67 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
|
68 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
|
69 (interactive |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
70 (list |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
71 (let* ((completion-ignore-case t)) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
72 (completing-read |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
73 "Cyrillic language (default nil): " |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
74 cyrillic-language-alist nil t nil nil nil)))) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
75 |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
76 (or standard-display-table |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
77 (setq standard-display-table (make-display-table))) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
78 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
79 (if (equal cyrillic-language "") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
80 (setq cyrillic-language nil)) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
81 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
82 (if (null cyrillic-language) |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
83 (setq standard-display-table (make-display-table)) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
84 (aset standard-display-table ?,LP(B [?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
85 (aset standard-display-table ?,LQ(B [?b]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
86 (aset standard-display-table ?,LR(B [?v]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
87 (aset standard-display-table ?,LS(B [?g]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
88 (aset standard-display-table ?,LT(B [?d]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
89 (aset standard-display-table ?,LU(B [?e]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
90 (aset standard-display-table ?,Lq(B [?y ?o]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
91 (aset standard-display-table ?,LV(B [?z ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
92 (aset standard-display-table ?,LW(B [?z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
93 (aset standard-display-table ?,LX(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
94 (aset standard-display-table ?,LY(B [?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
95 (aset standard-display-table ?,LZ(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
96 (aset standard-display-table ?,L[(B [?l]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
97 (aset standard-display-table ?,L\(B [?m]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
98 (aset standard-display-table ?,L](B [?n]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
99 (aset standard-display-table ?,L^(B [?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
100 (aset standard-display-table ?,L_(B [?p]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
101 (aset standard-display-table ?,L`(B [?r]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
102 (aset standard-display-table ?,La(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
103 (aset standard-display-table ?,Lb(B [?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
104 (aset standard-display-table ?,Lc(B [?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
105 (aset standard-display-table ?,Ld(B [?f]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
106 (aset standard-display-table ?,Le(B [?k ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
107 (aset standard-display-table ?,Lf(B [?t ?s]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
108 (aset standard-display-table ?,Lg(B [?c ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
109 (aset standard-display-table ?,Lh(B [?s ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
110 (aset standard-display-table ?,Li(B [?s ?c ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
111 (aset standard-display-table ?,Lj(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
112 (aset standard-display-table ?,Lk(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
113 (aset standard-display-table ?,Ll(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
114 (aset standard-display-table ?,Lm(B [?e ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
115 (aset standard-display-table ?,Ln(B [?y ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
116 (aset standard-display-table ?,Lo(B [?y ?a]) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46676
diff
changeset
|
117 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
118 (aset standard-display-table ?,L0(B [?A]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
119 (aset standard-display-table ?,L1(B [?B]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
120 (aset standard-display-table ?,L2(B [?V]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
121 (aset standard-display-table ?,L3(B [?G]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
122 (aset standard-display-table ?,L4(B [?D]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
123 (aset standard-display-table ?,L5(B [?E]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
124 (aset standard-display-table ?,L!(B [?Y ?o]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
125 (aset standard-display-table ?,L6(B [?Z ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
126 (aset standard-display-table ?,L7(B [?Z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
127 (aset standard-display-table ?,L8(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
128 (aset standard-display-table ?,L9(B [?J]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
129 (aset standard-display-table ?,L:(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
130 (aset standard-display-table ?,L;(B [?L]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
131 (aset standard-display-table ?,L<(B [?M]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
132 (aset standard-display-table ?,L=(B [?N]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
133 (aset standard-display-table ?,L>(B [?O]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
134 (aset standard-display-table ?,L?(B [?P]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
135 (aset standard-display-table ?,L@(B [?R]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
136 (aset standard-display-table ?,LA(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
137 (aset standard-display-table ?,LB(B [?T]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
138 (aset standard-display-table ?,LC(B [?U]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
139 (aset standard-display-table ?,LD(B [?F]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
140 (aset standard-display-table ?,LE(B [?K ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
141 (aset standard-display-table ?,LF(B [?T ?s]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
142 (aset standard-display-table ?,LG(B [?C ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
143 (aset standard-display-table ?,LH(B [?S ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
144 (aset standard-display-table ?,LI(B [?S ?c ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
145 (aset standard-display-table ?,LJ(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
146 (aset standard-display-table ?,LK(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
147 (aset standard-display-table ?,LL(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
148 (aset standard-display-table ?,LM(B [?E ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
149 (aset standard-display-table ?,LN(B [?Y ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
150 (aset standard-display-table ?,LO(B [?Y ?a]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
151 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
152 (aset standard-display-table ?,Lt(B [?i ?e]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
153 (aset standard-display-table ?,Lw(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
154 (aset standard-display-table ?,L~(B [?u]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
155 (aset standard-display-table ?,Lr(B [?d ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
156 (aset standard-display-table ?,L{(B [?c ?h ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
157 (aset standard-display-table ?,Ls(B [?g ?j]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
158 (aset standard-display-table ?,Lu(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
159 (aset standard-display-table ?,L|(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
160 (aset standard-display-table ?,Lv(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
161 (aset standard-display-table ?,Lx(B [?j]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
162 (aset standard-display-table ?,Ly(B [?l ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
163 (aset standard-display-table ?,Lz(B [?n ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
164 (aset standard-display-table ?,L(B [?d ?z]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
165 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
166 (aset standard-display-table ?,L$(B [?Y ?e]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
167 (aset standard-display-table ?,L'(B [?Y ?i]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
168 (aset standard-display-table ?,L.(B [?U]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
169 (aset standard-display-table ?,L"(B [?D ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
170 (aset standard-display-table ?,L+(B [?C ?h ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
171 (aset standard-display-table ?,L#(B [?G ?j]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
172 (aset standard-display-table ?,L%(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
173 (aset standard-display-table ?,L,(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
174 (aset standard-display-table ?,L&(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
175 (aset standard-display-table ?,L((B [?J]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
176 (aset standard-display-table ?,L)(B [?L ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
177 (aset standard-display-table ?,L*(B [?N ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
178 (aset standard-display-table ?,L/(B [?D ?j]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
179 |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
180 ;; Unicode version: |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
181 (aset standard-display-table ?$,1(P(B [?a]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
182 (aset standard-display-table ?$,1(Q(B [?b]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
183 (aset standard-display-table ?$,1(R(B [?v]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
184 (aset standard-display-table ?$,1(S(B [?g]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
185 (aset standard-display-table ?$,1(T(B [?d]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
186 (aset standard-display-table ?$,1(U(B [?e]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
187 (aset standard-display-table ?$,1(q(B [?y ?o]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
188 (aset standard-display-table ?$,1(V(B [?z ?h]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
189 (aset standard-display-table ?$,1(W(B [?z]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
190 (aset standard-display-table ?$,1(X(B [?i]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
191 (aset standard-display-table ?$,1(Y(B [?j]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
192 (aset standard-display-table ?$,1(Z(B [?k]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
193 (aset standard-display-table ?$,1([(B [?l]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
194 (aset standard-display-table ?$,1(\(B [?m]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
195 (aset standard-display-table ?$,1(](B [?n]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
196 (aset standard-display-table ?$,1(^(B [?o]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
197 (aset standard-display-table ?$,1(_(B [?p]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
198 (aset standard-display-table ?$,1(`(B [?r]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
199 (aset standard-display-table ?$,1(a(B [?s]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
200 (aset standard-display-table ?$,1(b(B [?t]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
201 (aset standard-display-table ?$,1(c(B [?u]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
202 (aset standard-display-table ?$,1(d(B [?f]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
203 (aset standard-display-table ?$,1(e(B [?k ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
204 (aset standard-display-table ?$,1(f(B [?t ?s]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
205 (aset standard-display-table ?$,1(g(B [?c ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
206 (aset standard-display-table ?$,1(h(B [?s ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
207 (aset standard-display-table ?$,1(i(B [?s ?c ?h]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
208 (aset standard-display-table ?$,1(j(B [?~]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
209 (aset standard-display-table ?$,1(k(B [?y]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
210 (aset standard-display-table ?$,1(l(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
211 (aset standard-display-table ?$,1(m(B [?e ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
212 (aset standard-display-table ?$,1(n(B [?y ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
213 (aset standard-display-table ?$,1(o(B [?y ?a]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
214 |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
215 (aset standard-display-table ?$,1(0(B [?A]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
216 (aset standard-display-table ?$,1(1(B [?B]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
217 (aset standard-display-table ?$,1(2(B [?V]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
218 (aset standard-display-table ?$,1(3(B [?G]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
219 (aset standard-display-table ?$,1(4(B [?D]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
220 (aset standard-display-table ?$,1(5(B [?E]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
221 (aset standard-display-table ?$,1(!(B [?Y ?o]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
222 (aset standard-display-table ?$,1(6(B [?Z ?h]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
223 (aset standard-display-table ?$,1(7(B [?Z]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
224 (aset standard-display-table ?$,1(8(B [?I]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
225 (aset standard-display-table ?$,1(9(B [?J]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
226 (aset standard-display-table ?$,1(:(B [?K]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
227 (aset standard-display-table ?$,1(;(B [?L]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
228 (aset standard-display-table ?$,1(<(B [?M]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
229 (aset standard-display-table ?$,1(=(B [?N]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
230 (aset standard-display-table ?$,1(>(B [?O]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
231 (aset standard-display-table ?$,1(?(B [?P]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
232 (aset standard-display-table ?$,1(@(B [?R]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
233 (aset standard-display-table ?$,1(A(B [?S]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
234 (aset standard-display-table ?$,1(B(B [?T]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
235 (aset standard-display-table ?$,1(C(B [?U]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
236 (aset standard-display-table ?$,1(D(B [?F]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
237 (aset standard-display-table ?$,1(E(B [?K ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
238 (aset standard-display-table ?$,1(F(B [?T ?s]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
239 (aset standard-display-table ?$,1(G(B [?C ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
240 (aset standard-display-table ?$,1(H(B [?S ?h]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
241 (aset standard-display-table ?$,1(I(B [?S ?c ?h]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
242 (aset standard-display-table ?$,1(J(B [?~]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
243 (aset standard-display-table ?$,1(K(B [?Y]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
244 (aset standard-display-table ?$,1(L(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
245 (aset standard-display-table ?$,1(M(B [?E ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
246 (aset standard-display-table ?$,1(N(B [?Y ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
247 (aset standard-display-table ?$,1(O(B [?Y ?a]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
248 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
249 (aset standard-display-table ?$,1(t(B [?i ?e]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
250 (aset standard-display-table ?$,1(w(B [?i]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
251 (aset standard-display-table ?$,1(~(B [?u]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
252 (aset standard-display-table ?$,1(r(B [?d ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
253 (aset standard-display-table ?$,1({(B [?c ?h ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
254 (aset standard-display-table ?$,1(s(B [?g ?j]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
255 (aset standard-display-table ?$,1(u(B [?s]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
256 (aset standard-display-table ?$,1(|(B [?k]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
257 (aset standard-display-table ?$,1(v(B [?i]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
258 (aset standard-display-table ?$,1(x(B [?j]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
259 (aset standard-display-table ?$,1(y(B [?l ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
260 (aset standard-display-table ?$,1(z(B [?n ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
261 (aset standard-display-table ?$,1((B [?d ?z]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
262 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
263 (aset standard-display-table ?$,1($(B [?Y ?e]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
264 (aset standard-display-table ?$,1('(B [?Y ?i]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
265 (aset standard-display-table ?$,1(.(B [?U]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
266 (aset standard-display-table ?$,1("(B [?D ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
267 (aset standard-display-table ?$,1(+(B [?C ?h ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
268 (aset standard-display-table ?$,1(#(B [?G ?j]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
269 (aset standard-display-table ?$,1(%(B [?S]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
270 (aset standard-display-table ?$,1(,(B [?K]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
271 (aset standard-display-table ?$,1(&(B [?I]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
272 (aset standard-display-table ?$,1(((B [?J]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
273 (aset standard-display-table ?$,1()(B [?L ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
274 (aset standard-display-table ?$,1(*(B [?N ?j]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
275 (aset standard-display-table ?$,1(/(B [?D ?j]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
276 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
277 (when (equal cyrillic-language "Bulgarian") |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
278 (aset standard-display-table ?,Li(B [?s ?h ?t]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
279 (aset standard-display-table ?,LI(B [?S ?h ?t]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
280 (aset standard-display-table ?,Ln(B [?i ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
281 (aset standard-display-table ?,LN(B [?I ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
282 (aset standard-display-table ?,Lo(B [?i ?a]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
283 (aset standard-display-table ?,LO(B [?I ?a]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
284 ;; Unicode version: |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
285 (aset standard-display-table ?$,1(i(B [?s ?h ?t]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
286 (aset standard-display-table ?$,1(I(B [?S ?h ?t]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
287 (aset standard-display-table ?$,1(n(B [?i ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
288 (aset standard-display-table ?$,1(N(B [?I ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
289 (aset standard-display-table ?$,1(o(B [?i ?a]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
290 (aset standard-display-table ?$,1(O(B [?I ?a])) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
291 |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
292 (when (equal cyrillic-language "Ukrainian") ; based on the official |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
293 ; transliteration table |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
294 (aset standard-display-table ?,LX(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
295 (aset standard-display-table ?,L8(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
296 (aset standard-display-table ?,LY(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
297 (aset standard-display-table ?,L9(B [?Y]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
298 (aset standard-display-table ?,Ln(B [?i ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
299 (aset standard-display-table ?,Lo(B [?i ?a]) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
300 ;; Unicode version: |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
301 (aset standard-display-table ?$,1(X(B [?y]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
302 (aset standard-display-table ?$,1(8(B [?Y]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
303 (aset standard-display-table ?$,1(Y(B [?i]) |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
304 (aset standard-display-table ?$,1(9(B [?Y]) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
305 (aset standard-display-table ?$,1(n(B [?i ?u]) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
306 (aset standard-display-table ?$,1(o(B [?i ?a])))) |
17995 | 307 |
18307
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
308 ;; |
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
309 (provide 'cyril-util) |
17995 | 310 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
311 ;; Local Variables: |
36679
b7b5b611c480
Fix coding: in Local Variables:.
Kenichi Handa <handa@m17n.org>
parents:
28906
diff
changeset
|
312 ;; coding: iso-2022-7bit |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
313 ;; End: |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
314 |
52401 | 315 ;;; arch-tag: f6d9dd5d-685c-45d6-a5d8-1e2178228b7e |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
316 ;;; cyril-util.el ends here |