Mercurial > emacs
annotate lisp/term/internal.el @ 34636:d5f4808ddf54
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 16 Dec 2000 17:46:59 +0000 |
parents | f6d5258c61db |
children | f022afc9cdcb |
rev | line source |
---|---|
19871
847fbc8725a9
Switch to raw-text as coding system.
Richard M. Stallman <rms@gnu.org>
parents:
19566
diff
changeset
|
1 ;;; internal.el --- support for PC internal terminal -*- coding: raw-text; -*- |
5444 | 2 |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 1998 Free Software Foundation, Inc. |
5444 | 4 |
5 ;; Author: Morten Welinder <terra@diku.dk> | |
6 | |
7 ;; This file is part of GNU Emacs. | |
8 | |
9 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
10 ;; it under the terms of the GNU General Public License as published by | |
11 ;; the Free Software Foundation; either version 2, or (at your option) | |
12 ;; any later version. | |
13 | |
14 ;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 ;; GNU General Public License for more details. | |
18 | |
19 ;; You should have received a copy of the GNU General Public License | |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
22 ;; Boston, MA 02111-1307, USA. |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
23 |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
24 ;;; Code: |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
25 |
5444 | 26 ;; --------------------------------------------------------------------------- |
27 ;; keyboard setup -- that's simple! | |
28 (set-input-mode nil nil 0) | |
29 (define-key function-key-map [backspace] "\177") ; Normal behaviour for BS | |
30 (define-key function-key-map [delete] "\C-d") ; ... and Delete | |
31 (define-key function-key-map [tab] [?\t]) | |
32 (define-key function-key-map [linefeed] [?\n]) | |
33 (define-key function-key-map [clear] [11]) | |
34 (define-key function-key-map [return] [13]) | |
35 (define-key function-key-map [escape] [?\e]) | |
36 (define-key function-key-map [M-backspace] [?\M-\d]) | |
34571 | 37 (define-key function-key-map [M-delete] [?\M-d]) |
5444 | 38 (define-key function-key-map [M-tab] [?\M-\t]) |
39 (define-key function-key-map [M-linefeed] [?\M-\n]) | |
40 (define-key function-key-map [M-clear] [?\M-\013]) | |
41 (define-key function-key-map [M-return] [?\M-\015]) | |
42 (define-key function-key-map [M-escape] [?\M-\e]) | |
43 (put 'backspace 'ascii-character 127) | |
44 (put 'delete 'ascii-character 127) | |
45 (put 'tab 'ascii-character ?\t) | |
46 (put 'linefeed 'ascii-character ?\n) | |
47 (put 'clear 'ascii-character 12) | |
48 (put 'return 'ascii-character 13) | |
49 (put 'escape 'ascii-character ?\e) | |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
50 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
51 ;; ---------------------------------------------------------------------- |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
52 ;; DOS display setup |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
53 ;; ================= |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
54 ;; |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
55 ;; DOS 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
|
56 ;; 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
|
57 ;; 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
|
58 ;; 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
|
59 ;; 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
|
60 ;; 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
|
61 ;; boots; usually, this codepage cannot be changed without |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
62 ;; rebooting. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
63 ;; |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
64 ;; 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
|
65 ;; MULE charset, Emacs can display a single MULE charset with the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
66 ;; glyphs of the current codepage. The mapping from DOS codepages |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
67 ;; to MULE charsets is established by the charset property of the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
68 ;; cpNNN-decode-table variables in codepage.el, which also |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
69 ;; defines translation tables for each such pair, and a bunch of |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
70 ;; functions to generate coding systems that use those translation |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
71 ;; tables to convert codepage-encoded text to the appropriate MULE |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
72 ;; charset and back. When Emacs starts on DOS, it automatically |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
73 ;; sets its default coding systems for file I/O and terminal output |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
74 ;; according to the currend DOS codepage, given by the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
75 ;; `dos-codepage' variable. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
76 ;; |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
77 ;; 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
|
78 ;; 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
|
79 ;; 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
|
80 ;; 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
|
81 ;; 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
|
82 ;; For example, a small c with cedilla is mapped to the string |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
83 ;; "{,c}" (the braces serve as a sign that this is a single |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
84 ;; character). A nice feature of the display tables is that Emacs |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
85 ;; 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
|
86 ;; 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
|
87 ;; the entire string which represents a single character. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
88 ;; ---------------------------------------------------------------------- |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
89 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
90 (defvar IT-character-translations |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
91 '( |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
92 (latin-iso8859-1 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
93 . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
94 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
95 "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
96 "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
28837 | 97 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
98 "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" |
28837 | 99 "\"U" "Y'" "-P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
100 "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
28837 | 101 "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" |
102 "u'" "u^" "\"u" "y'" "-p" "\"y"] | |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
103 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
104 (latin-iso8859-2 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
105 . [255 "A;" "'(" "/L" "$$" "L<" "S'" "SE" "\"" "S<" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
106 ",S" "T<" "Z'" "--" "Z<" "Z^." "^o" "a;" "';" "/l" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
107 "'" "l<" "s'" "'<" "'," "s<" ",s" "t<" "z'" "'" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
108 "z<" "z^." "R'" "A'" "A^" "A(" "\"A" "L'" "C'" ",C" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
109 "C<" "E'" "E;" "E:" "E<" "I'" "I^" "D<" "/D" "N'" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
110 "N<" "O'" "O^" "O''" "\"O" "*x" "R<" "U^0" "U'" "U''" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
111 "\"U" "Y'" ",T" "ss" "r'" "a'" "a^" "a(" "\"a" "l'" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
112 "c'" ",c" "c<" "e'" "e;" "\"e" "e<" "i'" "i^" "d<" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
113 "/d" "n'" "n<" "o'" "o^" "o''" "\"o" "-:" "r<" "u^0" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
114 "u'" "u''" "\"u" "y'" ",t" "'."] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
115 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
116 (latin-iso8859-3 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
117 . [255 "/H" "'(" "Pd" "$$" " " "H^" "SE" "\"" "I^." |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
118 ",S" "G(" "J^" "--" " " "Z^." "^o" "/h" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
119 "'" "u" "h^" "." "'," "i^." ",s" "g(" "j^" "1/2" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
120 " " "z^." "`A" "A'" "A^" " " "\"A" "C^." "C^" ",C" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
121 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" " " "~N" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
122 "`O" "O'" "O^" "G^." "\"O" "*x" "G^" "`U" "U'" "U^" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
123 "\"U" "U(" "S^" "ss" "`a" "a'" "a^" " " "\"a" "c^." |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
124 "c^" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
125 " " "~n" "`o" "o'" "o^" "g^." "\"o" "-:" "g^" "`u" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
126 "u'" "u^" "\"u" "u(" "s^" "^."] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
127 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
128 (latin-iso8859-4 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
129 . [255 "A;" "kk" ",R" "$$" "?I" ",L" "SE" "\"" "S<" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
130 "E-" ",G" "/T" "--" "Z<" "'-" "^o" "a;" "';" ",r" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
131 "'" "~i" ",l" "'<" "'," "s<" "e-" ",g" "/t" "NG" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
132 "z<" "ng" "A-" "A'" "A^" "~A" "\"A" "Ao" "AE" "I;" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
133 "C<" "E'" "E;" "\"E" "E^." "I'" "I^" "I-" "/D" ",N" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
134 "O-" ",K" "O^" "~O" "\"O" "*x" "/O" "U;" "U'" "U^" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
135 "\"U" "~U" "U-" "ss" "a-" "a'" "a^" "~a" "\"a" "ao" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
136 "ae" "i;" "c<" "e'" "e;" "\"e" "e^." "i'" "i^" "i-" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
137 "/d" ",n" "o-" ",k" "o^" "~o" "\"o" "-:" "/o" "u;" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
138 "u'" "u^" "\"u" "~u" "u-" "^."] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
139 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
140 (cyrillic-iso8859-5 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
141 . [255 "\"E" "Dj" "Gj" "IE" "Dz" "Ii" "Ji" "JE" "Lj" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
142 "Nj" "Ts" "Kj" 240 "V%" "Dzh" 65 "B=" 66 226 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
143 68 69 "Z%" 51 85 "J=" 75 "L=" 77 72 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
144 79 "P=" 80 67 84 89 232 88 "C=" "C%" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
145 "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "Yu" "Ya" 97 98 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
146 "v=" "g=" 103 101 "z%" "z=" 117 "j=" 107 "l=" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
147 "m=" "n=" 111 110 112 99 "t=" 121 "f=" 120 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
148 "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "yu" "ya" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
149 "N0" "\"e" "dj" "gj" "ie" "dz" "ii" "ji" "je" "lj" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
150 "nj" "ts" "kj" 21 "v%" "dzh"] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
151 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
152 (arabic-iso8859-6 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
153 . [255 nil nil nil "$$" nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
154 nil nil ",+" "--" nil nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
155 nil nil nil nil nil nil nil ";+" nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
156 nil "?+" nil "H'" "aM" "aH" "wH" "ah" "yH" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
157 "a+" "b+" "tm" "t+" "tk" "g+" "hk" "x+" "d+" "dk" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
158 "r+" "z+" "s+" "sn" "c+" "dd" "tj" "zH" "e+" "i+" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
159 nil nil nil nil nil "++" "f+" "q+" "k+" "l+" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
160 "m+" "n+" "h+" "w+" "j+" "y+" ":+" "\"+" "=+" "/+" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
161 "'+" "1+" "3+" "0+" nil nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
162 nil nil nil nil nil nil nil] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
163 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
164 (greek-iso8859-7 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
165 . [255 "9'" "'9" "Pd" nil nil "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
166 nil "<<" "~" "--" nil "-M" "^o" "+-" "^2" "^3" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
167 "'" "'%" "'A" "^." "'E" "'H" "'I" ">>" "'O" "1/2" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
168 "'Y" "W%" "i3" 65 66 "G*" "D*" 69 90 72 |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
169 "TH" 73 74 "L*" 77 78 "C*" 79 "P*" 80 |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
170 nil "S*" 84 89 "F*" 88 "Q*" "W*" "\"I" "\"Y" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
171 "a%" "e%" "y%" "i%" "u3" "a*" "b*" "g*" "d*" "e*" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
172 "z*" "y*" "h*" "i*" 107 "l*" "m*" "n*" "c*" 111 |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
173 "p*" "r*" "*s" "s*" "t*" 117 "f*" "x*" "q*" "w*" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
174 "\"i" "\"u" "'o" "'u" "'w" nil] |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
175 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
176 (hebrew-iso8859-8 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
177 . [255 nil "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
178 "*x" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
179 "'" "u" ".P" "^." "'," "^1" "-:" ">>" "1/4" "1/2" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
180 "3/4" nil nil nil nil nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
181 nil nil nil nil nil nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
182 nil nil nil nil nil nil nil nil nil nil |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
183 nil nil nil "=2" "A+" "B+" "G+" "D+" "H+" "W+" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
184 "Z+" "X+" "Tj" "J+" "K%" "K+" "L+" "M%" "M+" "N%" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
185 "N+" "S+" "E+" "P%" "P+" "Zj" "ZJ" "Q+" "R+" "Sh" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
186 "T+" nil nil nil nil nil] |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
187 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
188 (latin-iso8859-9 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
189 . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
190 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
191 "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
192 "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
193 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "G(" "~N" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
194 "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
195 "\"U" "I^." ",S" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
196 "ae" ",c" "`e" "e'" "e<" "\"e" "e^." "i'" "i^" "i-" |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
197 "g(" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
198 "u'" "u^" "\"u" "i." ",s" "\"y"] |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
199 ) |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
200 (latin-iso8859-14 |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
201 . [255 "B`" "b`" "Pd" "C`" "c`" "D`" "SE" "`W" "(c)" |
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
202 "W'" "d`" "`Y" "--" "(R)" "\"Y" "F`" "f`" "G`" "g`" |
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
203 "M`" "m`" ".P" "P`" "`w" "p`" "w'" "S`" "`y" "\"W" |
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
204 "\"w" "s`" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
205 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "W^" "~N" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
206 "`O" "O'" "O^" "~O" "\"O" "T`" "/O" "`U" "U'" "U^" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
207 "\"U" "Y'" "Y^" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
208 "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
209 "w^" "~n" "`o" "o'" "o^" "~o" "\"o" "t`" "/o" "`u" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
210 "u'" "u^" "\"u" "y'" "y^" "\"y"] |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
211 ) |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
212 (latin-iso8859-15 |
28837 | 213 . [255 "!I" "|c" "Pd" "E=" "Ye" "S<" "SE" "s<" "(c)" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
214 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
215 "Z<" "u" ".P" "^." "z<" "^1" "_o" ">>" "OE" "oe" |
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
216 "\"Y" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" |
28837 | 217 "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
218 "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
219 "\"U" "Y'" "|P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" |
28830
13e4716deef5
(IT-character-translations): Update ASCII
Eli Zaretskii <eliz@gnu.org>
parents:
28807
diff
changeset
|
220 "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" |
28837 | 221 "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" |
28920
206ed3d74e4b
(IT-character-translations): More updates of
Eli Zaretskii <eliz@gnu.org>
parents:
28837
diff
changeset
|
222 "u'" "u^" "\"u" "y'" "|p" "\"y"] |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
223 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
224 ) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
225 "An alist of MULE ISO-8859 character sets and the strings that |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
226 should be used to represent the characters from each set on a DOS |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
227 terminal which does not have corresponding glyphs built into the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
228 installed codepage.") |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
229 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
230 (defun IT-display-table-setup (codepage &optional table) |
24845
87e4cdfac07b
(IT-display-table-setup): Do not remap \222 to
Eli Zaretskii <eliz@gnu.org>
parents:
24563
diff
changeset
|
231 "Set up display table TABLE for a DOS terminal which supports |
87e4cdfac07b
(IT-display-table-setup): Do not remap \222 to
Eli Zaretskii <eliz@gnu.org>
parents:
24563
diff
changeset
|
232 glyphs built into the codepage CODEPAGE. |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
233 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
234 If TABLE is nil or omitted, `standard-display-table' is used." |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
235 (let* ((surrogates IT-character-translations) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
236 (disp-tab (or table standard-display-table)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
237 (built-in-set (cp-charset-for-codepage codepage)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
238 (offset (cp-offset-for-codepage codepage)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
239 (cp-decoder |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
240 (symbol-value (intern-soft (format "%s-decode-table" codepage)))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
241 (cp-decoder-len (length cp-decoder)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
242 (c offset) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
243 association chset) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
244 ;; Undo the effects of previous call (where they may have used |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
245 ;; a different codepage) by reverting the display table for the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
246 ;; built-in charset to its pristine shape. |
26515
9f3d02d7daa8
term/internal.el (IT-display-table-setup): Don't overstep
Eli Zaretskii <eliz@gnu.org>
parents:
24845
diff
changeset
|
247 (while (< c 256) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
248 (aset disp-tab (make-char built-in-set c) nil) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
249 (setq c (1+ c))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
250 (while surrogates |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
251 (setq association (car surrogates)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
252 (setq chset (car association)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
253 (let* ((vector (cdr association)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
254 (veclen (length vector)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
255 (i 0) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
256 glyph) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
257 (while (< i veclen) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
258 (setq glyph (aref vector i)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
259 (if (and glyph |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
260 (or (not (equal chset built-in-set)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
261 (>= i cp-decoder-len) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
262 (null (aref cp-decoder i)))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
263 (aset disp-tab (make-char chset (+ i (logand offset 127))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
264 (vconcat |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
265 (if (numberp glyph) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
266 (char-to-string glyph) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
267 (if (> (length glyph) 1) (concat "{" glyph "}") |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
268 glyph))))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
269 (setq i (1+ i)))) |
24845
87e4cdfac07b
(IT-display-table-setup): Do not remap \222 to
Eli Zaretskii <eliz@gnu.org>
parents:
24563
diff
changeset
|
270 (setq surrogates (cdr surrogates))))) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
271 |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
272 (defun dos-cpNNN-setup (codepage) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
273 "Set up the MULE environment using the DOS codepage CODEPAGE. |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
274 |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
275 This function creates the coding system cpNNN (where NNN is the value |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
276 of the argument CODEPAGE), and then uses this coding system to set up |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
277 display tables, and the language environment options as appropriate." |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
278 (let* ((cp (format "cp%s" codepage)) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
279 (charset (cp-charset-for-codepage cp)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
280 (offset (cp-offset-for-codepage cp))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
281 (cp-make-coding-systems-for-codepage cp charset offset) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
282 ;; This is done by set-language-environment. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
283 ;;(setq nonascii-translation-table |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
284 ;; (symbol-value (intern (concat cp "-nonascii-translation-table")))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
285 (set-language-environment (cp-language-for-codepage cp)) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
286 (set-default-coding-systems (intern (concat cp "-dos"))) |
24261
3183582345f0
(dos-codepage-setup): Set selection coding system to cpNNN-dos.
Eli Zaretskii <eliz@gnu.org>
parents:
24162
diff
changeset
|
287 (set-selection-coding-system (intern (concat cp "-dos"))) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
288 (set-terminal-coding-system |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
289 (setq default-terminal-coding-system (intern (concat cp |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
290 "-unix")))) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
291 (IT-display-table-setup cp) |
24162
93161ca8b2e5
(dos-codepage-setup): Call prefer-coding-system
Eli Zaretskii <eliz@gnu.org>
parents:
23918
diff
changeset
|
292 (prefer-coding-system (intern (concat cp "-dos"))) |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
293 (if default-enable-multibyte-characters |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
294 ;; We want this in multibyte version only, since unibyte version |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
295 ;; should not convert non-ASCII characters at all. |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
296 (setq unibyte-display-via-language-environment t) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
297 ;; Let the unibyte version behave as Emacs 19 did. In particular, |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
298 ;; let it use and display native codepage-specific glyphs for |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
299 ;; non-ASCII characters. For this to work correctly, we need to |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
300 ;; establish the correspondence between lower-case letters and their |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
301 ;; upper-case brethren, as appropriate for the codepage in use. The |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
302 ;; code below makes this happen. |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
303 ;; (In the multibyte mode, the appropriate tables are prepared |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
304 ;; elsewhere, since multibyte Emacs uses normal MULE character sets, |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
305 ;; which are supported on all platforms.) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
306 (let* ((i 128) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
307 (modify (function |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
308 (lambda (ch sy) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
309 (modify-syntax-entry ch sy text-mode-syntax-table) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
310 (if (boundp 'tex-mode-syntax-table) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
311 (modify-syntax-entry ch sy tex-mode-syntax-table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
312 (modify-syntax-entry ch sy (standard-syntax-table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
313 ))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
314 (table (standard-case-table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
315 ;; The following are strings of letters, first lower then |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
316 ;; upper case. This will look funny on terminals which |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
317 ;; display other code pages. In particular, what is |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
318 ;; displayed as blanks or triangles are not what they |
30537
31765e95b970
Fix a typo in a comment. Reported by Michel de Ruiter <Michel@smr.nl>.
Eli Zaretskii <eliz@gnu.org>
parents:
28920
diff
changeset
|
319 ;; look like at all! (Use `C-x =' to see what they |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
320 ;; really are.) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
321 (chars |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
322 (cond |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
323 ((= codepage 850) |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
324 "ķ ·ÆĮ ĩŌÓÔØŨÞĄÖâãĒāęĢéëYėíĄIĢéĪĨÐŅįč") |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
325 ((= codepage 865) |
24490
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
326 "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ") |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
327 ;; default is 437 |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
328 (t "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ")))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
329 |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
330 (while (< i 256) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
331 (funcall modify i "_") |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
332 (setq i (1+ i))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
333 |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
334 (setq i 0) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
335 (while (< i (length chars)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
336 (let ((ch1 (aref chars i)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
337 (ch2 (aref chars (1+ i)))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
338 (if (> ch2 127) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
339 (set-case-syntax-pair ch2 ch1 table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
340 (setq i (+ i 2)))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
341 (save-excursion |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
342 (mapcar (lambda (b) (set-buffer b) (set-case-table table)) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
343 (buffer-list))) |
7a5f7af21c27
(dos-codepage-setup): Compute the unibyte
Eli Zaretskii <eliz@gnu.org>
parents:
24448
diff
changeset
|
344 (set-standard-case-table table))) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
345 ;; 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
|
346 ;; 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
|
347 ;; 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
|
348 ;; the codepages (for starters, I don't even have references for |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
349 ;; all the codepages). So I provide a hook for those who want to |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
350 ;; 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
|
351 (run-hooks 'dos-codepage-setup-hook) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
352 )) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
353 |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
354 (defvar cjk-codepages-alist |
28807
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
355 '((932 "Japanese" japanese-shift-jis) |
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
356 (950 "Chinese-BIG5" cn-big5) |
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
357 (936 "Chinese-GB" cn-gb-2312) |
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
358 (949 "Korean" euc-kr)) |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
359 "An alist of Far-Eastern codepages and the names of the associated |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
360 language and supported coding system.") |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
361 |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
362 (defun dos-codepage-setup () |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
363 "Set up the MULE environment as appropriate for the installed DOS codepage. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
364 |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
365 This function sets coding systems, display tables, and the language |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
366 environment options as appropriate for the current value of `dos-codepage'. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
367 |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
368 This function is automatically run at startup via the `term-setup-hook' |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
369 list. You can (and should) also run it whenever the value of |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
370 `dos-codepage' changes." |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
371 (interactive) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
372 (let* ((desc (cdr (assq dos-codepage cjk-codepages-alist))) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
373 (lang (car desc)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
374 (coding (car (cdr desc))) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
375 coding-dos coding-unix) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
376 (if (null desc) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
377 (dos-cpNNN-setup dos-codepage) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
378 ;; We've got one of the Far-Eastern codepages which support |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
379 ;; MULE native coding systems directly. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
380 (setq coding-dos (intern (format "%s-dos" coding)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
381 coding-unix (intern (format "%s-unix" coding))) |
28807
f3cc4443dca2
(cjk-codepages-alist): Add associations for
Eli Zaretskii <eliz@gnu.org>
parents:
26515
diff
changeset
|
382 (set-language-environment lang) |
24563
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
383 (set-selection-coding-system coding-dos) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
384 (setq file-name-coding-system coding-unix) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
385 (set-terminal-coding-system |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
386 (setq default-terminal-coding-system coding-unix)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
387 ;; Assume they support non-ASCII Latin characters like the IBM |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
388 ;; codepage 437 does. |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
389 (IT-display-table-setup "cp437") |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
390 (prefer-coding-system coding-dos) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
391 (if default-enable-multibyte-characters |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
392 (setq unibyte-display-via-language-environment t)) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
393 ))) |
c2f09365ec12
(dos-cpNNN-setup): New function, with the guts
Eli Zaretskii <eliz@gnu.org>
parents:
24490
diff
changeset
|
394 |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
395 ;; We want to delay the terminal and other codepage-related setup |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
396 ;; until after the terminal is set and user's .emacs is processed, |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
397 ;; because people might define their `dos-codepage-setup-hook' there. |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
398 (add-hook 'term-setup-hook 'dos-codepage-setup) |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
399 |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
400 ;; In multibyte mode, we want unibyte buffers to be displayed using |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
401 ;; the terminal coding system, so that they display correctly on the |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
402 ;; DOS terminal; in unibyte mode we want to see all 8-bit characters |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
403 ;; verbatim. In both cases, we want the entire range of 8-bit |
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
404 ;; characters to arrive at our display code verbatim. |
24448
54fa245dc776
(top level): Display character 255 as 8bit as well.
Eli Zaretskii <eliz@gnu.org>
parents:
24261
diff
changeset
|
405 (standard-display-8bit 127 255) |
23918
73c3dcc21ced
(IT-character-translations): New variable, an
Eli Zaretskii <eliz@gnu.org>
parents:
23811
diff
changeset
|
406 |
17517 | 407 ;;; internal.el ends here |
408 |