annotate lisp/term/internal.el @ 111424:e8807c0f5742

Silence gnus-art compilation. * lisp/gnus/gnus-art.el (gnus-treat-article): Give dynamic local variables `condition', `type', `length' a prefix. (gnus-treat-predicate): Update for above name changes.
author Glenn Morris <rgm@gnu.org>
date Sat, 06 Nov 2010 12:35:19 -0700
parents 1d1d5d9bd884
children 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
1 ;;; internal.el --- support for PC internal terminal
5444
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
104773
380c4c2a4fc2 (dos-codepage-setup): Use default-value rather than
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
3 ;; Copyright (C) 1993, 1994, 1998, 1999, 2001, 2002, 2003, 2004, 2005,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 105009
diff changeset
4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
5444
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Author: Morten Welinder <terra@diku.dk>
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
5444
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
12 ;; the Free Software Foundation, either version 3 of the License, or
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
13 ;; (at your option) any later version.
5444
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 13483
diff changeset
22
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37969
diff changeset
23 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37969
diff changeset
24
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 13483
diff changeset
25 ;;; Code:
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 13483
diff changeset
26
5444
e65b4acb9e6a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;; ---------------------------------------------------------------------------
97666
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
28 (defvar msdos-key-remapping-map
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
29 (let ((map (make-sparse-keymap)))
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
30 ;; keyboard setup -- that's simple!
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
31 (define-key map [M-backspace] [?\M-\d])
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
32 (define-key map [M-delete] [?\M-d])
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
33 (define-key map [M-tab] [?\M-\t])
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
34 (define-key map [M-linefeed] [?\M-\n])
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
35 (define-key map [M-clear] [?\M-\013])
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
36 (define-key map [M-return] [?\M-\015])
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
37 (define-key map [M-escape] [?\M-\e])
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
38 map)
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
39 "Keymap for remapping special keys on MS-DOS keyboard.")
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
40
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
41 (defun msdos-setup-keyboard (frame)
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
42 "Setup `local-function-key-map' for MS-DOS keyboard."
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
43 ;; Don't do this twice on the same display, or it would break
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
44 ;; normal-erase-is-backspace-mode.
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
45 (unless (terminal-parameter frame 'msdos-setup-keyboard)
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
46 ;; Map certain keypad keys into ASCII characters that people usually expect.
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
47 (with-selected-frame frame
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
48 (let ((map (copy-keymap msdos-key-remapping-map)))
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
49 (set-keymap-parent map (keymap-parent local-function-key-map))
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
50 (set-keymap-parent local-function-key-map map)))
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
51 (set-terminal-parameter frame 'msdos-setup-keyboard t))
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
52 (set-input-mode nil nil 0))
ed4b9c6c72c8 (msdos-key-remapping-map): New variable. Move here all the special keys we
Eli Zaretskii <eliz@gnu.org>
parents: 96376
diff changeset
53
23918
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
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
69 ;; glyphs of the current codepage. When Emacs starts on DOS, it
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
70 ;; automatically sets its default coding systems for file I/O and
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
71 ;; terminal output according to the currend DOS codepage, given by
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
72 ;; the `dos-codepage' variable.
23918
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
73 ;;
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
74 ;; 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
75 ;; 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
76 ;; 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
77 ;; 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
78 ;; 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
79 ;; For example, a small c with cedilla is mapped to the string
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
80 ;; ",c". A nice feature of the display tables is that Emacs
23918
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
81 ;; 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
82 ;; 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
83 ;; the entire string which represents a single character.
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
84 ;; ----------------------------------------------------------------------
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
85
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
86 (defvar IT-unicode-translations
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
87 '(
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
88 (160 563 ; first, last
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
89 [ 255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" ; Latin-1
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
90 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
91 "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
92 "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
93 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
94 "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
95 "\"U" "Y'" "-P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
96 "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
97 "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u"
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
98 "u'" "u^" "\"u" "y'" "-p" "\"y" ; 255
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
99 "A-" "a-" "A(" "a(" "A;" "a;" "C'" "c'" "C>" "c>" ; Latin Extended-A
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
100 "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
101 "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
102 "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
103 "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
104 "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
105 "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
106 "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
107 "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
108 "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
109 "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
110 "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
111 "Y:" "Z'" "z'" "Z." "z." "Z<" "z<" "s1" ; 017f
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
112 "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
113 "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
114 "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
115 "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
116 "!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
117 "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
118 "5-" "_5-" "ts" "wn" "|_" "||" "|=" "!_" "DZ<" "Dz<"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
119 "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
120 "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
121 "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
122 "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
123 "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
124 "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
125 "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
126 "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
127 "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
128 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
129 "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
130
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
131 )
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
132
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
133 (884 1123 ; first, last
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
134 [ "'" "," nil nil nil nil "j3" nil nil nil ; Greek
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
135 "?;" nil nil nil nil nil "'*" "'%" "A%" ".*"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
136 "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
137 "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
138 "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
139 "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
140 "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
141 "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
142 "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
143 "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
144 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
145 "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
146 "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
147 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
148 "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
149 "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
150 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
151 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
152 "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "JU" "JA" 97 "b="
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
153 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
154 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
155 "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "ju" "ja"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
156 "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
157 "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
158 )
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
159
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
160 (1454 1645 ; first, last
38947
0d25e59f6139 (IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents: 38534
diff changeset
161 [ nil nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'"
0d25e59f6139 (IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents: 38534
diff changeset
162 "-," "`." nil "\\." "(.)" "|'" "`-" nil "||" nil
0d25e59f6139 (IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents: 38534
diff changeset
163 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
164 nil nil nil nil
0d25e59f6139 (IT-character-translations) <hebrew-iso8859-8>:
Eli Zaretskii <eliz@gnu.org>
parents: 38534
diff changeset
165 "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
166 "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
167 "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
168 nil nil "WW+" "WJ+" "JJ+" "'+" "\"+" nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
169 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
170 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
171 ",+" 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
172 nil nil nil nil nil ";+" nil nil nil "?+"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
173 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
174 "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
175 "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
176 nil nil "++" "f+" "q+" "k+" "l+" "m+" "n+" "h+"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
177 "w+" "j+" "y+" ":+" "\"+" "=+" "/+" "'+" "1+" "3+"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
178 "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
179 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
180 "6a" "7a" "8a" "9a" "a%" "a." "a," "a*" ]
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
181 )
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
182
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
183 (7680 9450 ; first, last
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
184 [ "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
185 "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
186 "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
187 "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
188 "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
189 "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
190 "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
191 "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
192 "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
193 "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
194 "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
195 "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
196 "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
197 "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
198 "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
199 "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
200 "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
201 "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
202 "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
203 "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
204 "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
205 "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
206 "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
207 "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
208 ".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
209 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
210 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
211 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
212 "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
213 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
214 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
215 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
216 "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
217 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
218 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
219 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
220 "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
221 "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
222 "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
223 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
224 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
225 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
226 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
227 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
228 "A*(" "A*-" "A*!" "A*'" "A*J" ")*" "J3" ",," "?*" "?:"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
229 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
230 "Y*J" ",!" ",'" "?," "i*(" "i*-" nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
231 "i*?" nil "I*(" "I*-" "I*!" "I*'" nil ";!" ";'" "?;"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
232 "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
233 "U*!" "U*'" "R*;" "!:" ":'" "!*" nil nil nil "w*j"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
234 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
235 ";;" 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
236 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
237 nil "--" "---" "===" "!2" "=2" "6`" "'9" ".9" "9'"
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
238 "``" "''" ":9" "9``" "/-" "/=" "sb" "3b" nil ".."
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
239 "..." ".-" "LSep" "PSep" "LR[" "RL[" "PDF" "LRO" "RLO" 255
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
240 "%o" "%oo" "'" "''" "\"'" "`" "``" "```" ".^" "<,"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
241 ",>" ":X" "!!" "?!" "'-" nil nil nil nil "-b"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
242 "/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
243 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
244 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
245 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
246 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
247 "^6" "^7" "^8" "^9" "^+" "^-" "^=" "^(" "^)" "^n"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
248 "_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
249 "_+" "_-" "_=" "_(" "_)" nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
250 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
251 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
252 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
253 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
254 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
255 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
256 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
257 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
258 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
259 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
260 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
261 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
262 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
263 "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
264 "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
265 "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
266 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
267 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
268 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
269 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
270 "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
271 "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
272 ".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
273 "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
274 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
275 nil "<-" "|^" "->" "|v" "<->" "v|^" "^\\" "/^" "\\v"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
276 "v/" "<-/" "/->" "<~" "~>" "<<-" "|^^" "->>" "|vv" "<-<"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
277 ">->" "<-|" "_|^" "|->" "-|v" "_v|^" "<-?" "?->" "<-o" "o->"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
278 "<~>" "<-/>" nil nil nil nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
279 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
280 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
281 nil nil nil "<=/" "<=/>" "/=>" "<=" "||^" "=>" "||v"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
282 "<=>" "v||^" "^\\\\" "//^" "\\\\v" "v//" "<-=" "=->" nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
283 nil nil "<.." ":^" "..>" ":v" nil nil "<::" "::^"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
284 "::>" "::v" nil nil nil nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
285 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
286 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
287 "DE" "NB" "(-" "~(-" "e-" "-)" "~-)" "-e" "QED" "*P"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
288 nil "+Z" "--" "-+" ".+" "./" ".\\" "*-" "Ob" "Sb"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
289 "SQR" "CBR" nil "0(" "00" "-L" "-V" nil nil ".|"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
290 "~.|" "||" "/||" "AND" "OR" "(U" ")U" "In" "DI" nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
291 "Io" nil nil nil nil nil ".:" ":." ":R" "::"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
292 ".-." "-:" ":-:" ":~:" "?~" "~?" "??" nil nil "/~"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
293 "-~" "~-" "/~-" "~=" "~/=" "/~=" "~~" "/~~" nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
294 "=?" ")(" "v^" "^_" ".=" "=;" ".=." nil ":=" "=:"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
295 nil "=o" "=)" "=^" "=v" "*=" "=<>" "=df" nil "?="
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
296 "!=" "-=" "!-=" "==" "=<" ">=" nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
297 "<<" ">>" "()" "/)(" "!<" "!>" nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
298 nil nil nil nil nil nil "<'" "`>" "=<'" "`>="
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
299 "~<'" "`>~" "/<'" "/`>" "(C" ")C" "/(C" "/)C" "(_" ")_"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
300 "/(_" "/)_" nil nil nil nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
301 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
302 "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
303 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
304 nil nil nil nil nil nil nil nil nil "-,-"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
305 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
306 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
307 nil nil nil nil nil nil nil nil "<." ".>"
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
308 "<<<" ">>>" nil nil nil nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
309 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
310 nil nil ":3" "..." nil nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
311 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
312 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
313 "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
314 nil "TR" nil "=||" "88" nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
315 nil nil "Iu" "Il" nil nil "-^-" "-`-" "D->" nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
316 nil "</" "/>" "<-D" nil nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
317 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
318 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
319 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
320 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
321 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
322 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
323 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
324 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
325 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
326 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
327 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
328 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
329 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
330 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
331 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
332 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
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 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
335 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
336 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
337 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
338 "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
339 "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
340 "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
341 "b/" ",_," "NL" nil "?^" nil nil nil nil nil
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
342 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
343 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
344 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
345 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
346 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
347 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
348 "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
349 "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
350 "(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
351 "(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
352 "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
353 "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
354 "(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
355 "(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
356 "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
357 "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
358 "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
359 "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
360 "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
361 "0-o" ]
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
362 )
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
363 )
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
364
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
365 "A list of strings that should be used to represent Unicode
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
366 characters on a DOS terminal which does not have corresponding
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
367 glyphs built into the installed codepage.")
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
368
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
369 (defun IT-setup-unicode-display (coding &optional table)
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
370 "Set up display table TABLE for displaying mule-unicode-* characters
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
371 on a DOS terminal whose codepage provides the coding-system CODING.
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
372 If TABLE is nil or omitted, `standard-display-table' is used."
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
373 (interactive "zCode page: ")
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
374 (let ((disp-tab (or table standard-display-table))
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
375 (tail IT-unicode-translations)
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
376 translation)
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
377 (while tail
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
378 (setq translation (car tail) tail (cdr tail))
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
379 (let* ((first (car translation))
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
380 (last (nth 1 translation))
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
381 (table (nth 2 translation))
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
382 (i 0)
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
383 (this first)
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
384 glyph)
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
385 (while (<= i (- last first))
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
386 (setq glyph (aref table i))
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
387 (when (and glyph
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
388 (unencodable-char-position 0 1 coding nil (string this)))
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
389 (aset disp-tab this
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
390 (vconcat (if (numberp glyph)
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
391 (string glyph)
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
392 glyph))))
37969
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
393 (setq i (1+ i) this (1+ this)))))))
7f7b1c4d1e67 (IT-unicode-translations): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
394
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
395 (defvar dos-codepage)
98449
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
396 (defvar dos-country-code)
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
397
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
398 ;; The following alist was compiled from:
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
399 ;;
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
400 ;; Ralf Brown's Interrupt List. file INTERRUP.F, D-2138, Table 01400
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
401 ;; http://www.ethnologue.com/country_index.asp (official languages)
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
402 ;; http://unicode.org/onlinedat/languages.html
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
403 ;; http://unicode.org/onlinedat/countries.html
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
404 ;;
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
405 ;; Only the official languages listed for each country.
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
406 ;;
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
407 (defvar dos-locale-alist
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
408 '(( 1 . "en_US")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
409 ( 2 . "fr_CA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
410 ( 3 . "es_MX") ; what the heck is "Latin America"?
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
411 ( 4 . "en_CA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
412 ( 7 . "ru_RU")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
413 ( 20 . "ar_EG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
414 ( 27 . "af_ZA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
415 ( 30 . "el_GR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
416 ( 31 . "nl_NL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
417 ( 32 . "nl_BE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
418 ( 33 . "fr_FR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
419 ( 34 . "es_ES")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
420 ( 35 . "bg_BG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
421 ( 36 . "hu_HU")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
422 ( 38 . "sh_YU")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
423 ( 39 . "it_IT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
424 ( 40 . "ro_RO")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
425 ( 41 . "de_CH")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
426 ( 42 . "cs_CZ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
427 ( 43 . "de_AT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
428 ( 44 . "en_UK")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
429 ( 45 . "da_DK")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
430 ( 46 . "sv_SE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
431 ( 47 . "no_NO")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
432 ( 48 . "pl_PL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
433 ( 49 . "de_DE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
434 ( 51 . "es_PE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
435 ( 52 . "es_MX")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
436 ( 53 . "es_CU")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
437 ( 54 . "es_AR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
438 ( 55 . "pt_BR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
439 ( 56 . "es_CL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
440 ( 57 . "es_CO")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
441 ( 58 . "es_VE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
442 ( 60 . "ms_MY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
443 ( 61 . "en_AU")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
444 ( 62 . "id_ID")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
445 ( 63 . "fil_PH")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
446 ( 64 . "en_NZ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
447 ( 65 . "zh_SG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
448 ( 66 . "th_TH")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
449 ( 81 . "ja_JP")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
450 ( 82 . "ko_KR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
451 ( 84 . "vi_VN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
452 ( 86 . "zh_CN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
453 ( 88 . "zh_TW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
454 ( 90 . "tr_TR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
455 ( 91 . "hi_IN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
456 ( 92 . "ur_PK")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
457 ( 93 . "ps_AF")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
458 ( 94 . "si_LK")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
459 ( 98 . "fa_IR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
460 ( 99 . "en" )
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
461 (102 . "he_IL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
462 (112 . "be_BY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
463 (212 . "ar_MA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
464 (213 . "ar_DZ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
465 (216 . "ar_TN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
466 (218 . "ar_LY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
467 (220 . "en_GM")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
468 (221 . "fr_SN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
469 (222 . "mey_MR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
470 (223 . "fr_ML")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
471 (224 . "fr_GN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
472 (227 . "fr_NE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
473 (228 . "fr_TG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
474 (230 . "fr_MU")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
475 (231 . "en_LR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
476 (232 . "en_SL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
477 (233 . "en_GH")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
478 (234 . "en_NG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
479 (235 . "ar_TD")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
480 (236 . "fr_CF")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
481 (237 . "fr_CM")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
482 (241 . "fr_GA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
483 (242 . "fr_CG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
484 (243 . "sw_ZR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
485 (244 . "pt_AO")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
486 (245 . "pt_GW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
487 (249 . "ar_SD")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
488 (250 . "fr_RW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
489 (251 . "am_ET")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
490 (252 . "so_SO")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
491 (253 . "fr_DJ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
492 (254 . "sw_KE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
493 (255 . "sw_TZ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
494 (256 . "en_UG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
495 (257 . "fr_BI")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
496 (259 . "pt_MZ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
497 (260 . "en_ZM")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
498 (261 . "mg_MG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
499 (263 . "en_ZW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
500 (264 . "en_NA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
501 (265 . "en_MW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
502 (266 . "st_LS")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
503 (267 . "en_BW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
504 (268 . "en_SZ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
505 (299 . "kl_GL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
506 (350 . "en_GI")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
507 (351 . "pt_PT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
508 (352 . "fr_LU")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
509 (353 . "ga_IE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
510 (354 . "is_IS")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
511 (355 . "sq_AL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
512 (356 . "mt_MT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
513 (357 . "gr_CY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
514 (358 . "fi_FI")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
515 (359 . "bg_BG")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
516 (370 . "lt_LT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
517 (371 . "lv_LV")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
518 (372 . "et_EE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
519 (373 . "mo_MD")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
520 (380 . "uk_UA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
521 (381 . "sr_RS")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
522 (384 . "hr_HR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
523 (385 . "hr_HR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
524 (386 . "sl_SI")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
525 (387 . "bs_BA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
526 (388 . "sr_BA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
527 (389 . "mk_MK")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
528 (421 . "cs_CZ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
529 (422 . "sk_SK")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
530 (502 . "es_GT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
531 (503 . "es_SV")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
532 (504 . "es_HN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
533 (505 . "es_NI")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
534 (506 . "es_CR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
535 (507 . "es_PA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
536 (509 . "ht_HT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
537 (590 . "fr_GP")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
538 (591 . "es_BO")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
539 (592 . "en_GY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
540 (593 . "es_EC")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
541 (594 . "fr_GF")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
542 (595 . "gn_PY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
543 (596 . "fr_MQ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
544 (597 . "nl_SR")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
545 (598 . "es_UY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
546 (785 . "ar" )
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
547 (804 . "uk_UA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
548 (850 . "ko_KP")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
549 (855 . "km_KH")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
550 (856 . "lo_LA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
551 (880 . "bn_BD")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
552 (886 . "zh_TW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
553 (960 . "dv_MV")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
554 (961 . "ar_LB")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
555 (962 . "ar_JO")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
556 (963 . "ar_SY")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
557 (964 . "ar_IQ")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
558 (965 . "ar_KW")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
559 (966 . "ar_SA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
560 (967 . "ar_YE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
561 (968 . "ar_OM")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
562 (969 . "ar_YE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
563 (971 . "ar_AE")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
564 (972 . "he_IL")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
565 (973 . "ar_BH")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
566 (974 . "ar_QA")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
567 (975 . "dz_BT")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
568 (976 . "mn_MN")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
569 (977 . "ne_NP")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
570 (995 . "my_MM")
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
571 )
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
572 "Alist of MS-DOS country codes and the corresponding locale names.")
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
573
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
574 (defun dos-codepage-setup ()
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
575 "Set up multilingual environment for the installed DOS codepage.
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
576
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
577 This function sets coding systems, display tables, and the language
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
578 environment options as appropriate for the current value of `dos-codepage'.
23918
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
579
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
580 This function is automatically run at startup via the `after-init-hook'
98449
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
581 list. You can (and should) also run it if and when the value of
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
582 `dos-codepage' changes."
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
583 (interactive)
98449
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
584 (let ((locale (cdr (assq dos-country-code dos-locale-alist)))
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
585 (coding (format "cp%s" dos-codepage))
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
586 coding-dos coding-unix)
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
587 (setq coding-dos (intern (format "%s-dos" coding))
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
588 coding-unix (intern (format "%s-unix" coding)))
98449
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
589 (setq locale (if locale
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
590 (format "%s.cp%s" locale dos-codepage)
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
591 "en_US.cp437"))
194896c4ead7 (dos-locale-alist): New alist.
Eli Zaretskii <eliz@gnu.org>
parents: 98416
diff changeset
592 (set-locale-environment locale)
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
593 (set-selection-coding-system coding-dos)
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
594 (IT-setup-unicode-display coding-unix)
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
595 (prefer-coding-system coding-dos)
104773
380c4c2a4fc2 (dos-codepage-setup): Use default-value rather than
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
596 (and (default-value 'enable-multibyte-characters)
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
597 (setq unibyte-display-via-language-environment t))
23918
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
598 ;; 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
599 ;; 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
600 ;; 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
601 ;; the codepages (for starters, I don't even have references for
98416
a0f0ccc831a1 Remove coding: cookie and no-byte-compile flag.
Eli Zaretskii <eliz@gnu.org>
parents: 97666
diff changeset
602 ;; all the codepages). So provide a hook for those who want to
23918
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
603 ;; 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
604 (run-hooks 'dos-codepage-setup-hook)
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
605 ))
73c3dcc21ced (IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents: 23811
diff changeset
606
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
607 ;; arch-tag: eea04c06-7311-4b5a-b531-3c1be1b070af
17517
8f952e921136 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14170
diff changeset
608 ;;; internal.el ends here