Mercurial > emacs
annotate lisp/international/latin1-disp.el @ 37747:e5c590c9fe66
(Fsingle_key_description): Replace a build_string with
a make_multibyte_string. From Kenichi Handa <handa@etl.go.jp>.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 16 May 2001 10:49:21 +0000 |
parents | 1d714221177a |
children | 8c0b69283972 |
rev | line source |
---|---|
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
1 ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*- |
31673 | 2 |
36990
1d714221177a
(latin1-char-displayable-p): Add leading "-" for X font pattern.
Miles Bader <miles@gnu.org>
parents:
36050
diff
changeset
|
3 ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. |
31673 | 4 |
5 ;; Author: Dave Love <fx@gnu.org> | |
6 ;; Keywords: i18n | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; Commentary: | |
26 | |
27 ;; This package sets up display of ISO 8859-n for n>1 by substituting | |
28 ;; Latin-1 characters and sequences of them for characters which can't | |
36016 | 29 ;; be displayed, either because we're on a tty or because we don't |
31673 | 30 ;; have the relevant window system fonts available. For instance, |
31 ;; Latin-9 is very similar to Latin-1, so we can display most Latin-9 | |
32 ;; characters using the Latin-1 characters at the same code point and | |
33 ;; fall back on more-or-less mnemonic ASCII sequences for the rest. | |
34 | |
35 ;; For the Latin charsets the ASCII sequences are mostly consistent | |
36 ;; with the Quail prefix input sequences. Latin-4 uses the Quail | |
36049 | 37 ;; postfix sequences since a prefix method isn't defined for Latin-4. |
31673 | 38 |
36049 | 39 ;; [A different approach is taken in the DOS display tables in |
31673 | 40 ;; term/internal.el, and the relevant ASCII sequences from there are |
41 ;; available as an alternative; see `latin1-display-mnemonic'. Only | |
36049 | 42 ;; these sequences are used for Cyrillic, Greek and Hebrew.] |
31673 | 43 |
44 ;; If you don't even have Latin-1, see iso-ascii.el and use the | |
45 ;; complete tables from internal.el. The ASCII sequences used here | |
46 ;; are mostly in the same style as iso-ascii. | |
47 | |
48 ;;; Code: | |
49 | |
35365 | 50 ;; Ensure `standard-display-table' is set up: |
51 (require 'disp-table) | |
52 | |
31673 | 53 (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8 |
54 latin-9 cyrillic greek hebrew) | |
55 "The ISO8859 character sets with defined Latin-1 display sequences. | |
56 These are the nicknames for the sets and correspond to Emacs language | |
57 environments.") | |
58 | |
59 (defgroup latin1-display () | |
60 "Set up display tables for ISO8859 characters using Latin-1." | |
61 :version "21.1" | |
36049 | 62 :link '(emacs-commentary-link "latin1-disp") |
31673 | 63 :group 'i18n) |
64 | |
65 (defcustom latin1-display-format "{%s}" | |
66 "A format string used to display the ASCII sequences. | |
67 The default encloses the sequence in braces, but you could just use | |
68 \"%s\" to avoid the braces." | |
69 :group 'latin1-display | |
70 :type 'string) | |
71 | |
72 ;;;###autoload | |
73 (defcustom latin1-display nil | |
74 "Set up Latin-1/ASCII display for ISO8859 character sets. | |
75 This is done for each character set in the list `latin1-display-sets', | |
76 if no font is available to display it. Characters are displayed using | |
77 the corresponding Latin-1 characters where they match. Otherwise | |
78 ASCII sequences are used, mostly following the Latin prefix input | |
79 methods. Some different ASCII sequences are used if | |
80 `latin1-display-mnemonic' is non-nil. | |
81 | |
82 Setting this variable directly does not take effect; | |
83 use either M-x customize of the function `latin1-display'." | |
84 :group 'latin1-display | |
85 :type 'boolean | |
86 :require 'latin1-disp | |
87 :initialize 'custom-initialize-default | |
88 :set (lambda (symbol value) | |
35365 | 89 (set-default symbol value) |
90 (mapc (if value | |
91 #'latin1-display-setup | |
92 #'latin1-display-reset) | |
93 latin1-display-sets) | |
94 (redraw-display))) | |
31673 | 95 |
96 ;;;###autoload | |
97 (defun latin1-display (&rest sets) | |
98 "Set up Latin-1/ASCII display for the arguments character SETS. | |
99 See option `latin1-display' for the method. The members of the list | |
100 must be in `latin1-display-sets'. With no arguments, reset the | |
101 display for all of `latin1-display-sets'. See also `latin1-display-setup'." | |
102 (if sets | |
36049 | 103 (progn (mapc #'latin1-display-setup sets) |
104 (setq latin1-display t)) | |
105 (mapc #'latin1-display-reset latin1-display-sets) | |
106 (setq latin1-display nil)) | |
107 (redraw-display)) | |
31673 | 108 |
109 (defcustom latin1-display-mnemonic nil | |
110 "Non-nil means to display potentially more mnemonic sequences. | |
111 These are taken from the tables in `internal.el' rather than the Quail | |
112 input sequences." | |
113 :type 'boolean | |
114 :group 'latin1-display) | |
115 | |
116 (defun latin1-display-char (char display &optional alt-display) | |
117 "Make an entry in `standard-display-table' for CHAR using string DISPLAY. | |
118 If ALT-DISPLAY is provided, use that instead if | |
119 `latin1-display-mnemonic' is non-nil. The actual string displayed is | |
120 formatted using `latin1-display-format'." | |
121 (if (and (stringp alt-display) | |
122 latin1-display-mnemonic) | |
123 (setq display alt-display)) | |
124 (if (stringp display) | |
125 (standard-display-ascii char (format latin1-display-format display)) | |
126 (aset standard-display-table char display))) | |
127 | |
128 (defun latin1-display-identities (charset) | |
129 "Display each character in CHARSET as the corresponding Latin-1 character. | |
36049 | 130 CHARSET is a symbol which is the nickname of a language environment |
131 using an ISO8859 character set." | |
31673 | 132 (if (eq charset 'cyrillic) |
133 (setq charset 'cyrillic-iso)) | |
134 (let ((i 32) | |
135 (set (car (remq 'ascii (get-language-info charset 'charset))))) | |
136 (while (<= i 127) | |
137 (aset standard-display-table | |
138 (make-char set i) | |
139 (vector (make-char 'latin-iso8859-1 i))) | |
140 (setq i (1+ i))))) | |
141 | |
142 (defun latin1-display-reset (language) | |
143 "Set up the default display for each character of LANGUAGE's charset. | |
36049 | 144 LANGUAGE is a symbol naming a language environment using an ISO8859 |
31673 | 145 character set." |
146 (if (eq language 'cyrillic) | |
147 (setq language 'cyrillic-iso)) | |
148 (let ((charset (car (remq 'ascii (get-language-info language | |
149 'charset))))) | |
150 (standard-display-default (make-char charset 32) | |
151 (make-char charset 127))) | |
152 (sit-for 0)) | |
153 | |
154 (defun latin1-display-check-font (language) | |
155 "Return non-nil if we have a font with an encoding for LANGUAGE. | |
156 LANGUAGE is a symbol naming a language environment using an ISO8859 | |
157 character set: `latin-2', `hebrew' etc." | |
158 (if (eq language 'cyrillic) | |
159 (setq language 'cyrillic-iso)) | |
32785 | 160 (let* ((info (get-language-info language 'charset)) |
161 (char (make-char (car (remq 'ascii info)) ?\ ))) | |
162 (latin1-char-displayable-p char))) | |
163 | |
164 ;; This should be moved into mule-utils or somewhere after 21.1. | |
165 (defun latin1-char-displayable-p (char) | |
166 (cond ((< char 256) | |
167 ;; Single byte characters are always displayable. | |
168 t) | |
32997
00c403ac9e5e
(latin1-char-displayable-p): Don't
Dave Love <fx@gnu.org>
parents:
32785
diff
changeset
|
169 ((display-multi-font-p) |
32785 | 170 ;; On a window system, a character is displayable if we have |
171 ;; a font for that character in the default face of the | |
172 ;; currently selected frame. | |
173 (let ((fontset (frame-parameter (selected-frame) 'font)) | |
174 font-pattern) | |
175 (if (query-fontset fontset) | |
176 (setq font-pattern (fontset-font fontset char))) | |
177 (or font-pattern | |
178 (setq font-pattern (fontset-font "fontset-default" char))) | |
179 (if font-pattern | |
180 (progn | |
181 ;; Now FONT-PATTERN is a string or a cons of family | |
33412 | 182 ;; field pattern and registry field pattern. |
32785 | 183 (or (stringp font-pattern) |
36990
1d714221177a
(latin1-char-displayable-p): Add leading "-" for X font pattern.
Miles Bader <miles@gnu.org>
parents:
36050
diff
changeset
|
184 (setq font-pattern (concat "-" |
1d714221177a
(latin1-char-displayable-p): Add leading "-" for X font pattern.
Miles Bader <miles@gnu.org>
parents:
36050
diff
changeset
|
185 (or (car font-pattern) "*") |
32785 | 186 "-*-" |
187 (cdr font-pattern)))) | |
188 (x-list-fonts font-pattern 'default (selected-frame) 1))))) | |
189 (t | |
190 (let ((coding (terminal-coding-system))) | |
191 (if coding | |
192 (let ((safe-chars (coding-system-get coding 'safe-chars)) | |
193 (safe-charsets (coding-system-get coding 'safe-charsets))) | |
194 (or (and safe-chars | |
195 (aref safe-chars char)) | |
196 (and safe-charsets | |
197 (memq (char-charset char) safe-charsets))))))))) | |
31673 | 198 |
199 (defun latin1-display-setup (set &optional force) | |
200 "Set up Latin-1 display for characters in the given SET. | |
201 SET must be a member of `latin1-display-sets'. Normally, check | |
202 whether a font for SET is available and don't set the display if it | |
203 is. If FORCE is non-nil, set up the display regardless." | |
204 (cond | |
205 ((eq set 'latin-2) | |
206 (when (or force | |
207 (not (latin1-display-check-font set))) | |
208 (latin1-display-identities set) | |
209 (mapc | |
210 (lambda (l) | |
211 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
212 '((? "'C" "C'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
213 (? "'D" "/D") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
214 (? "'S" "S'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
215 (? "'c" "c'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
216 (? "'d" "/d") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
217 (? "'L" "L'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
218 (? "'n" "n'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
219 (? "'N" "N'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
220 (? "'r" "r'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
221 (? "'R" "R'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
222 (? "'s" "s'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
223 (? "'z" "z'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
224 (? "'Z" "Z'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
225 (? "`A" "A;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
226 (? "`E" "E;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
227 (? "`L" "/L") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
228 (? "`S" ",S") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
229 (? "`T" ",T") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
230 (? "`Z" "Z^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
231 (? "`a" "a;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
232 (? "`l" "/l") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
233 (? "`e" "e;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
234 (? "`s" ",s") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
235 (? "`t" ",t") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
236 (? "`z" "z^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
237 (? "`." "'.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
238 (? "~A" "A(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
239 (? "~C" "C<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
240 (? "~D" "D<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
241 (? "~E" "E<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
242 (? "~e" "e<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
243 (? "~L" "L<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
244 (? "~N" "N<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
245 (? "~O" "O''") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
246 (? "~R" "R<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
247 (? "~S" "S<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
248 (? "~T" "T<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
249 (? "~U" "U''") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
250 (? "~Z" "Z<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
251 (? "~a" "a(}") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
252 (? "~c" "c<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
253 (? "~d" "d<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
254 (? "~l" "l<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
255 (? "~n" "n<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
256 (? "~o" "o''") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
257 (? "~r" "r<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
258 (? "~s" "s<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
259 (? "~t" "t<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
260 (? "~u" "u''") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
261 (? "~z" "z<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
262 (? "~v" "'<") ; ? in latin-pre |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
263 (? "~~" "'(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
264 (? "uu" "u^0") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
265 (? "UU" "U^0") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
266 (? "\"A") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
267 (? "\"a") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
268 (? "\"E" "E:") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
269 (? "\"e") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
270 (? "''" "'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
271 (? "'<") ; Lynx's rendering of caron |
31673 | 272 )))) |
273 | |
274 ((eq set 'latin-3) | |
275 (when (or force | |
276 (not (latin1-display-check-font set))) | |
277 (latin1-display-identities set) | |
278 (mapc | |
279 (lambda (l) | |
280 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
281 '((? "/H") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
282 (? "~`" "'(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
283 (? "^H" "H^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
284 (? "^h" "h^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
285 (? ".I" "I^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
286 (? ",S") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
287 (? "~G" "G(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
288 (? "^J" "J^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
289 (? ".Z" "Z^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
290 (? "/h") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
291 (? ".i" "i^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
292 (? ",s") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
293 (? "~g" "g(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
294 (? "^j" "j^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
295 (? ".Z" "z^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
296 (? ".c" "C^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
297 (? "^C" "C^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
298 (? ".G" "G^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
299 (? "^G" "G^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
300 (? "~U" "U(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
301 (? "^S" "S^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
302 (? ".C" "c^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
303 (? "^c" "c^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
304 (? ".g" "g^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
305 (? "^g" "g^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
306 (? "~u" "u(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
307 (? "^s" "s^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
308 (? "/." "^."))))) |
31673 | 309 |
310 ((eq set 'latin-4) | |
311 (when (or force | |
312 (not (latin1-display-check-font set))) | |
313 (latin1-display-identities set) | |
314 (mapc | |
315 (lambda (l) | |
316 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
317 '((? "A," "A;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
318 (? "k/" "kk") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
319 (? "R," ",R") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
320 (? "I~" "?I") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
321 (? "L," ",L") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
322 (? "S~" "S<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
323 (? "E-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
324 (? "G," ",G") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
325 (? "T/" "/T") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
326 (? "Z~" "Z<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
327 (? "a," "a;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
328 (? "';") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
329 (? "r," ",r") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
330 (? "i~" "~i") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
331 (? "l," ",l") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
332 (? "'<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
333 (? "s~" "s<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
334 (? "e-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
335 (? "g," ",g") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
336 (? "t/" "/t") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
337 (? "N/" "NG") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
338 (? "z~" "z<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
339 (? "n/" "ng") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
340 (? "A-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
341 (? "I," "I;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
342 (? "C~" "C<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
343 (? "E," "E;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
344 (? "E." "E^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
345 (? "I-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
346 (? "N," ",N") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
347 (? "O-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
348 (? "K," ",K") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
349 (? "U," "U;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
350 (? "U~" "~U") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
351 (? "U-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
352 (? "a-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
353 (? "i," "i;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
354 (? "c~" "c<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
355 (? "e," "e;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
356 (? "e." "e^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
357 (? "i-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
358 (? "d/" "/d") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
359 (? "n," ",n") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
360 (? "o-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
361 (? "k," ",k") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
362 (? "u," "u;") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
363 (? "u~" "~u") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
364 (? "u-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
365 (? "^."))))) |
31673 | 366 |
367 ((eq set 'latin-5) | |
368 (when (or force | |
369 (not (latin1-display-check-font set))) | |
370 (latin1-display-identities set) | |
371 (mapc | |
372 (lambda (l) | |
373 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
374 '((? "~g" "g(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
375 (? "~G" "G(") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
376 (? ".I" "I^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
377 (? ",s") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
378 (? ",S") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
379 (? "^e" "e<") ; from latin-post |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
380 (? ".e" "e^.") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
381 (? "\"i" "i-") ; from latin-post |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
382 (? ".i" "i."))))) |
31673 | 383 |
384 ((eq set 'latin-8) | |
385 (when (or force | |
386 (not (latin1-display-check-font set))) | |
387 (latin1-display-identities set) | |
388 (mapc | |
389 (lambda (l) | |
390 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
391 '((? ".B" "B`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
392 (? ".b" "b`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
393 (? ".c" "c`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
394 (? ".C" "C`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
395 (? ".D" "D`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
396 (? ".d" "d`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
397 (? "`w") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
398 (? "`W") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
399 (? "'w" "w'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
400 (? "'W" "W'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
401 (? "`y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
402 (? "`Y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
403 (? ".f" "f`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
404 (? ".F" "F`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
405 (? ".g" "g`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
406 (? ".G" "G`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
407 (? ".m" "m`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
408 (? ".M" "M`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
409 (? ".p" "p`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
410 (? ".P" "P`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
411 (? ".s" "s`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
412 (? ".S" "S`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
413 (? "\"w") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
414 (? "\"W") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
415 (? "^w" "w^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
416 (? "^W" "W^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
417 (? ".t" "t`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
418 (? ".T" "T`") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
419 (? "^y" "y^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
420 (? "^Y" "Y^") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
421 (? "\"Y"))))) |
31673 | 422 |
423 ((eq set 'latin-9) | |
424 (when (or force | |
425 (not (latin1-display-check-font set))) | |
426 (latin1-display-identities set) | |
427 (mapc | |
428 (lambda (l) | |
429 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
430 '((? "~s" "s<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
431 (? "~S" "S<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
432 (? "Euro" "E=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
433 (? "~z" "z<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
434 (? "~Z" "Z<") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
435 (? "\"Y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
436 (? "oe") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
437 (? "OE"))))) |
31673 | 438 |
439 ((eq set 'greek) | |
440 (when (or force | |
441 (not (latin1-display-check-font set))) | |
442 (mapc | |
443 (lambda (l) | |
444 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
445 '((? "9'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
446 (? "'9") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
447 (? "-M") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
448 (? "'%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
449 (? "'A") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
450 (? "'E") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
451 (? "'H") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
452 (? "'I") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
453 (? "'O") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
454 (? "'Y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
455 (? "W%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
456 (? "i3") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
457 (? "G*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
458 (? "D*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
459 (? "TH") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
460 (? "L*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
461 (? "C*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
462 (? "P*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
463 (? "S*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
464 (? "F*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
465 (? "Q*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
466 (? "W*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
467 (? "\"I") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
468 (? "\"Y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
469 (? "a%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
470 (? "e%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
471 (? "y%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
472 (? "i%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
473 (? "u3") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
474 (? "a*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
475 (? "b*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
476 (? "g*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
477 (? "d*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
478 (? "e*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
479 (? "z*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
480 (? "y*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
481 (? "h*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
482 (? "i*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
483 (? "k") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
484 (? "l*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
485 (? "m*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
486 (? "n*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
487 (? "c*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
488 (? "p*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
489 (? "r*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
490 (? "*s") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
491 (? "s*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
492 (? "t*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
493 (? "u") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
494 (? "f*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
495 (? "x*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
496 (? "q*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
497 (? "w*") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
498 (? "\"i") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
499 (? "\"u") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
500 (? "'o") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
501 (? "'u") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
502 (? "'w"))) |
31673 | 503 (mapc |
504 (lambda (l) | |
505 (aset standard-display-table (car l) (string-to-vector (cadr l)))) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
506 '((? "A") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
507 (? "B") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
508 (? "E") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
509 (? "Z") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
510 (? "H") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
511 (? "I") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
512 (? "J") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
513 (? "M") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
514 (? "N") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
515 (? "O") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
516 (? "P") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
517 (? "T") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
518 (? "Y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
519 (? "X") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
520 (? "o"))))) |
31673 | 521 |
522 ((eq set 'hebrew) | |
523 (when (or force | |
524 (not (latin1-display-check-font set))) | |
525 ;; Don't start with identities, since we don't have definitions | |
526 ;; for a lot of Hebrew in internal.el. (Intlfonts is also | |
527 ;; missing some glyphs.) | |
528 (let ((i 34)) | |
529 (while (<= i 62) | |
530 (aset standard-display-table | |
531 (make-char 'hebrew-iso8859-8 i) | |
532 (vector (make-char 'latin-iso8859-1 i))) | |
533 (setq i (1+ i)))) | |
534 (mapc | |
535 (lambda (l) | |
536 (aset standard-display-table (car l) (string-to-vector (cadr l)))) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
537 '((? "=2") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
538 (? "A+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
539 (? "B+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
540 (? "G+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
541 (? "D+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
542 (? "H+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
543 (? "W+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
544 (? "Z+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
545 (? "X+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
546 (? "Tj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
547 (? "J+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
548 (? "K%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
549 (? "K+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
550 (? "L+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
551 (? "M%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
552 (? "M+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
553 (? "N%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
554 (? "N+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
555 (? "S+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
556 (? "E+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
557 (? "P%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
558 (? "P+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
559 (? "Zj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
560 (? "ZJ") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
561 (? "Q+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
562 (? "R+") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
563 (? "Sh") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
564 (? "T+"))))) |
31673 | 565 |
566 ((eq set 'cyrillic) | |
567 (setq set 'cyrillic-iso) | |
568 (when (or force | |
569 (not (latin1-display-check-font set))) | |
570 (mapc | |
571 (lambda (l) | |
572 (apply 'latin1-display-char l)) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
573 '((? "Dj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
574 (? "Gj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
575 (? "IE") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
576 (? "Lj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
577 (? "Nj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
578 (? "Ts") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
579 (? "Kj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
580 (? "V%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
581 (? "Dzh") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
582 (? "B=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
583 (? "") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
584 (? "D") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
585 (? "Z%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
586 (? "3") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
587 (? "U") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
588 (? "J=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
589 (? "L=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
590 (? "P=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
591 (? "Y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
592 (? "") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
593 (? "C=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
594 (? "C%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
595 (? "S%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
596 (? "Sc") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
597 (? "=\"") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
598 (? "Y=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
599 (? "%\"") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
600 (? "Ee") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
601 (? "Yu") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
602 (? "Ya") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
603 (? "b") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
604 (? "v=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
605 (? "g=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
606 (? "g") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
607 (? "z%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
608 (? "z=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
609 (? "u") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
610 (? "j=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
611 (? "k") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
612 (? "l=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
613 (? "m=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
614 (? "n=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
615 (? "n") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
616 (? "p") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
617 (? "t=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
618 (? "f=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
619 (? "c=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
620 (? "c%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
621 (? "s%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
622 (? "sc") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
623 (? "='") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
624 (? "y=") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
625 (? "%'") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
626 (? "ee") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
627 (? "yu") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
628 (? "ya") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
629 (? "N0") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
630 (? "dj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
631 (? "gj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
632 (? "ie") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
633 (? "lj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
634 (? "nj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
635 (? "ts") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
636 (? "kj") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
637 (? "v%") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
638 (? "dzh"))) |
31673 | 639 (mapc |
640 (lambda (l) | |
641 (aset standard-display-table (car l) (string-to-vector (cadr l)))) | |
36050
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
642 '((? "") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
643 (? "S") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
644 (? "I") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
645 (? "") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
646 (? "J") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
647 (? "") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
648 (? "") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
649 (? "-") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
650 (? "A") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
651 (? "B") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
652 (? "E") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
653 (? "K") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
654 (? "M") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
655 (? "H") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
656 (? "O") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
657 (? "P") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
658 (? "C") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
659 (? "T") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
660 (? "X") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
661 (? "a") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
662 (? "e") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
663 (? "o") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
664 (? "c") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
665 (? "y") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
666 (? "x") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
667 (? "s") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
668 (? "i") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
669 (? "") |
8bc87faaa40f
Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents:
36049
diff
changeset
|
670 (? "j"))))) |
31673 | 671 |
672 (t (error "Unsupported character set: %S" set))) | |
673 | |
674 (sit-for 0)) | |
675 | |
676 (provide 'latin1-disp) | |
677 | |
678 ;;; latin1-disp.el ends here |