Mercurial > emacs
annotate lisp/term/internal.el @ 90645:7eeafaaa9eab
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 476-489)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 153-160)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-127
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 30 Oct 2006 08:54:41 +0000 |
parents | c5406394f567 |
children | 95d0cdf160ea |
rev | line source |
---|---|
47726
33d53d287ee4
Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents:
42300
diff
changeset
|
1 ;;; internal.el --- support for PC internal terminal -*- coding: raw-text; no-byte-compile: t -*- |
5444 | 2 |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 1998, 1999, 2001, 2002, 2003, 2004, |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64701
diff
changeset
|
4 ;; 2005, 2006 Free Software Foundation, Inc. |
5444 | 5 |
6 ;; Author: Morten Welinder <terra@diku.dk> | |
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 | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
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 | |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64084 | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 ;; Boston, MA 02110-1301, USA. | |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
24 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37969
diff
changeset
|
25 ;;; Commentary: |
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37969
diff
changeset
|
26 |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
27 ;;; Code: |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
28 |
5444 | 29 ;; --------------------------------------------------------------------------- |
30 ;; keyboard setup -- that's simple! | |
31 (set-input-mode nil nil 0) | |
32 (define-key function-key-map [backspace] "\177") ; Normal behaviour for BS | |
33 (define-key function-key-map [delete] "\C-d") ; ... and Delete | |
34 (define-key function-key-map [tab] [?\t]) | |
35 (define-key function-key-map [linefeed] [?\n]) | |
36 (define-key function-key-map [clear] [11]) | |
37 (define-key function-key-map [return] [13]) | |
38 (define-key function-key-map [escape] [?\e]) | |
39 (define-key function-key-map [M-backspace] [?\M-\d]) | |
34571 | 40 (define-key function-key-map [M-delete] [?\M-d]) |
5444 | 41 (define-key function-key-map [M-tab] [?\M-\t]) |
42 (define-key function-key-map [M-linefeed] [?\M-\n]) | |
43 (define-key function-key-map [M-clear] [?\M-\013]) | |
44 (define-key function-key-map [M-return] [?\M-\015]) | |
45 (define-key function-key-map [M-escape] [?\M-\e]) | |
46 (put 'backspace 'ascii-character 127) | |
47 (put 'delete 'ascii-character 127) | |
48 (put 'tab 'ascii-character ?\t) | |
49 (put 'linefeed 'ascii-character ?\n) | |
50 (put 'clear 'ascii-character 12) | |
51 (put 'return 'ascii-character 13) | |
52 (put 'escape 'ascii-character ?\e) | |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
53 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
54 ;; ---------------------------------------------------------------------- |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
55 ;; DOS display setup |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
56 ;; ================= |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
57 ;; |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
58 ;; DOS can only support a single font. On most systems (with the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
59 ;; possible exception of Far Eastern DOS versions), this means that |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
60 ;; two character sets are available at any given time: the ASCII |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
61 ;; charset, and a single national charset, usually mapped to codes |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
62 ;; above 128 (i.e., with 8th bit set). Which national charset is |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
63 ;; supported depends on the codepage loaded by the system when it |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
64 ;; boots; usually, this codepage cannot be changed without |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
65 ;; rebooting. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
66 ;; |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
67 ;; Since each codepage can usually display character of a single |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
68 ;; MULE charset, Emacs can display a single MULE charset with the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
69 ;; glyphs of the current codepage. The mapping from DOS codepages |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
70 ;; to MULE charsets is established by the charset property of the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
71 ;; cpNNN-decode-table variables in codepage.el, which also |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
72 ;; defines translation tables for each such pair, and a bunch of |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
73 ;; functions to generate coding systems that use those translation |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
74 ;; tables to convert codepage-encoded text to the appropriate MULE |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
75 ;; charset and back. When Emacs starts on DOS, it automatically |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
76 ;; sets its default coding systems for file I/O and terminal output |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
77 ;; according to the currend DOS codepage, given by the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
78 ;; `dos-codepage' variable. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
79 ;; |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
80 ;; This leaves us with the problem of displaying character sets |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
81 ;; other than the one which maps directly into the current codepage. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
82 ;; The following functions and variables handle this nuisance by |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
83 ;; defining a display table where each character that doesn't have a |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
84 ;; glyph in some codepage is mapped to a string which represents it. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
85 ;; For example, a small c with cedilla is mapped to the string |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
86 ;; "{,c}" (the braces serve as a sign that this is a single |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
87 ;; character). A nice feature of the display tables is that Emacs |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
88 ;; knows that the string represents a single character, and thus |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
89 ;; cursor motion works as you'd expect: a single `C-f' moves past |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
90 ;; the entire string which represents a single character. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
91 ;; ---------------------------------------------------------------------- |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
92 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
93 (defvar IT-character-translations |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
94 '( |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
95 (latin-iso8859-1 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
96 . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
97 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
98 "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
99 "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
28837 | 100 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
101 "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" |
28837 | 102 "\"U" "Y'" "-P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
103 "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
28837 | 104 "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" |
105 "u'" "u^" "\"u" "y'" "-p" "\"y"] | |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
106 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
107 (latin-iso8859-2 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
108 . [255 "A;" "'(" "/L" "$$" "L<" "S'" "SE" "\"" "S<" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
109 ",S" "T<" "Z'" "--" "Z<" "Z^." "^o" "a;" "';" "/l" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
110 "'" "l<" "s'" "'<" "'," "s<" ",s" "t<" "z'" "'" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
111 "z<" "z^." "R'" "A'" "A^" "A(" "\"A" "L'" "C'" ",C" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
112 "C<" "E'" "E;" "E:" "E<" "I'" "I^" "D<" "/D" "N'" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
113 "N<" "O'" "O^" "O''" "\"O" "*x" "R<" "U^0" "U'" "U''" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
114 "\"U" "Y'" ",T" "ss" "r'" "a'" "a^" "a(" "\"a" "l'" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
115 "c'" ",c" "c<" "e'" "e;" "\"e" "e<" "i'" "i^" "d<" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
116 "/d" "n'" "n<" "o'" "o^" "o''" "\"o" "-:" "r<" "u^0" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
117 "u'" "u''" "\"u" "y'" ",t" "'."] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
118 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
119 (latin-iso8859-3 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
120 . [255 "/H" "'(" "Pd" "$$" " " "H^" "SE" "\"" "I^." |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
121 ",S" "G(" "J^" "--" " " "Z^." "^o" "/h" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
122 "'" "u" "h^" "." "'," "i^." ",s" "g(" "j^" "1/2" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
123 " " "z^." "`A" "A'" "A^" " " "\"A" "C^." "C^" ",C" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
124 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" " " "~N" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
125 "`O" "O'" "O^" "G^." "\"O" "*x" "G^" "`U" "U'" "U^" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
126 "\"U" "U(" "S^" "ss" "`a" "a'" "a^" " " "\"a" "c^." |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
127 "c^" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
128 " " "~n" "`o" "o'" "o^" "g^." "\"o" "-:" "g^" "`u" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
129 "u'" "u^" "\"u" "u(" "s^" "^."] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
130 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
131 (latin-iso8859-4 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
132 . [255 "A;" "kk" ",R" "$$" "?I" ",L" "SE" "\"" "S<" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
133 "E-" ",G" "/T" "--" "Z<" "'-" "^o" "a;" "';" ",r" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
134 "'" "~i" ",l" "'<" "'," "s<" "e-" ",g" "/t" "NG" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
135 "z<" "ng" "A-" "A'" "A^" "~A" "\"A" "Ao" "AE" "I;" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
136 "C<" "E'" "E;" "\"E" "E^." "I'" "I^" "I-" "/D" ",N" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
137 "O-" ",K" "O^" "~O" "\"O" "*x" "/O" "U;" "U'" "U^" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
138 "\"U" "~U" "U-" "ss" "a-" "a'" "a^" "~a" "\"a" "ao" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
139 "ae" "i;" "c<" "e'" "e;" "\"e" "e^." "i'" "i^" "i-" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
140 "/d" ",n" "o-" ",k" "o^" "~o" "\"o" "-:" "/o" "u;" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
141 "u'" "u^" "\"u" "~u" "u-" "^."] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
142 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
143 (cyrillic-iso8859-5 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
144 . [255 "\"E" "Dj" "Gj" "IE" "Dz" "Ii" "Ji" "JE" "Lj" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
145 "Nj" "Ts" "Kj" 240 "V%" "Dzh" 65 "B=" 66 226 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
146 68 69 "Z%" 51 85 "J=" 75 "L=" 77 72 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
147 79 "P=" 80 67 84 89 232 88 "C=" "C%" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
148 "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "Yu" "Ya" 97 98 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
149 "v=" "g=" 103 101 "z%" "z=" 117 "j=" 107 "l=" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
150 "m=" "n=" 111 110 112 99 "t=" 121 "f=" 120 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
151 "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "yu" "ya" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
152 "N0" "\"e" "dj" "gj" "ie" "dz" "ii" "ji" "je" "lj" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
153 "nj" "ts" "kj" 21 "v%" "dzh"] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
154 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
155 (arabic-iso8859-6 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
156 . [255 nil nil nil "$$" nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
157 nil nil ",+" "--" nil nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
158 nil nil nil nil nil nil nil ";+" nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
159 nil "?+" nil "H'" "aM" "aH" "wH" "ah" "yH" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
160 "a+" "b+" "tm" "t+" "tk" "g+" "hk" "x+" "d+" "dk" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
161 "r+" "z+" "s+" "sn" "c+" "dd" "tj" "zH" "e+" "i+" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
162 nil nil nil nil nil "++" "f+" "q+" "k+" "l+" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
163 "m+" "n+" "h+" "w+" "j+" "y+" ":+" "\"+" "=+" "/+" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
164 "'+" "1+" "3+" "0+" nil nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
165 nil nil nil nil nil nil nil] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
166 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
167 (greek-iso8859-7 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
168 . [255 "9'" "'9" "Pd" nil nil "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
169 nil "<<" "~" "--" nil "-M" "^o" "+-" "^2" "^3" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
170 "'" "'%" "'A" "^." "'E" "'H" "'I" ">>" "'O" "1/2" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
171 "'Y" "W%" "i3" 65 66 "G*" "D*" 69 90 72 |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
172 "TH" 73 74 "L*" 77 78 "C*" 79 "P*" 80 |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
173 nil "S*" 84 89 "F*" 88 "Q*" "W*" "\"I" "\"Y" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
174 "a%" "e%" "y%" "i%" "u3" "a*" "b*" "g*" "d*" "e*" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
175 "z*" "y*" "h*" "i*" 107 "l*" "m*" "n*" "c*" 111 |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
176 "p*" "r*" "*s" "s*" "t*" 117 "f*" "x*" "q*" "w*" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
177 "\"i" "\"u" "'o" "'u" "'w" nil] |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
178 ) |
38947
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
179 ;; Note: some of the characters undefined according to ISO 8859-8 |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
180 ;; in the ranges 190..220 and 250..255 are replaced with SI 1311-1 |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
181 ;; points (Niqud) and bidi formatting characters |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
182 (hebrew-iso8859-8 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
183 . [255 nil "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
184 "*x" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
185 "'" "u" ".P" "^." "'," "^1" "-:" ">>" "1/4" "1/2" |
38947
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
186 "3/4" nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'" |
41884
a336dd383ca1
(IT-character-translations): Add entries for more points.
Eli Zaretskii <eliz@gnu.org>
parents:
40717
diff
changeset
|
187 "-," "`." nil "\\." "(.)" "|'" "`-" "`=" "||" nil |
38947
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
188 nil "::" nil nil nil nil nil nil nil "LRO" |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
189 "RLO" "PDF" nil "=2" "A+" "B+" "G+" "D+" "H+" "W+" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
190 "Z+" "X+" "Tj" "J+" "K%" "K+" "L+" "M%" "M+" "N%" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
191 "N+" "S+" "E+" "P%" "P+" "Zj" "ZJ" "Q+" "R+" "Sh" |
38947
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
192 "T+" "LRE" "RLE" "LRM" "RLM" nil] |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
193 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
194 (latin-iso8859-9 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
195 . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
196 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
197 "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
198 "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
199 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "G(" "~N" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
200 "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
201 "\"U" "I^." ",S" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
202 "ae" ",c" "`e" "e'" "e<" "\"e" "e^." "i'" "i^" "i-" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
203 "g(" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
204 "u'" "u^" "\"u" "i." ",s" "\"y"] |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
205 ) |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
206 (latin-iso8859-14 |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
207 . [255 "B`" "b`" "Pd" "C`" "c`" "D`" "SE" "`W" "(c)" |
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
208 "W'" "d`" "`Y" "--" "(R)" "\"Y" "F`" "f`" "G`" "g`" |
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
209 "M`" "m`" ".P" "P`" "`w" "p`" "w'" "S`" "`y" "\"W" |
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
210 "\"w" "s`" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
211 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "W^" "~N" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
212 "`O" "O'" "O^" "~O" "\"O" "T`" "/O" "`U" "U'" "U^" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
213 "\"U" "Y'" "Y^" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
214 "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
215 "w^" "~n" "`o" "o'" "o^" "~o" "\"o" "t`" "/o" "`u" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
216 "u'" "u^" "\"u" "y'" "y^" "\"y"] |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
217 ) |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
218 (latin-iso8859-15 |
28837 | 219 . [255 "!I" "|c" "Pd" "E=" "Ye" "S<" "SE" "s<" "(c)" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
220 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
221 "Z<" "u" ".P" "^." "z<" "^1" "_o" ">>" "OE" "oe" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
222 "\"Y" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
28837 | 223 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
224 "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
225 "\"U" "Y'" "|P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
226 "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
28837 | 227 "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
228 "u'" "u^" "\"u" "y'" "|p" "\"y"] |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
229 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
230 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
231 "An alist of MULE ISO-8859 character sets and the strings that |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
232 should be used to represent the characters from each set on a DOS |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
233 terminal which does not have corresponding glyphs built into the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
234 installed codepage.") |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
235 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
236 (defun IT-display-table-setup (codepage &optional table) |
24845
87e4cdfac07b
(IT-display-table-setup): Do not remap \222 to
Eli Zaretskii <eliz@gnu.org>
parents:
24563
diff
changeset
|
237 "Set up display table TABLE for a DOS terminal which supports |
87e4cdfac07b
(IT-display-table-setup): Do not remap \222 to
Eli Zaretskii <eliz@gnu.org>
parents:
24563
diff
changeset
|
238 glyphs built into the codepage CODEPAGE. |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
239 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
240 If TABLE is nil or omitted, `standard-display-table' is used." |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
241 (let* ((surrogates IT-character-translations) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
242 (disp-tab (or table standard-display-table)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
243 (built-in-set (cp-charset-for-codepage codepage)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
244 (offset (cp-offset-for-codepage codepage)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
245 (cp-decoder |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
246 (symbol-value (intern-soft (format "%s-decode-table" codepage)))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
247 (cp-decoder-len (length cp-decoder)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
248 (c offset) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
249 association chset) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
250 ;; Undo the effects of previous call (where they may have used |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
251 ;; a different codepage) by reverting the display table for the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
252 ;; built-in charset to its pristine shape. |
26515
9f3d02d7daa8
term/internal.el (IT-display-table-setup): Don't overstep
Eli Zaretskii <eliz@gnu.org>
parents:
24845
diff
changeset
|
253 (while (< c 256) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
254 (aset disp-tab (make-char built-in-set c) nil) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
255 (setq c (1+ c))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
256 (while surrogates |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
257 (setq association (car surrogates)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
258 (setq chset (car association)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
259 (let* ((vector (cdr association)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
260 (veclen (length vector)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
261 (i 0) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
262 glyph) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
263 (while (< i veclen) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
264 (setq glyph (aref vector i)) |
38947
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
265 (or glyph (setq glyph dos-unsupported-char-glyph)) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
266 (if (or (not (equal chset built-in-set)) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
267 (>= i cp-decoder-len) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
268 (null (aref cp-decoder i))) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
269 (aset disp-tab (make-char chset (+ i (logand offset 127))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
270 (vconcat |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
271 (if (numberp glyph) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
272 (char-to-string glyph) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
273 (if (> (length glyph) 1) (concat "{" glyph "}") |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
274 glyph))))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
275 (setq i (1+ i)))) |
24845
87e4cdfac07b
(IT-display-table-setup): Do not remap \222 to
Eli Zaretskii <eliz@gnu.org>
parents:
24563
diff
changeset
|
276 (setq surrogates (cdr surrogates))))) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
277 |
37969
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
278 (defvar IT-unicode-translations |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
279 '( |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
280 (mule-unicode-0100-24ff ; charset |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
281 256 ; base |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
282 256 563 ; first, last |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
283 [ "A-" "a-" "A(" "a(" "A;" "a;" "C'" "c'" "C>" "c>" ; Latin Extended-A |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
284 "C." "c." "C<" "c<" "D<" "d<" "D/" "d/" "E-" "e-" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
285 "E(" "e(" "E." "e." "E;" "e;" "E<" "e<" "G>" "g>" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
286 "G(" "g(" "G." "g." "G," "g," "H>" "h>" "H/" "h/" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
287 "I~" "i~" "I-" "i-" "I(" "i(" "I;" "i;" "I." "i." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
288 "IJ" "ij" "J>" "j>" "K," "k," "kk" "L'" "l'" "L," |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
289 "l," "L<" "l<" "L." "l." "L/" "l/" "N'" "n'" "N," |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
290 "n," "N<" "n<" "'n" "NG" "ng" "O-" "o-" "O(" "o(" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
291 "O\"" "o\"" "OE" "oe" "R'" "r'" "R," "r," "R<" "r<" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
292 "S'" "s'" "S>" "s>" "S," "s," "S<" "s<" "T," "t," |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
293 "T<" "t<" "T/" "t/" "U~" "u~" "U-" "u-" "U(" "u(" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
294 "U0" "u0" "U\"" "u\"" "U;" "u;" "W>" "w>" "Y>" "y>" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
295 "Y:" "Z'" "z'" "Z." "z." "Z<" "z<" "s1" ; 017f |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
296 "b/" "B2" "=B" "=b" "B6" "b6" "!C" "C2" "c2" "-D" ;Lat. Extended-B |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
297 "D2" "=D" "=d" "!d" "!E" "-E" "Eps" "F2" "f2" "G2" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
298 "V0" "hv" "io" "-I" "K2" "k2" "-l" "la-" "!M" "2N" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
299 "n_" "-O" "O9" "o9" "OI" "oi" "P2" "p2" "'R" "!S" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
300 "!s" "Esh" "!esh" "t~" "T2" "t2" "T~" "U9" "u9" "Ups" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
301 "V2" "Y2" "y2" "Z/" "z/" "ED" "!ED" "!ed" "ed;" "2/" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
302 "5-" "_5-" "ts" "wn" "|_" "||" "|=" "!_" "DZ<" "Dz<" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
303 "dz<" "LJ3" "Lj3" "lj3" "NJ3" "Nj3" "nj3" "A<" "a<" "I<" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
304 "i<" "O<" "o<" "U<" "u<" "U:-" "u:-" "U:'" "u:'" "U:<" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
305 "u:<" "U:!" "u:!" "e1" "A:-" "a:-" "A.-" "a.-" "AE-" "ae-" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
306 "G/" "g/" "G<" "g<" "K<" "k<" "O;" "o;" "O1" "o1" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
307 "EZ" "ez" "j<" "DZ3" "Dz3" "dz3" "G'" "g'" "Hv" "Wn" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
308 "N`" "n`" "AA'" "aa'" "AE'" "ae'" "O/'" "o/'" "A!!" "a!!" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
309 "A)" "a)" "E!!" "e!!" "E)" "e)" "I!!" "i!!" "I)" "i)" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
310 "O!!" "o!!" "O)" "o)" "R!!" "r!!" "R)" "r)" "U!!" "u!!" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
311 "U)" "u)" ",S" ",s" ",T" ",t" "'3" "'3_" "H<" "h<" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
312 nil nil "8" "8_" "Z2" "z2" "A." "a." "E," "e," |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
313 "O:-" "o:-" "O~-" "o~-" "O." "o." "O.-" "o.-" "Y-" "y-"] ; 0x233 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
314 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
315 ) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
316 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
317 (mule-unicode-0100-24ff ; charset |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
318 256 ; base |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
319 884 1123 ; first, last |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
320 [ "'" "," nil nil nil nil "j3" nil nil nil ; Greek |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
321 "?;" nil nil nil nil nil "'*" "'%" "A%" ".*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
322 "E%" "Y%" "I%" nil "O%" nil "U%" "W%" "i3" "A*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
323 "B*" "G*" "D*" "E*" "Z*" "H*" "Th*" "I*" "K*" "L*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
324 "M*" "N*" "C*" "O*" "P*" "R*" nil "S*" "T*" "U*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
325 "F*" "X*" "Q*" "W*" "J*" "V*" "a%" "e%" "y%" "i%" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
326 "u3" "a*" "b*" "g*" "d*" "e*" "z*" "h*" "th*" "i*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
327 "k*" "l*" "m*" "n*" "c*" "o*" "p*" "r*" "*s" "s*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
328 "t*" "u*" "f*" "x*" "q*" "w*" "j*" "v*" "o%" "u%" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
329 "w%" nil "b3" "th%" "U2*" "'U2*" "U:2*" "ph*" "pi*" "ka*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
330 nil nil "Sti" "sti" "Dig" "dig" "Kop" "kop" "Sam" "sam" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
331 "She" "she" "Fei" "fei" "Khe" "khe" "Hor" "hor" "Gan" "gan" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
332 "Shi" "shi" "Dei" "dei" "ka*" "rh*" "ls*" "yo*" nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
333 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
334 "IE'" "E:" "D%" "G%" "IE" "DS" "II" "YI" "J%" "LJ" ; Cyrillic |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
335 "NJ" "Ts" "KJ" "`I=" "V%" "DZ" 65 "B=" 66 "G=" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
336 68 69 "Z%" 51 85 "J=" 75 "L=" 77 72 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
337 79 "P=" 80 67 84 89 "F=" 88 "C=" "C%" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
338 "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "JU" "JA" 97 "b=" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
339 98 "g=" 103 101 "z%" "z=" 117 "j=" 107 "l=" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
340 109 "n=" 111 "p=" 112 99 "t=" 121 "f=" 120 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
341 "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "ju" "ja" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
342 "ie'" "e:" "d%" "g%" "ie" "ds" "ii" "yi" "j%" "lj" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
343 "nj" "ts" "kj" "v%" "`i=" "dz" "OM=" "om=" "Y3" "y3"] ; 0x463 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
344 ) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
345 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
346 (mule-unicode-0100-24ff ; charset |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
347 256 ; base |
38947
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
348 1454 1645 ; first, last |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
349 [ nil nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'" |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
350 "-," "`." nil "\\." "(.)" "|'" "`-" nil "||" nil |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
351 nil "::" nil nil nil nil nil nil nil nil |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
352 nil nil nil nil |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
353 "A+" "B+" "G+" "D+" "H+" "W+" "Z+" "X+" "Tj" "J+" ; Hebrew |
37969
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
354 "K%" "K+" "L+" "M%" "M+" "N%" "N+" "S+" "E+" "P%" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
355 "P+" "Zj" "ZJ" "Q+" "R+" "Sh" "T+" nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
356 nil nil "WW+" "WJ+" "JJ+" "'+" "\"+" nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
357 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
358 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
359 ",+" nil nil nil nil nil nil nil nil nil ; Arabic |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
360 nil nil nil nil nil ";+" nil nil nil "?+" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
361 nil "H'" "aM" "aH" "wH" "ah" "yH" "a+" "b+" "tm" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
362 "t+" "tk" "g+" "hk" "x+" "d+" "dk" "r+" "z+" "s+" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
363 "sn" "c+" "dd" "tj" "zH" "e+" "i+" nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
364 nil nil "++" "f+" "q+" "k+" "l+" "m+" "n+" "h+" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
365 "w+" "j+" "y+" ":+" "\"+" "=+" "/+" "'+" "1+" "3+" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
366 "0+" nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
367 nil nil nil nil "0a" "1a" "2a" "3a" "4a" "5a" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
368 "6a" "7a" "8a" "9a" "a%" "a." "a," "a*" ] |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
369 ) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
370 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
371 (mule-unicode-0100-24ff ; charset |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
372 256 ; base |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
373 7680 9450 ; first, last |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
374 [ "A-0" "a-0" "B." "b." "B-." "b-." "B_" "b_" "C,'" "c,'" ; Lat Ext Add |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
375 "D." "d." "D-." "d-." "D_" "d_" "D," "d," "D->" "d->" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
376 "E-!" "e-!" "E-'" "e-'" "E->" "e->" "E-?" "e-?" "E,(" "e,(" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
377 "F." "f." "G-" "g-" "H." "h." "H-." "h-." "H:" "h:" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
378 "H," "h," "H-(" "h-(" "I-?" "i-?" "I:'" "i:'" "K'" "k'" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
379 "K-." "k-." "K_" "k_" "L-." "l-." "_L-." "_l-." "L_" "l_" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
380 "L->" "l->" "M'" "m'" "M." "m." "M-." "m-." "N." "n." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
381 "N-." "n-." "N_" "n_" "N->" "n->" "O?'" "o?'" "O?:" "o?:" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
382 "O-!" "o-!" "O-'" "o-'" "P'" "p'" "P." "p." "R." "r." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
383 "R-." "r-." "_R-." "_r-." "R_" "r_" "S." "s." "S-." "s-." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
384 "S'." "s'." "S<." "s<." ".S-." ".s-." "T." "t." "T-." "t-." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
385 "T_" "t_" "T->" "t->" "U_:" "u_:" "U-?" "u-?" "U->" "u->" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
386 "U?'" "u?'" "U-:" "u-:" "V?" "v?" "V-." "v-." "W!" "w!" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
387 "W'" "w'" "W:" "w:" "W." "w." "W-." "w-." "X." "x." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
388 "X:" "x:" "Y." "y." "Z>" "z>" "Z-." "z-." "Z_" "z_" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
389 "h_" "t:" "w0" "y0" "a))" "s1." nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
390 "A-." "a-." "A2" "a2" "A>'" "a>'" "A>!" "a>!" "A>2" "a>2" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
391 "A>~" "a>~" ".A>" ".a>" "A('" "a('" "A(!" "a(!" "A(2" "a(2" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
392 "A(~" "a(~" ".A(" ".a(" "E-." "e-." "E2" "e2" "E~" "e~" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
393 "E>'" "e>'" "E>!" "e>!" "E>2" "e>2" "E>~" "e>~" ".E>" ".e>" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
394 "I2" "i2" "I-." "i-." "O-." "o-." "O2" "o2" "O>'" "o>'" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
395 "O>!" "o>!" "O>2" "o>2" "O>~" "o>~" ".O>" ".o>" "O9'" "o9'" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
396 "O9!" "o9!" "O92" "o92" "O9~" "o9~" ".O9" ".o9" "U-." "u-." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
397 "U2" "u2" "U9'" "u9'" "U9!" "u9!" "U92" "u92" "U9~" "u9~" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
398 ".U9" ".u9" "Y!" "y!" "Y-." "y-." "Y2" "y2" "Y~" "y~" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
399 nil nil nil nil nil nil "a*," "a*;" nil nil ; Greek Ext (0x1f00) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
400 nil nil nil nil "A*," "A*;" nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
401 nil nil "e*," "e*;" nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
402 "E*," "E*;" nil nil nil nil nil nil "y*," "y*;" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
403 nil nil nil nil nil nil "Y*," "Y*;" nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
404 nil nil nil nil "i*," "i*;" nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
405 nil nil "I*," "I*;" nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
406 "o*," "o*;" nil nil nil nil nil nil "O*," "O*;" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
407 nil nil nil nil nil nil "u*," "u*;" nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
408 nil nil nil nil nil "U*;" nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
409 nil nil "w*," "w*;" nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
410 "W*," "W*;" nil nil nil nil nil nil "a*!" "a*'" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
411 "e*!" "e*'" "y*!" "y*'" "i*!" "i*'" "o*!" "o*'" "u*!" "u*'" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
412 "w*!" "w*'" nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
413 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
414 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
415 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
416 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
417 nil nil "a*(" "a*-" nil "a*j" nil nil "a*~" nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
418 "A*(" "A*-" "A*!" "A*'" "A*J" ")*" "J3" ",," "?*" "?:" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
419 nil "y*j" nil nil "y*?" nil "E*!" "E*'" "Y*!" "Y*'" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
420 "Y*J" ",!" ",'" "?," "i*(" "i*-" nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
421 "i*?" nil "I*(" "I*-" "I*!" "I*'" nil ";!" ";'" "?;" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
422 "u*(" "u*-" nil nil "r*," "r*;" "u*?" nil "U*(" "U*-" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
423 "U*!" "U*'" "R*;" "!:" ":'" "!*" nil nil nil "w*j" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
424 nil nil "w*?" nil "O*!" "O*'" "W*!" "W*'" "W*J" "/*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
425 ";;" nil nil nil "1N" "1M" "3M" "4M" "6M" nil ; Gen Punct |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
426 nil "1T" "1H" nil nil nil "LRM" "RLM" "-1" nil |
38534
87e8d03a2dab
(IT-unicode-translations): Fix the appearance of "6`".
Eli Zaretskii <eliz@gnu.org>
parents:
38436
diff
changeset
|
427 nil "--" "---" "===" "!2" "=2" "6`" "'9" ".9" "9'" |
37969
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
428 "``" "''" ":9" "9``" "/-" "/=" "sb" "3b" nil ".." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
429 "..." ".-" "LSep" "PSep" "LR[" "RL[" "PDF" "LRO" "RLO" 255 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
430 "%o" "%oo" "'" "''" "\"'" "`" "``" "```" ".^" "<," |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
431 ",>" ":X" "!!" "?!" "'-" nil nil nil nil "-b" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
432 "/f" nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
433 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
434 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
435 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
436 nil nil nil nil "^0" nil nil nil "^4" "^5" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
437 "^6" "^7" "^8" "^9" "^+" "^-" "^=" "^(" "^)" "^n" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
438 "_0" "_1" "_2" "_3" "_4" "_5" "_6" "_7" "_8" "_9" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
439 "_+" "_-" "_=" "_(" "_)" nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
440 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
441 nil nil nil nil nil "Ff" "Li" nil nil "Pt" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
442 nil "W=" "NIS" nil "E=" nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
443 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
444 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
445 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
446 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
447 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
448 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
449 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
450 nil nil nil nil nil nil nil nil "a/c" "a/s" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
451 nil "oC" nil "c/o" "c/u" "=e" nil "oF" nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
452 nil nil "-h" "=h" nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
453 "N0" "PO" nil nil nil nil "Re" nil "Rx" nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
454 "SM" "TEL" "TM" nil nil nil "Om" nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
455 "oK" "AO" nil nil "Est" nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
456 nil "Aleph" "Bet" "Gimel" "Dalet" "=i=" nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
457 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
458 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
459 nil "1/3" "2/3" "1/5" "2/5" "3/5" "4/5" "1/6" "5/6" "1/8" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
460 "3/8" "5/8" "7/8" "1/" ".I" "II" "III" "IV" ".V" "VI" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
461 "VII" "VIII" "IX" "X" "XI" "XII" ".L" ".C" ".D" ".M" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
462 ".i" "ii" "iii" "iv" ".v" "vi" "vii" "viii" "ix" ".x" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
463 "xi" ".l" ".c" ".d" ".m" "CD" "DD" "CoD" "CI" nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
464 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
465 nil "<-" "|^" "->" "|v" "<->" "v|^" "^\\" "/^" "\\v" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
466 "v/" "<-/" "/->" "<~" "~>" "<<-" "|^^" "->>" "|vv" "<-<" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
467 ">->" "<-|" "_|^" "|->" "-|v" "_v|^" "<-?" "?->" "<-o" "o->" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
468 "<~>" "<-/>" nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
469 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
470 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
471 nil nil nil "<=/" "<=/>" "/=>" "<=" "||^" "=>" "||v" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
472 "<=>" "v||^" "^\\\\" "//^" "\\\\v" "v//" "<-=" "=->" nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
473 nil nil "<.." ":^" "..>" ":v" nil nil "<::" "::^" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
474 "::>" "::v" nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
475 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
476 nil nil nil nil "FA" "C." "dP" "TE" "~TE" "/0" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
477 "DE" "NB" "(-" "~(-" "e-" "-)" "~-)" "-e" "QED" "*P" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
478 nil "+Z" "--" "-+" ".+" "./" ".\\" "*-" "Ob" "Sb" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
479 "SQR" "CBR" nil "0(" "00" "-L" "-V" nil nil ".|" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
480 "~.|" "||" "/||" "AND" "OR" "(U" ")U" "In" "DI" nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
481 "Io" nil nil nil nil nil ".:" ":." ":R" "::" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
482 ".-." "-:" ":-:" ":~:" "?~" "~?" "??" nil nil "/~" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
483 "-~" "~-" "/~-" "~=" "~/=" "/~=" "~~" "/~~" nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
484 "=?" ")(" "v^" "^_" ".=" "=;" ".=." nil ":=" "=:" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
485 nil "=o" "=)" "=^" "=v" "*=" "=<>" "=df" nil "?=" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
486 "!=" "-=" "!-=" "==" "=<" ">=" nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
487 "<<" ">>" "()" "/)(" "!<" "!>" nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
488 nil nil nil nil nil nil "<'" "`>" "=<'" "`>=" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
489 "~<'" "`>~" "/<'" "/`>" "(C" ")C" "/(C" "/)C" "(_" ")_" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
490 "/(_" "/)_" nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
491 nil nil nil "0+" "0-" "0x" "0/" "0." "0o" "0*" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
492 "0=" "0_" nil nil nil nil "|T" "T|" "-T" "_T" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
493 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
494 nil nil nil nil nil nil nil nil nil "-,-" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
495 nil "XOR" "NAND" "NOR" nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
496 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
497 nil nil nil nil nil nil nil nil "<." ".>" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
498 "<<<" ">>>" nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
499 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
500 nil nil ":3" "..." nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
501 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
502 nil nil "Eh" nil nil nil nil nil "<7" ">7" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
503 "7<" "7>" nil nil nil nil "~I" nil "(A" nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
504 nil "TR" nil "=||" "88" nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
505 nil nil "Iu" "Il" nil nil "-^-" "-`-" "D->" nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
506 nil "</" "/>" "<-D" nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
507 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
508 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
509 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
510 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
511 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
512 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
513 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
514 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
515 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
516 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
517 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
518 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
519 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
520 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
521 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
522 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
523 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
524 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
525 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
526 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
527 nil nil nil nil nil nil "NUL" "SOH" "STX" "ETX" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
528 "EOT" "ENQ" "ACK" "BEL" "BS" "HT" "LF" "VT" "FF" "CR" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
529 "SS" "SI" "DLE" "DC1" "DC2" "DC3" "DC4" "NAK" "SYN" "ETB" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
530 "CAN" "EM" "SUB" "ESC" "FS" "GS" "RS" "US" "SP" "DEL" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
531 "b/" ",_," "NL" nil "?^" nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
532 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
533 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
534 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
535 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
536 nil nil nil nil nil nil nil nil nil nil |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
537 nil nil "1-o" "2-o" "3-o" "4-o" "5-o" "6-o" "7-o" "8-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
538 "9-o" "10-o" "11-o" "12-o" "13-o" "14-o" "15-o" "16-o" "17-o" "18-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
539 "19-o" "20-o" "(1)" "(2)" "(3)" "(4)" "(5)" "(6)" "(7)" "(8)" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
540 "(9)" "(10)" "(11)" "(12)" "(13)" "(14)" "(15)" "(16)" "(17)" "(18)" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
541 "(19)" "(20)" "1." "2." "3." "4." "5." "6." "7." "8." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
542 "9." "10." "11." "12." "13." "14." "15." "16." "17." "18." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
543 "19." "20." "(a)" "(b)" "(c)" "(d)" "(e)" "(f)" "(g)" "(h)" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
544 "(i)" "(j)" "(k)" "(l)" "(m)" "(n)" "(o)" "(p)" "(q)" "(r)" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
545 "(s)" "(t)" "(u)" "(v)" "(w)" "(x)" "(y)" "(z)" "A-o" "B-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
546 "C-o" "D-o" "E-o" "F-o" "G-o" "H-o" "I-o" "J-o" "K-o" "L-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
547 "M-o" "N-o" "O-o" "P-o" "Q-o" "R-o" "S-o" "T-o" "U-o" "V-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
548 "W-o" "X-o" "Y-o" "Z-o" "a-o" "b-o" "c-o" "d-o" "e-o" "f-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
549 "g-o" "h-o" "i-o" "j-o" "k-o" "l-o" "m-o" "n-o" "o-o" "p-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
550 "q-o" "r-o" "s-o" "t-o" "u-o" "v-o" "w-o" "x-o" "y-o" "z-o" |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
551 "0-o" ] |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
552 ) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
553 ) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
554 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
555 "A list of mule-unicode-* character sets and the strings that |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
556 should be used to represent the characters from each set on a DOS |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
557 terminal which does not have corresponding glyphs built into the |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
558 installed codepage.") |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
559 |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
560 (defun IT-setup-unicode-display (&optional table) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
561 "Set up display table TABLE for displaying mule-unicode-* characters |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
562 on a DOS terminal. If TABLE is nil or omitted, `standard-display-table' |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
563 is used." |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
564 (interactive) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
565 (let ((disp-tab (or table standard-display-table)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
566 (tail IT-unicode-translations) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
567 translation) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
568 (while tail |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
569 (setq translation (car tail) tail (cdr tail)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
570 (let* ((chset (car translation)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
571 (base (nth 1 translation)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
572 (first (nth 2 translation)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
573 (last (nth 3 translation)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
574 (table (nth 4 translation)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
575 (i 0) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
576 (this (- first base)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
577 glyph) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
578 (while (<= i (- last first)) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
579 (setq glyph (aref table i)) |
38947
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
580 (or glyph (setq glyph dos-unsupported-char-glyph)) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
581 (aset disp-tab (make-char chset |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
582 (+ (/ this 96) 32) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
583 (+ (% this 96) 32)) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
584 (vconcat |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
585 (if (numberp glyph) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
586 (char-to-string glyph) |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
587 (if (> (length glyph) 1) (concat "{" glyph "}") |
0d25e59f6139
(IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents:
38534
diff
changeset
|
588 glyph)))) |
37969
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
589 (setq i (1+ i) this (1+ this))))))) |
7f7b1c4d1e67
(IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
590 |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
591 (defun dos-cpNNN-setup (codepage) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
592 "Set up the MULE environment using the DOS codepage CODEPAGE. |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
593 |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
594 This function creates the coding system cpNNN (where NNN is the value |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
595 of the argument CODEPAGE), and then uses this coding system to set up |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
596 display tables, and the language environment options as appropriate." |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
597 (let* ((cp (format "cp%s" codepage)) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
598 (charset (cp-charset-for-codepage cp)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
599 (offset (cp-offset-for-codepage cp))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
600 (cp-make-coding-systems-for-codepage cp charset offset) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
601 ;; This is done by set-language-environment. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
602 ;;(setq nonascii-translation-table |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
603 ;; (symbol-value (intern (concat cp "-nonascii-translation-table")))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
604 (set-language-environment (cp-language-for-codepage cp)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
605 (set-default-coding-systems (intern (concat cp "-dos"))) |
24261
3183582345f0
(dos-codepage-setup): Set selection coding system to cpNNN-dos.
Eli Zaretskii <eliz@gnu.org>
parents:
24162
diff
changeset
|
606 (set-selection-coding-system (intern (concat cp "-dos"))) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
607 (set-terminal-coding-system |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
608 (setq default-terminal-coding-system (intern (concat cp |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
609 "-unix")))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
610 (IT-display-table-setup cp) |
42300
be77d8bfb8ed
(dos-cpNNN-setup, dos-codepage-setup):
Eli Zaretskii <eliz@gnu.org>
parents:
41884
diff
changeset
|
611 ;; It's time: too many input methods in leim/quail produce |
be77d8bfb8ed
(dos-cpNNN-setup, dos-codepage-setup):
Eli Zaretskii <eliz@gnu.org>
parents:
41884
diff
changeset
|
612 ;; Unicode characters. Let the user see them. |
be77d8bfb8ed
(dos-cpNNN-setup, dos-codepage-setup):
Eli Zaretskii <eliz@gnu.org>
parents:
41884
diff
changeset
|
613 (IT-setup-unicode-display) |
24162
93161ca8b2e5
(dos-codepage-setup): Call prefer-coding-system
Eli Zaretskii <eliz@gnu.org>
parents:
23918
diff
changeset
|
614 (prefer-coding-system (intern (concat cp "-dos"))) |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
615 (if default-enable-multibyte-characters |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
616 ;; We want this in multibyte version only, since unibyte version |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
617 ;; should not convert non-ASCII characters at all. |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
618 (setq unibyte-display-via-language-environment t) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
619 ;; Let the unibyte version behave as Emacs 19 did. In particular, |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
620 ;; let it use and display native codepage-specific glyphs for |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
621 ;; non-ASCII characters. For this to work correctly, we need to |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
622 ;; establish the correspondence between lower-case letters and their |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
623 ;; upper-case brethren, as appropriate for the codepage in use. The |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
624 ;; code below makes this happen. |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
625 ;; (In the multibyte mode, the appropriate tables are prepared |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
626 ;; elsewhere, since multibyte Emacs uses normal MULE character sets, |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
627 ;; which are supported on all platforms.) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
628 (let* ((i 128) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
629 (modify (function |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47726
diff
changeset
|
630 (lambda (ch sy) |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
631 (modify-syntax-entry ch sy text-mode-syntax-table) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
632 (if (boundp 'tex-mode-syntax-table) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
633 (modify-syntax-entry ch sy tex-mode-syntax-table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
634 (modify-syntax-entry ch sy (standard-syntax-table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
635 ))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
636 (table (standard-case-table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
637 ;; The following are strings of letters, first lower then |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
638 ;; upper case. This will look funny on terminals which |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
639 ;; display other code pages. In particular, what is |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
640 ;; displayed as blanks or triangles are not what they |
30537
31765e95b970
Fix a typo in a comment. Reported by Michel de Ruiter <Michel@smr.nl>.
Eli Zaretskii <eliz@gnu.org>
parents:
28920
diff
changeset
|
641 ;; look like at all! (Use `C-x =' to see what they |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
642 ;; really are.) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
643 (chars |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
644 (cond |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
645 ((= codepage 850) |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
646 "ķ ·ÆĮ ĩŌÓÔØŨÞĄÖâãĒāęĢéëYėíĄIĢéĪĨÐŅįč") |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
647 ((= codepage 865) |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
648 "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ") |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
649 ;; default is 437 |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
650 (t "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ")))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
651 |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
652 (while (< i 256) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
653 (funcall modify i "_") |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
654 (setq i (1+ i))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
655 |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
656 (setq i 0) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
657 (while (< i (length chars)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
658 (let ((ch1 (aref chars i)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
659 (ch2 (aref chars (1+ i)))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
660 (if (> ch2 127) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
661 (set-case-syntax-pair ch2 ch1 table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
662 (setq i (+ i 2)))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
663 (save-excursion |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
664 (mapcar (lambda (b) (set-buffer b) (set-case-table table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
665 (buffer-list))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
666 (set-standard-case-table table))) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
667 ;; Some codepages have sporadic support for Latin-1, Greek, and |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
668 ;; symbol glyphs, which don't belong to their native character |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
669 ;; set. It's a nuisance to have all those glyphs here, for all |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
670 ;; the codepages (for starters, I don't even have references for |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
671 ;; all the codepages). So I provide a hook for those who want to |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
672 ;; squeeze every bit of support out of their terminal/font. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
673 (run-hooks 'dos-codepage-setup-hook) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
674 )) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
675 |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
676 (defvar cjk-codepages-alist |
28807
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
677 '((932 "Japanese" japanese-shift-jis) |
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
678 (950 "Chinese-BIG5" cn-big5) |
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
679 (936 "Chinese-GB" cn-gb-2312) |
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
680 (949 "Korean" euc-kr)) |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
681 "An alist of Far-Eastern codepages and the names of the associated |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
682 language and supported coding system.") |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
683 |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
684 (defun dos-codepage-setup () |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
685 "Set up the MULE environment as appropriate for the installed DOS codepage. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
686 |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
687 This function sets coding systems, display tables, and the language |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
688 environment options as appropriate for the current value of `dos-codepage'. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
689 |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
690 This function is automatically run at startup via the `term-setup-hook' |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
691 list. You can (and should) also run it whenever the value of |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
692 `dos-codepage' changes." |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
693 (interactive) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
694 (let* ((desc (cdr (assq dos-codepage cjk-codepages-alist))) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
695 (lang (car desc)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
696 (coding (car (cdr desc))) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
697 coding-dos coding-unix) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
698 (if (null desc) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
699 (dos-cpNNN-setup dos-codepage) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
700 ;; We've got one of the Far-Eastern codepages which support |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
701 ;; MULE native coding systems directly. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
702 (setq coding-dos (intern (format "%s-dos" coding)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
703 coding-unix (intern (format "%s-unix" coding))) |
28807
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
704 (set-language-environment lang) |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
705 (set-selection-coding-system coding-dos) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
706 (setq file-name-coding-system coding-unix) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
707 (set-terminal-coding-system |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
708 (setq default-terminal-coding-system coding-unix)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
709 ;; Assume they support non-ASCII Latin characters like the IBM |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
710 ;; codepage 437 does. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
711 (IT-display-table-setup "cp437") |
42300
be77d8bfb8ed
(dos-cpNNN-setup, dos-codepage-setup):
Eli Zaretskii <eliz@gnu.org>
parents:
41884
diff
changeset
|
712 ;; It's time: too many input methods in leim/quail produce |
be77d8bfb8ed
(dos-cpNNN-setup, dos-codepage-setup):
Eli Zaretskii <eliz@gnu.org>
parents:
41884
diff
changeset
|
713 ;; Unicode characters. Let the user see them. |
be77d8bfb8ed
(dos-cpNNN-setup, dos-codepage-setup):
Eli Zaretskii <eliz@gnu.org>
parents:
41884
diff
changeset
|
714 (IT-setup-unicode-display) |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
715 (prefer-coding-system coding-dos) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
716 (if default-enable-multibyte-characters |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
717 (setq unibyte-display-via-language-environment t)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
718 ))) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
719 |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
720 ;; We want to delay the terminal and other codepage-related setup |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
721 ;; until after the terminal is set and user's .emacs is processed, |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
722 ;; because people might define their `dos-codepage-setup-hook' there. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
723 (add-hook 'term-setup-hook 'dos-codepage-setup) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
724 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
725 ;; In multibyte mode, we want unibyte buffers to be displayed using |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
726 ;; the terminal coding system, so that they display correctly on the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
727 ;; DOS terminal; in unibyte mode we want to see all 8-bit characters |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
728 ;; verbatim. In both cases, we want the entire range of 8-bit |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
729 ;; characters to arrive at our display code verbatim. |
24448
54fa245dc776
(top level): Display character 255 as 8bit as well.
Eli Zaretskii <eliz@gnu.org>
parents:
24261
diff
changeset
|
730 (standard-display-8bit 127 255) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
731 |
52401 | 732 ;;; arch-tag: eea04c06-7311-4b5a-b531-3c1be1b070af |
17517 | 733 ;;; internal.el ends here |