Mercurial > emacs
annotate lisp/language/cyril-util.el @ 89708:b66b529d5f33
(x_set_mouse_face_gc): Call FACE_FOR_CHAR with POS and OBJECT args.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 15 Jan 2004 06:57:45 +0000 |
parents | 2f877ed80fa6 |
children | 68c22ea6027c |
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 |
88739 | 3 ;; Copyright (C) 1997, 2001, 2002 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 | |
88739 | 28 ;; Fixme: are the next two useful? |
29 | |
17995 | 30 ;;;###autoload |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
31 (defun cyrillic-encode-koi8-r-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
32 "Return KOI8-R external character code of CHAR if appropriate." |
88739 | 33 (encode-char char 'koi8-r)) |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
34 |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
35 ;;;###autoload |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
36 (defun cyrillic-encode-alternativnyj-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
37 "Return ALTERNATIVNYJ external character code of CHAR if appropriate." |
88739 | 38 (encode-char char 'alternativnyj)) |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
39 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
40 |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
41 ;; Display |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
42 |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
43 ;; 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
|
44 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
45 (defvar cyrillic-language-alist |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
46 (list '("Belorussian") '("Bulgarian") '("Macedonian") |
19221
d125603385f7
(cyrillic-language-alist): Fix punctuation.
Richard M. Stallman <rms@gnu.org>
parents:
19204
diff
changeset
|
47 '("Russian") '("Serbo-Croatian") '("Ukrainian")) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
48 "List of known cyrillic languages.") |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
49 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
50 ;;;###autoload |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
51 (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
|
52 "Display a cyrillic buffer using a transliteration. |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
53 For readability, the table is slightly |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
54 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
|
55 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
56 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
|
57 that affects the choice of transliterations slightly. |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
58 Possible values are listed in `cyrillic-language-alist'. |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
59 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
|
60 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
|
61 (interactive |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
62 (list |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
63 (let* ((completion-ignore-case t)) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
64 (completing-read |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
65 "Cyrillic language (default nil): " |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
66 cyrillic-language-alist nil t nil nil nil)))) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
67 |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
68 (or standard-display-table |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
69 (setq standard-display-table (make-display-table))) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
70 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
71 (if (equal cyrillic-language "") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
72 (setq cyrillic-language nil)) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
73 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
74 (if (null cyrillic-language) |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
75 (setq standard-display-table (make-display-table)) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
76 (aset standard-display-table ?,LP(B [?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
77 (aset standard-display-table ?,LQ(B [?b]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
78 (aset standard-display-table ?,LR(B [?v]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
79 (aset standard-display-table ?,LS(B [?g]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
80 (aset standard-display-table ?,LT(B [?d]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
81 (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
|
82 (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
|
83 (aset standard-display-table ?,LV(B [?z ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
84 (aset standard-display-table ?,LW(B [?z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
85 (aset standard-display-table ?,LX(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
86 (aset standard-display-table ?,LY(B [?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
87 (aset standard-display-table ?,LZ(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
88 (aset standard-display-table ?,L[(B [?l]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
89 (aset standard-display-table ?,L\(B [?m]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
90 (aset standard-display-table ?,L](B [?n]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
91 (aset standard-display-table ?,L^(B [?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
92 (aset standard-display-table ?,L_(B [?p]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
93 (aset standard-display-table ?,L`(B [?r]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
94 (aset standard-display-table ?,La(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
95 (aset standard-display-table ?,Lb(B [?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
96 (aset standard-display-table ?,Lc(B [?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
97 (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
|
98 (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
|
99 (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
|
100 (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
|
101 (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
|
102 (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
|
103 (aset standard-display-table ?,Lj(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
104 (aset standard-display-table ?,Lk(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
105 (aset standard-display-table ?,Ll(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
106 (aset standard-display-table ?,Lm(B [?e ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
107 (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
|
108 (aset standard-display-table ?,Lo(B [?y ?a]) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46676
diff
changeset
|
109 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
110 (aset standard-display-table ?,L0(B [?A]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
111 (aset standard-display-table ?,L1(B [?B]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
112 (aset standard-display-table ?,L2(B [?V]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
113 (aset standard-display-table ?,L3(B [?G]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
114 (aset standard-display-table ?,L4(B [?D]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
115 (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
|
116 (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
|
117 (aset standard-display-table ?,L6(B [?Z ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
118 (aset standard-display-table ?,L7(B [?Z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
119 (aset standard-display-table ?,L8(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
120 (aset standard-display-table ?,L9(B [?J]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
121 (aset standard-display-table ?,L:(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
122 (aset standard-display-table ?,L;(B [?L]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
123 (aset standard-display-table ?,L<(B [?M]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
124 (aset standard-display-table ?,L=(B [?N]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
125 (aset standard-display-table ?,L>(B [?O]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
126 (aset standard-display-table ?,L?(B [?P]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
127 (aset standard-display-table ?,L@(B [?R]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
128 (aset standard-display-table ?,LA(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
129 (aset standard-display-table ?,LB(B [?T]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
130 (aset standard-display-table ?,LC(B [?U]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
131 (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
|
132 (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
|
133 (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
|
134 (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
|
135 (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
|
136 (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
|
137 (aset standard-display-table ?,LJ(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
138 (aset standard-display-table ?,LK(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
139 (aset standard-display-table ?,LL(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
140 (aset standard-display-table ?,LM(B [?E ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
141 (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
|
142 (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
|
143 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
144 (aset standard-display-table ?,Lt(B [?i ?e]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
145 (aset standard-display-table ?,Lw(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
146 (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
|
147 (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
|
148 (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
|
149 (aset standard-display-table ?,Ls(B [?g ?j]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
150 (aset standard-display-table ?,Lu(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
151 (aset standard-display-table ?,L|(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
152 (aset standard-display-table ?,Lv(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
153 (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
|
154 (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
|
155 (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
|
156 (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
|
157 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
158 (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
|
159 (aset standard-display-table ?,L'(B [?Y ?i]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
160 (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
|
161 (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
|
162 (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
|
163 (aset standard-display-table ?,L#(B [?G ?j]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
164 (aset standard-display-table ?,L%(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
165 (aset standard-display-table ?,L,(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
166 (aset standard-display-table ?,L&(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
167 (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
|
168 (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
|
169 (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
|
170 (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
|
171 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
172 (when (equal cyrillic-language "Bulgarian") |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
173 (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
|
174 (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
|
175 (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
|
176 (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
|
177 (aset standard-display-table ?,Lo(B [?i ?a]) |
89483 | 178 (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
|
179 |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
180 (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
|
181 ; transliteration table |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
182 (aset standard-display-table ?,LX(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
183 (aset standard-display-table ?,L8(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
184 (aset standard-display-table ?,LY(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
185 (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
|
186 (aset standard-display-table ?,Ln(B [?i ?u]) |
89483 | 187 (aset standard-display-table ?,Lo(B [?i ?a])))) |
17995 | 188 |
18307
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
189 ;; |
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
190 (provide 'cyril-util) |
17995 | 191 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
192 ;; Local Variables: |
36679
b7b5b611c480
Fix coding: in Local Variables:.
Kenichi Handa <handa@m17n.org>
parents:
28906
diff
changeset
|
193 ;; coding: iso-2022-7bit |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
194 ;; End: |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
195 |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
196 ;;; cyril-util.el ends here |