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