aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2001-02-12 18:46:02 +0000
committerDave Love2001-02-12 18:46:02 +0000
commit19be0f52b1ffbd1e5ae3ec7a31854c809b38cf82 (patch)
tree1d24bf86b6e44ca295c50ed9589f29e497217d62
parent4c813282bfc2ef686926bb6a9c764d9fc4f11752 (diff)
downloademacs-19be0f52b1ffbd1e5ae3ec7a31854c809b38cf82.tar.gz
emacs-19be0f52b1ffbd1e5ae3ec7a31854c809b38cf82.zip
Undo coding change, which screwed up somehow.
-rw-r--r--lisp/international/latin1-disp.el764
1 files changed, 382 insertions, 382 deletions
diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 0bcf85cd01c..49678cc9518 100644
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -1,4 +1,4 @@
1;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: iso-2022-7bit -*- 1;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*-
2 2
3;; Copyright (C) 2000 Free Software Foundation, Inc. 3;; Copyright (C) 2000 Free Software Foundation, Inc.
4 4
@@ -208,66 +208,66 @@ is. If FORCE is non-nil, set up the display regardless."
208 (mapc 208 (mapc
209 (lambda (l) 209 (lambda (l)
210 (apply 'latin1-display-char l)) 210 (apply 'latin1-display-char l))
211 '((?,BF(B "'C" "C'") 211 '((? "'C" "C'")
212 (?,BP(B "'D" "/D") 212 (? "'D" "/D")
213 (?,B&(B "'S" "S'") 213 (? "'S" "S'")
214 (?,Bf(B "'c" "c'") 214 (? "'c" "c'")
215 (?,Bp(B "'d" "/d") 215 (? "'d" "/d")
216 (?,BE(B "'L" "L'") 216 (? "'L" "L'")
217 (?,Bq(B "'n" "n'") 217 (? "'n" "n'")
218 (?,BQ(B "'N" "N'") 218 (? "'N" "N'")
219 (?,B`(B "'r" "r'") 219 (? "'r" "r'")
220 (?,B@(B "'R" "R'") 220 (? "'R" "R'")
221 (?,B6(B "'s" "s'") 221 (? "'s" "s'")
222 (?,B<(B "'z" "z'") 222 (? "'z" "z'")
223 (?,B,(B "'Z" "Z'") 223 (? "'Z" "Z'")
224 (?,B!(B "`A" "A;") 224 (? "`A" "A;")
225 (?,BJ(B "`E" "E;") 225 (? "`E" "E;")
226 (?,B#(B "`L" "/L") 226 (? "`L" "/L")
227 (?,B*(B "`S" ",S") 227 (? "`S" ",S")
228 (?,B^(B "`T" ",T") 228 (? "`T" ",T")
229 (?,B/(B "`Z" "Z^.") 229 (? "`Z" "Z^.")
230 (?,B1(B "`a" "a;") 230 (? "`a" "a;")
231 (?,B3(B "`l" "/l") 231 (? "`l" "/l")
232 (?,Bj(B "`e" "e;") 232 (? "`e" "e;")
233 (?,B:(B "`s" ",s") 233 (? "`s" ",s")
234 (?,B~(B "`t" ",t") 234 (? "`t" ",t")
235 (?,B?(B "`z" "z^.") 235 (? "`z" "z^.")
236 (?,B(B "`." "'.") 236 (? "`." "'.")
237 (?,BC(B "~A" "A(") 237 (? "~A" "A(")
238 (?,BH(B "~C" "C<") 238 (? "~C" "C<")
239 (?,BO(B "~D" "D<") 239 (? "~D" "D<")
240 (?,BL(B "~E" "E<") 240 (? "~E" "E<")
241 (?,Bl(B "~e" "e<") 241 (? "~e" "e<")
242 (?,B%(B "~L" "L<") 242 (? "~L" "L<")
243 (?,BR(B "~N" "N<") 243 (? "~N" "N<")
244 (?,BU(B "~O" "O''") 244 (? "~O" "O''")
245 (?,BX(B "~R" "R<") 245 (? "~R" "R<")
246 (?,B)(B "~S" "S<") 246 (? "~S" "S<")
247 (?,B+(B "~T" "T<") 247 (? "~T" "T<")
248 (?,B[(B "~U" "U''") 248 (? "~U" "U''")
249 (?,B.(B "~Z" "Z<") 249 (? "~Z" "Z<")
250 (?,Bc(B "~a" "a(}") 250 (? "~a" "a(}")
251 (?,Bh(B "~c" "c<") 251 (? "~c" "c<")
252 (?,Bo(B "~d" "d<") 252 (? "~d" "d<")
253 (?,B5(B "~l" "l<") 253 (? "~l" "l<")
254 (?,Br(B "~n" "n<") 254 (? "~n" "n<")
255 (?,Bu(B "~o" "o''") 255 (? "~o" "o''")
256 (?,Bx(B "~r" "r<") 256 (? "~r" "r<")
257 (?,B9(B "~s" "s<") 257 (? "~s" "s<")
258 (?,B;(B "~t" "t<") 258 (? "~t" "t<")
259 (?,B{(B "~u" "u''") 259 (? "~u" "u''")
260 (?,B>(B "~z" "z<") 260 (? "~z" "z<")
261 (?,B7(B "~v" "'<") ; ?,B"(B in latin-pre 261 (? "~v" "'<") ; ? in latin-pre
262 (?,B"(B "~~" "'(") 262 (? "~~" "'(")
263 (?,By(B "uu" "u^0") 263 (? "uu" "u^0")
264 (?,BY(B "UU" "U^0") 264 (? "UU" "U^0")
265 (?,BD(B "\"A") 265 (? "\"A")
266 (?,Bd(B "\"a") 266 (? "\"a")
267 (?,BK(B "\"E" "E:") 267 (? "\"E" "E:")
268 (?,Bk(B "\"e") 268 (? "\"e")
269 (?,B=(B "''" "'") 269 (? "''" "'")
270 (?,B7(B "'<") ; Lynx's rendering of caron 270 (? "'<") ; Lynx's rendering of caron
271 )))) 271 ))))
272 272
273 ((eq set 'latin-3) 273 ((eq set 'latin-3)
@@ -277,34 +277,34 @@ is. If FORCE is non-nil, set up the display regardless."
277 (mapc 277 (mapc
278 (lambda (l) 278 (lambda (l)
279 (apply 'latin1-display-char l)) 279 (apply 'latin1-display-char l))
280 '((?,C!(B "/H") 280 '((?Γ "/H")
281 (?,C"(B "~`" "'(") 281 (?Δ "~`" "'(")
282 (?,C&(B "^H" "H^") 282 (?Θ "^H" "H^")
283 (?,C6(B "^h" "h^") 283 (?Ω "^h" "h^")
284 (?,C)(B ".I" "I^.") 284 (?Λ ".I" "I^.")
285 (?,C*(B ",S") 285 (?Μ ",S")
286 (?,C+(B "~G" "G(") 286 (?Ν "~G" "G(")
287 (?,C,(B "^J" "J^") 287 (?Ξ "^J" "J^")
288 (?,C/(B ".Z" "Z^.") 288 (?Ρ ".Z" "Z^.")
289 (?,C1(B "/h") 289 (?Τ "/h")
290 (?,C9(B ".i" "i^.") 290 (? ".i" "i^.")
291 (?,C:(B ",s") 291 (? ",s")
292 (?,C;(B "~g" "g(") 292 (? "~g" "g(")
293 (?,C<(B "^j" "j^") 293 (? "^j" "j^")
294 (?,C?(B ".Z" "z^.") 294 (?α ".Z" "z^.")
295 (?,CE(B ".c" "C^.") 295 (?η ".c" "C^.")
296 (?,CF(B "^C" "C^") 296 (?θ "^C" "C^")
297 (?,CU(B ".G" "G^.") 297 (?ψ ".G" "G^.")
298 (?,CX(B "^G" "G^") 298 (? "^G" "G^")
299 (?,C](B "~U" "U(") 299 (? "~U" "U(")
300 (?,C^(B "^S" "S^") 300 (? "^S" "S^")
301 (?,Ce(B ".C" "c^.") 301 (? ".C" "c^.")
302 (?,Cf(B "^c" "c^") 302 (? "^c" "c^")
303 (?,Cu(B ".g" "g^.") 303 (? ".g" "g^.")
304 (?,Cx(B "^g" "g^") 304 (? "^g" "g^")
305 (?,C}(B "~u" "u(") 305 (? "~u" "u(")
306 (?,C~(B "^s" "s^") 306 (? "^s" "s^")
307 (?,C(B "/." "^."))))) 307 (? "/." "^.")))))
308 308
309 ((eq set 'latin-4) 309 ((eq set 'latin-4)
310 (when (or force 310 (when (or force
@@ -313,55 +313,55 @@ is. If FORCE is non-nil, set up the display regardless."
313 (mapc 313 (mapc
314 (lambda (l) 314 (lambda (l)
315 (apply 'latin1-display-char l)) 315 (apply 'latin1-display-char l))
316 '((?,D!(B "A," "A;") 316 '((? "A," "A;")
317 (?,D"(B "k/" "kk") 317 (? "k/" "kk")
318 (?,D#(B "R," ",R") 318 (? "R," ",R")
319 (?,D%(B "I~" "?I") 319 (? "I~" "?I")
320 (?,D&(B "L," ",L") 320 (? "L," ",L")
321 (?,D)(B "S~" "S<") 321 (? "S~" "S<")
322 (?,D*(B "E-") 322 (? "E-")
323 (?,D+(B "G," ",G") 323 (? "G," ",G")
324 (?,D,(B "T/" "/T") 324 (? "T/" "/T")
325 (?,D.(B "Z~" "Z<") 325 (? "Z~" "Z<")
326 (?,D1(B "a," "a;") 326 (? "a," "a;")
327 (?,D2(B "';") 327 (? "';")
328 (?,D3(B "r," ",r") 328 (? "r," ",r")
329 (?,D5(B "i~" "~i") 329 (? "i~" "~i")
330 (?,D6(B "l," ",l") 330 (? "l," ",l")
331 (?,D7(B "'<") 331 (? "'<")
332 (?,D9(B "s~" "s<") 332 (? "s~" "s<")
333 (?,D:(B "e-") 333 (? "e-")
334 (?,D;(B "g," ",g") 334 (? "g," ",g")
335 (?,D<(B "t/" "/t") 335 (? "t/" "/t")
336 (?,D=(B "N/" "NG") 336 (? "N/" "NG")
337 (?,D>(B "z~" "z<") 337 (? "z~" "z<")
338 (?,D?(B "n/" "ng") 338 (?ソ "n/" "ng")
339 (?,D@(B "A-") 339 (? "A-")
340 (?,DG(B "I," "I;") 340 (? "I," "I;")
341 (?,DH(B "C~" "C<") 341 (? "C~" "C<")
342 (?,DJ(B "E," "E;") 342 (? "E," "E;")
343 (?,DL(B "E." "E^.") 343 (? "E." "E^.")
344 (?,DO(B "I-") 344 (? "I-")
345 (?,DQ(B "N," ",N") 345 (? "N," ",N")
346 (?,DR(B "O-") 346 (? "O-")
347 (?,DS(B "K," ",K") 347 (? "K," ",K")
348 (?,DY(B "U," "U;") 348 (? "U," "U;")
349 (?,D](B "U~" "~U") 349 (? "U~" "~U")
350 (?,D^(B "U-") 350 (? "U-")
351 (?,D`(B "a-") 351 (? "a-")
352 (?,Dg(B "i," "i;") 352 (? "i," "i;")
353 (?,Dh(B "c~" "c<") 353 (? "c~" "c<")
354 (?,Dj(B "e," "e;") 354 (? "e," "e;")
355 (?,Dl(B "e." "e^.") 355 (? "e." "e^.")
356 (?,Do(B "i-") 356 (? "i-")
357 (?,Dp(B "d/" "/d") 357 (? "d/" "/d")
358 (?,Dq(B "n," ",n") 358 (? "n," ",n")
359 (?,Dr(B "o-") 359 (? "o-")
360 (?,Ds(B "k," ",k") 360 (? "k," ",k")
361 (?,Dy(B "u," "u;") 361 (? "u," "u;")
362 (?,D}(B "u~" "~u") 362 (? "u~" "~u")
363 (?,D~(B "u-") 363 (? "u-")
364 (?,D(B "^."))))) 364 (? "^.")))))
365 365
366 ((eq set 'latin-5) 366 ((eq set 'latin-5)
367 (when (or force 367 (when (or force
@@ -370,15 +370,15 @@ is. If FORCE is non-nil, set up the display regardless."
370 (mapc 370 (mapc
371 (lambda (l) 371 (lambda (l)
372 (apply 'latin1-display-char l)) 372 (apply 'latin1-display-char l))
373 '((?,Mp(B "~g" "g(") 373 '((? "~g" "g(")
374 (?,MP(B "~G" "G(") 374 (? "~G" "G(")
375 (?,M](B ".I" "I^.") 375 (? ".I" "I^.")
376 (?,M~(B ",s") 376 (? ",s")
377 (?,M^(B ",S") 377 (? ",S")
378 (?,Mj(B "^e" "e<") ; from latin-post 378 (? "^e" "e<") ; from latin-post
379 (?,Ml(B ".e" "e^.") 379 (? ".e" "e^.")
380 (?,Mo(B "\"i" "i-") ; from latin-post 380 (? "\"i" "i-") ; from latin-post
381 (?,M}(B ".i" "i."))))) 381 (? ".i" "i.")))))
382 382
383 ((eq set 'latin-8) 383 ((eq set 'latin-8)
384 (when (or force 384 (when (or force
@@ -387,37 +387,37 @@ is. If FORCE is non-nil, set up the display regardless."
387 (mapc 387 (mapc
388 (lambda (l) 388 (lambda (l)
389 (apply 'latin1-display-char l)) 389 (apply 'latin1-display-char l))
390 '((?,_!(B ".B" "B`") 390 '((? ".B" "B`")
391 (?,_"(B ".b" "b`") 391 (? ".b" "b`")
392 (?,_%(B ".c" "c`") 392 (? ".c" "c`")
393 (?,_$(B ".C" "C`") 393 (? ".C" "C`")
394 (?,_&(B ".D" "D`") 394 (? ".D" "D`")
395 (?,_+(B ".d" "d`") 395 (? ".d" "d`")
396 (?,_8(B "`w") 396 (? "`w")
397 (?,_((B "`W") 397 (? "`W")
398 (?,_:(B "'w" "w'") 398 (? "'w" "w'")
399 (?,_*(B "'W" "W'") 399 (? "'W" "W'")
400 (?,_<(B "`y") 400 (? "`y")
401 (?,_,(B "`Y") 401 (? "`Y")
402 (?,_1(B ".f" "f`") 402 (? ".f" "f`")
403 (?,_0(B ".F" "F`") 403 (? ".F" "F`")
404 (?,_3(B ".g" "g`") 404 (? ".g" "g`")
405 (?,_2(B ".G" "G`") 405 (? ".G" "G`")
406 (?,_5(B ".m" "m`") 406 (? ".m" "m`")
407 (?,_4(B ".M" "M`") 407 (? ".M" "M`")
408 (?,_9(B ".p" "p`") 408 (? ".p" "p`")
409 (?,_7(B ".P" "P`") 409 (? ".P" "P`")
410 (?,_?(B ".s" "s`") 410 (? ".s" "s`")
411 (?,_;(B ".S" "S`") 411 (? ".S" "S`")
412 (?,_>(B "\"w") 412 (? "\"w")
413 (?,_=(B "\"W") 413 (? "\"W")
414 (?,_p(B "^w" "w^") 414 (? "^w" "w^")
415 (?,_P(B "^W" "W^") 415 (? "^W" "W^")
416 (?,_w(B ".t" "t`") 416 (? ".t" "t`")
417 (?,_W(B ".T" "T`") 417 (? ".T" "T`")
418 (?,_~(B "^y" "y^") 418 (? "^y" "y^")
419 (?,_^(B "^Y" "Y^") 419 (? "^Y" "Y^")
420 (?,_/(B "\"Y"))))) 420 (? "\"Y")))))
421 421
422 ((eq set 'latin-9) 422 ((eq set 'latin-9)
423 (when (or force 423 (when (or force
@@ -426,14 +426,14 @@ is. If FORCE is non-nil, set up the display regardless."
426 (mapc 426 (mapc
427 (lambda (l) 427 (lambda (l)
428 (apply 'latin1-display-char l)) 428 (apply 'latin1-display-char l))
429 '((?,b((B "~s" "s<") 429 '((? "~s" "s<")
430 (?,b&(B "~S" "S<") 430 (? "~S" "S<")
431 (?,b$(B "Euro" "E=") 431 (? "Euro" "E=")
432 (?,b8(B "~z" "z<") 432 (? "~z" "z<")
433 (?,b4(B "~Z" "Z<") 433 (? "~Z" "Z<")
434 (?,b>(B "\"Y") 434 (? "\"Y")
435 (?,b=(B "oe") 435 (? "oe")
436 (?,b<(B "OE"))))) 436 (?湿 "OE")))))
437 437
438 ((eq set 'greek) 438 ((eq set 'greek)
439 (when (or force 439 (when (or force
@@ -441,82 +441,82 @@ is. If FORCE is non-nil, set up the display regardless."
441 (mapc 441 (mapc
442 (lambda (l) 442 (lambda (l)
443 (apply 'latin1-display-char l)) 443 (apply 'latin1-display-char l))
444 '((?,F!(B "9'") 444 '((? "9'")
445 (?,F"(B "'9") 445 (? "'9")
446 (?,F/(B "-M") 446 (? "-M")
447 (?,F5(B "'%") 447 (? "'%")
448 (?,F6(B "'A") 448 (? "'A")
449 (?,F8(B "'E") 449 (? "'E")
450 (?,F9(B "'H") 450 (? "'H")
451 (?,F:(B "'I") 451 (? "'I")
452 (?,F<(B "'O") 452 (? "'O")
453 (?,F>(B "'Y") 453 (? "'Y")
454 (?,F?(B "W%") 454 (?ソ "W%")
455 (?,F@(B "i3") 455 (? "i3")
456 (?,FC(B "G*") 456 (? "G*")
457 (?,FD(B "D*") 457 (? "D*")
458 (?,FH(B "TH") 458 (? "TH")
459 (?,FK(B "L*") 459 (? "L*")
460 (?,FN(B "C*") 460 (? "C*")
461 (?,FP(B "P*") 461 (? "P*")
462 (?,FS(B "S*") 462 (? "S*")
463 (?,FV(B "F*") 463 (? "F*")
464 (?,FX(B "Q*") 464 (? "Q*")
465 (?,FY(B "W*") 465 (? "W*")
466 (?,FZ(B "\"I") 466 (? "\"I")
467 (?,F[(B "\"Y") 467 (? "\"Y")
468 (?,F\(B "a%") 468 (? "a%")
469 (?,F](B "e%") 469 (? "e%")
470 (?,F^(B "y%") 470 (? "y%")
471 (?,F_(B "i%") 471 (? "i%")
472 (?,F`(B "u3") 472 (? "u3")
473 (?,Fa(B "a*") 473 (? "a*")
474 (?,Fb(B "b*") 474 (? "b*")
475 (?,Fc(B "g*") 475 (? "g*")
476 (?,Fd(B "d*") 476 (? "d*")
477 (?,Fe(B "e*") 477 (? "e*")
478 (?,Ff(B "z*") 478 (? "z*")
479 (?,Fg(B "y*") 479 (? "y*")
480 (?,Fh(B "h*") 480 (? "h*")
481 (?,Fi(B "i*") 481 (? "i*")
482 (?,Fj(B "k") 482 (? "k")
483 (?,Fk(B "l*") 483 (? "l*")
484 (?,Fl(B "m*") 484 (? "m*")
485 (?,Fm(B "n*") 485 (? "n*")
486 (?,Fn(B "c*") 486 (? "c*")
487 (?,Fp(B "p*") 487 (? "p*")
488 (?,Fq(B "r*") 488 (? "r*")
489 (?,Fr(B "*s") 489 (? "*s")
490 (?,Fs(B "s*") 490 (? "s*")
491 (?,Ft(B "t*") 491 (? "t*")
492 (?,Fu(B "u") 492 (? "u")
493 (?,Fv(B "f*") 493 (? "f*")
494 (?,Fw(B "x*") 494 (? "x*")
495 (?,Fx(B "q*") 495 (? "q*")
496 (?,Fy(B "w*") 496 (? "w*")
497 (?,Fz(B "\"i") 497 (? "\"i")
498 (?,F{(B "\"u") 498 (? "\"u")
499 (?,F|(B "'o") 499 (? "'o")
500 (?,F}(B "'u") 500 (? "'u")
501 (?,F~(B "'w"))) 501 (? "'w")))
502 (mapc 502 (mapc
503 (lambda (l) 503 (lambda (l)
504 (aset standard-display-table (car l) (string-to-vector (cadr l)))) 504 (aset standard-display-table (car l) (string-to-vector (cadr l))))
505 '((?,FA(B "A") 505 '((? "A")
506 (?,FB(B "B") 506 (? "B")
507 (?,FE(B "E") 507 (? "E")
508 (?,FF(B "Z") 508 (? "Z")
509 (?,FG(B "H") 509 (? "H")
510 (?,FI(B "I") 510 (? "I")
511 (?,FJ(B "J") 511 (? "J")
512 (?,FL(B "M") 512 (? "M")
513 (?,FM(B "N") 513 (? "N")
514 (?,FO(B "O") 514 (? "O")
515 (?,FQ(B "P") 515 (? "P")
516 (?,FT(B "T") 516 (? "T")
517 (?,FU(B "Y") 517 (? "Y")
518 (?,FW(B "X") 518 (? "X")
519 (?,Fo(B "o"))))) 519 (? "o")))))
520 520
521 ((eq set 'hebrew) 521 ((eq set 'hebrew)
522 (when (or force 522 (when (or force
@@ -533,34 +533,34 @@ is. If FORCE is non-nil, set up the display regardless."
533 (mapc 533 (mapc
534 (lambda (l) 534 (lambda (l)
535 (aset standard-display-table (car l) (string-to-vector (cadr l)))) 535 (aset standard-display-table (car l) (string-to-vector (cadr l))))
536 '((?,H_(B "=2") 536 '((? "=2")
537 (?,H`(B "A+") 537 (? "A+")
538 (?,Ha(B "B+") 538 (? "B+")
539 (?,Hb(B "G+") 539 (? "G+")
540 (?,Hc(B "D+") 540 (? "D+")
541 (?,Hd(B "H+") 541 (? "H+")
542 (?,He(B "W+") 542 (? "W+")
543 (?,Hf(B "Z+") 543 (? "Z+")
544 (?,Hg(B "X+") 544 (? "X+")
545 (?,Hh(B "Tj") 545 (? "Tj")
546 (?,Hi(B "J+") 546 (? "J+")
547 (?,Hj(B "K%") 547 (? "K%")
548 (?,Hk(B "K+") 548 (? "K+")
549 (?,Hl(B "L+") 549 (? "L+")
550 (?,Hm(B "M%") 550 (? "M%")
551 (?,Hn(B "M+") 551 (? "M+")
552 (?,Ho(B "N%") 552 (? "N%")
553 (?,Hp(B "N+") 553 (? "N+")
554 (?,Hq(B "S+") 554 (? "S+")
555 (?,Hr(B "E+") 555 (? "E+")
556 (?,Hs(B "P%") 556 (? "P%")
557 (?,Ht(B "P+") 557 (? "P+")
558 (?,Hu(B "Zj") 558 (? "Zj")
559 (?,Hv(B "ZJ") 559 (? "ZJ")
560 (?,Hw(B "Q+") 560 (? "Q+")
561 (?,Hx(B "R+") 561 (? "R+")
562 (?,Hy(B "Sh") 562 (? "Sh")
563 (?,Hz(B "T+"))))) 563 (? "T+")))))
564 564
565 ((eq set 'cyrillic) 565 ((eq set 'cyrillic)
566 (setq set 'cyrillic-iso) 566 (setq set 'cyrillic-iso)
@@ -569,104 +569,104 @@ is. If FORCE is non-nil, set up the display regardless."
569 (mapc 569 (mapc
570 (lambda (l) 570 (lambda (l)
571 (apply 'latin1-display-char l)) 571 (apply 'latin1-display-char l))
572 '((?,L"(B "Dj") 572 '((? "Dj")
573 (?,L#(B "Gj") 573 (? "Gj")
574 (?,L$(B "IE") 574 (? "IE")
575 (?,L)(B "Lj") 575 (? "Lj")
576 (?,L*(B "Nj") 576 (? "Nj")
577 (?,L+(B "Ts") 577 (? "Ts")
578 (?,L,(B "Kj") 578 (? "Kj")
579 (?,L.(B "V%") 579 (? "V%")
580 (?,L/(B "Dzh") 580 (? "Dzh")
581 (?,L1(B "B=") 581 (? "B=")
582 (?,L3(B "") 582 (? "")
583 (?,L4(B "D") 583 (? "D")
584 (?,L6(B "Z%") 584 (? "Z%")
585 (?,L7(B "3") 585 (? "3")
586 (?,L8(B "U") 586 (? "U")
587 (?,L9(B "J=") 587 (? "J=")
588 (?,L;(B "L=") 588 (? "L=")
589 (?,L?(B "P=") 589 (? "P=")
590 (?,LC(B "Y") 590 (? "Y")
591 (?,LD(B "") 591 (? "")
592 (?,LF(B "C=") 592 (? "C=")
593 (?,LG(B "C%") 593 (? "C%")
594 (?,LH(B "S%") 594 (? "S%")
595 (?,LI(B "Sc") 595 (? "Sc")
596 (?,LJ(B "=\"") 596 (? "=\"")
597 (?,LK(B "Y=") 597 (? "Y=")
598 (?,LL(B "%\"") 598 (? "%\"")
599 (?,LM(B "Ee") 599 (? "Ee")
600 (?,LN(B "Yu") 600 (? "Yu")
601 (?,LO(B "Ya") 601 (? "Ya")
602 (?,LQ(B "b") 602 (? "b")
603 (?,LR(B "v=") 603 (? "v=")
604 (?,LS(B "g=") 604 (? "g=")
605 (?,LT(B "g") 605 (? "g")
606 (?,LV(B "z%") 606 (? "z%")
607 (?,LW(B "z=") 607 (? "z=")
608 (?,LX(B "u") 608 (? "u")
609 (?,LY(B "j=") 609 (? "j=")
610 (?,LZ(B "k") 610 (? "k")
611 (?,L[(B "l=") 611 (? "l=")
612 (?,L\(B "m=") 612 (? "m=")
613 (?,L](B "n=") 613 (? "n=")
614 (?,L_(B "n") 614 (? "n")
615 (?,L`(B "p") 615 (? "p")
616 (?,Lb(B "t=") 616 (? "t=")
617 (?,Ld(B "f=") 617 (? "f=")
618 (?,Lf(B "c=") 618 (? "c=")
619 (?,Lg(B "c%") 619 (? "c%")
620 (?,Lh(B "s%") 620 (? "s%")
621 (?,Li(B "sc") 621 (? "sc")
622 (?,Lj(B "='") 622 (? "='")
623 (?,Lk(B "y=") 623 (? "y=")
624 (?,Ll(B "%'") 624 (? "%'")
625 (?,Lm(B "ee") 625 (? "ee")
626 (?,Ln(B "yu") 626 (? "yu")
627 (?,Lo(B "ya") 627 (? "ya")
628 (?,Lp(B "N0") 628 (? "N0")
629 (?,Lr(B "dj") 629 (? "dj")
630 (?,Ls(B "gj") 630 (? "gj")
631 (?,Lt(B "ie") 631 (? "ie")
632 (?,Ly(B "lj") 632 (? "lj")
633 (?,Lz(B "nj") 633 (? "nj")
634 (?,L{(B "ts") 634 (? "ts")
635 (?,L|(B "kj") 635 (? "kj")
636 (?,L~(B "v%") 636 (? "v%")
637 (?,L(B "dzh"))) 637 (? "dzh")))
638 (mapc 638 (mapc
639 (lambda (l) 639 (lambda (l)
640 (aset standard-display-table (car l) (string-to-vector (cadr l)))) 640 (aset standard-display-table (car l) (string-to-vector (cadr l))))
641 '((?,L!(B ",AK(B") 641 '((? "")
642 (?,L%(B "S") 642 (? "S")
643 (?,L&(B "I") 643 (? "I")
644 (?,L'(B ",AO(B") 644 (? "")
645 (?,L((B "J") 645 (? "J")
646 (?,Lq(B ",Ak(B") 646 (? "")
647 (?,L}(B ",A'(B") 647 (? "")
648 (?,L-(B "-") 648 (? "-")
649 (?,L0(B "A") 649 (? "A")
650 (?,L2(B "B") 650 (? "B")
651 (?,L5(B "E") 651 (? "E")
652 (?,L:(B "K") 652 (? "K")
653 (?,L<(B "M") 653 (? "M")
654 (?,L=(B "H") 654 (? "H")
655 (?,L>(B "O") 655 (? "O")
656 (?,L@(B "P") 656 (? "P")
657 (?,LA(B "C") 657 (? "C")
658 (?,LB(B "T") 658 (? "T")
659 (?,LE(B "X") 659 (? "X")
660 (?,LP(B "a") 660 (? "a")
661 (?,LU(B "e") 661 (? "e")
662 (?,L^(B "o") 662 (? "o")
663 (?,La(B "c") 663 (? "c")
664 (?,Lc(B "y") 664 (? "y")
665 (?,Le(B "x") 665 (? "x")
666 (?,Lu(B "s") 666 (? "s")
667 (?,Lv(B "i") 667 (? "i")
668 (?,Lw(B ",Ao(B") 668 (? "")
669 (?,Lx(B "j"))))) 669 (? "j")))))
670 670
671 (t (error "Unsupported character set: %S" set))) 671 (t (error "Unsupported character set: %S" set)))
672 672