Mercurial > emacs
annotate lisp/language/cyril-util.el @ 97958:dae412744e36
* isearch.el (isearch-highlight-regexp): Fix last change, quoting
non-alphabetical characters properly.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Wed, 03 Sep 2008 00:01:10 +0000 |
parents | 55b7f25d920a |
children | a9dc0e7c3f2b |
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, |
79711 | 4 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
17995 | 5 |
6 ;; Keywords: mule, multilingual, Cyrillic | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17995 | 11 ;; it under the terms of the GNU General Public License as published by |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; (at your option) any later version. |
17995 | 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 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17995 | 22 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
23 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
24 |
17995 | 25 ;;; Code: |
26 | |
46676 | 27 ;; Fixme: are the next two useful? |
28 | |
17995 | 29 ;;;###autoload |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
30 (defun cyrillic-encode-koi8-r-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
31 "Return KOI8-R external character code of CHAR if appropriate." |
88739 | 32 (encode-char char 'koi8-r)) |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
33 |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
34 ;;;###autoload |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
35 (defun cyrillic-encode-alternativnyj-char (char) |
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
36 "Return ALTERNATIVNYJ external character code of CHAR if appropriate." |
88739 | 37 (encode-char char 'alternativnyj)) |
22882
059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
Kenichi Handa <handa@m17n.org>
parents:
20737
diff
changeset
|
38 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
39 |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
40 ;; Display |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
41 |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
42 ;; 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
|
43 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
44 (defvar cyrillic-language-alist |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
45 (list '("Belorussian") '("Bulgarian") '("Macedonian") |
19221
d125603385f7
(cyrillic-language-alist): Fix punctuation.
Richard M. Stallman <rms@gnu.org>
parents:
19204
diff
changeset
|
46 '("Russian") '("Serbo-Croatian") '("Ukrainian")) |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
47 "List of known cyrillic languages.") |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
48 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
49 ;;;###autoload |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
50 (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
|
51 "Display a cyrillic buffer using a transliteration. |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
52 For readability, the table is slightly |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
53 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
|
54 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
55 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
|
56 that affects the choice of transliterations slightly. |
43172
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
57 Possible values are listed in `cyrillic-language-alist'. |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
58 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
|
59 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
|
60 (interactive |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
61 (list |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
62 (let* ((completion-ignore-case t)) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
63 (completing-read |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
64 "Cyrillic language (default nil): " |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
65 cyrillic-language-alist nil t nil nil nil)))) |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
66 |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
67 (or standard-display-table |
2bd381f7e297
(standard-display-cyrillic-translit):
Richard M. Stallman <rms@gnu.org>
parents:
19149
diff
changeset
|
68 (setq standard-display-table (make-display-table))) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
69 |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
70 (if (equal cyrillic-language "") |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
71 (setq cyrillic-language nil)) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
72 |
19072
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
73 (if (null cyrillic-language) |
d02e089cc1dc
(standard-display-cyrillic-translit): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18899
diff
changeset
|
74 (setq standard-display-table (make-display-table)) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
75 (aset standard-display-table ?,LP(B [?a]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
76 (aset standard-display-table ?,LQ(B [?b]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
77 (aset standard-display-table ?,LR(B [?v]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
78 (aset standard-display-table ?,LS(B [?g]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
79 (aset standard-display-table ?,LT(B [?d]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
80 (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
|
81 (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
|
82 (aset standard-display-table ?,LV(B [?z ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
83 (aset standard-display-table ?,LW(B [?z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
84 (aset standard-display-table ?,LX(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
85 (aset standard-display-table ?,LY(B [?j]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
86 (aset standard-display-table ?,LZ(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
87 (aset standard-display-table ?,L[(B [?l]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
88 (aset standard-display-table ?,L\(B [?m]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
89 (aset standard-display-table ?,L](B [?n]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
90 (aset standard-display-table ?,L^(B [?o]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
91 (aset standard-display-table ?,L_(B [?p]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
92 (aset standard-display-table ?,L`(B [?r]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
93 (aset standard-display-table ?,La(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
94 (aset standard-display-table ?,Lb(B [?t]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
95 (aset standard-display-table ?,Lc(B [?u]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
96 (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
|
97 (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
|
98 (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
|
99 (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
|
100 (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
|
101 (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
|
102 (aset standard-display-table ?,Lj(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
103 (aset standard-display-table ?,Lk(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
104 (aset standard-display-table ?,Ll(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
105 (aset standard-display-table ?,Lm(B [?e ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
106 (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
|
107 (aset standard-display-table ?,Lo(B [?y ?a]) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46676
diff
changeset
|
108 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
109 (aset standard-display-table ?,L0(B [?A]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
110 (aset standard-display-table ?,L1(B [?B]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
111 (aset standard-display-table ?,L2(B [?V]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
112 (aset standard-display-table ?,L3(B [?G]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
113 (aset standard-display-table ?,L4(B [?D]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
114 (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
|
115 (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
|
116 (aset standard-display-table ?,L6(B [?Z ?h]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
117 (aset standard-display-table ?,L7(B [?Z]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
118 (aset standard-display-table ?,L8(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
119 (aset standard-display-table ?,L9(B [?J]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
120 (aset standard-display-table ?,L:(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
121 (aset standard-display-table ?,L;(B [?L]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
122 (aset standard-display-table ?,L<(B [?M]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
123 (aset standard-display-table ?,L=(B [?N]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
124 (aset standard-display-table ?,L>(B [?O]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
125 (aset standard-display-table ?,L?(B [?P]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
126 (aset standard-display-table ?,L@(B [?R]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
127 (aset standard-display-table ?,LA(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
128 (aset standard-display-table ?,LB(B [?T]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
129 (aset standard-display-table ?,LC(B [?U]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
130 (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
|
131 (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
|
132 (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
|
133 (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
|
134 (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
|
135 (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
|
136 (aset standard-display-table ?,LJ(B [?~]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
137 (aset standard-display-table ?,LK(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
138 (aset standard-display-table ?,LL(B [?']) |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
139 (aset standard-display-table ?,LM(B [?E ?']) |
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
140 (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
|
141 (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
|
142 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
143 (aset standard-display-table ?,Lt(B [?i ?e]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
144 (aset standard-display-table ?,Lw(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
145 (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
|
146 (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
|
147 (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
|
148 (aset standard-display-table ?,Ls(B [?g ?j]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
149 (aset standard-display-table ?,Lu(B [?s]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
150 (aset standard-display-table ?,L|(B [?k]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
151 (aset standard-display-table ?,Lv(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
152 (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
|
153 (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
|
154 (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
|
155 (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
|
156 |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
157 (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
|
158 (aset standard-display-table ?,L'(B [?Y ?i]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
159 (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
|
160 (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
|
161 (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
|
162 (aset standard-display-table ?,L#(B [?G ?j]) |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
163 (aset standard-display-table ?,L%(B [?S]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
164 (aset standard-display-table ?,L,(B [?K]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
165 (aset standard-display-table ?,L&(B [?I]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
166 (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
|
167 (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
|
168 (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
|
169 (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
|
170 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
171 (when (equal cyrillic-language "Bulgarian") |
49845
35a345af2558
(standard-display-cyrillic-translit): Fix character constants.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
172 (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
|
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 ?,Ln(B [?i ?u]) |
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 ?,Lo(B [?i ?a]) |
89483 | 177 (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
|
178 |
78844af65a1f
(cyrillic-encode-koi8-r-char)
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
179 (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
|
180 ; transliteration table |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
181 (aset standard-display-table ?,LX(B [?y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
182 (aset standard-display-table ?,L8(B [?Y]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
183 (aset standard-display-table ?,LY(B [?i]) |
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
184 (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
|
185 (aset standard-display-table ?,Ln(B [?i ?u]) |
89483 | 186 (aset standard-display-table ?,Lo(B [?i ?a])))) |
17995 | 187 |
18307
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
188 ;; |
fbc8c1765592
Provide cyril-util nstead of language/cyril-util.
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
189 (provide 'cyril-util) |
17995 | 190 |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
191 ;; Local Variables: |
36679
b7b5b611c480
Fix coding: in Local Variables:.
Kenichi Handa <handa@m17n.org>
parents:
28906
diff
changeset
|
192 ;; coding: iso-2022-7bit |
19149
0a0aa1629e83
(cyrillic-language-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19072
diff
changeset
|
193 ;; End: |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36679
diff
changeset
|
194 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
195 ;; 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
|
196 ;;; cyril-util.el ends here |