Mercurial > emacs

comparison lisp/term/internal.el @ 37969:7f7b1c4d1e67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(IT-unicode-translations): New variable. (IT-setup-unicode-display): New function.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 01 Jun 2001 12:18:39 +0000
parents f022afc9cdcb
children b174db545cfd
comparison
equal deleted inserted replaced
37968:3724056d2cb1 37969:7f7b1c4d1e67
266 (char-to-string glyph) 266 (char-to-string glyph)
267 (if (> (length glyph) 1) (concat "{" glyph "}") 267 (if (> (length glyph) 1) (concat "{" glyph "}")
268 glyph))))) 268 glyph)))))
269 (setq i (1+ i)))) 269 (setq i (1+ i))))
270 (setq surrogates (cdr surrogates))))) 270 (setq surrogates (cdr surrogates)))))
271
272 (defvar IT-unicode-translations
273 '(
274 (mule-unicode-0100-24ff ; charset
275 256 ; base
276 256 563 ; first, last
277 [ "A-" "a-" "A(" "a(" "A;" "a;" "C'" "c'" "C>" "c>" ; Latin Extended-A
278 "C." "c." "C<" "c<" "D<" "d<" "D/" "d/" "E-" "e-"
279 "E(" "e(" "E." "e." "E;" "e;" "E<" "e<" "G>" "g>"
280 "G(" "g(" "G." "g." "G," "g," "H>" "h>" "H/" "h/"
281 "I~" "i~" "I-" "i-" "I(" "i(" "I;" "i;" "I." "i."
282 "IJ" "ij" "J>" "j>" "K," "k," "kk" "L'" "l'" "L,"
283 "l," "L<" "l<" "L." "l." "L/" "l/" "N'" "n'" "N,"
284 "n," "N<" "n<" "'n" "NG" "ng" "O-" "o-" "O(" "o("
285 "O\"" "o\"" "OE" "oe" "R'" "r'" "R," "r," "R<" "r<"
286 "S'" "s'" "S>" "s>" "S," "s," "S<" "s<" "T," "t,"
287 "T<" "t<" "T/" "t/" "U~" "u~" "U-" "u-" "U(" "u("
288 "U0" "u0" "U\"" "u\"" "U;" "u;" "W>" "w>" "Y>" "y>"
289 "Y:" "Z'" "z'" "Z." "z." "Z<" "z<" "s1" ; 017f
290 "b/" "B2" "=B" "=b" "B6" "b6" "!C" "C2" "c2" "-D" ;Lat. Extended-B
291 "D2" "=D" "=d" "!d" "!E" "-E" "Eps" "F2" "f2" "G2"
292 "V0" "hv" "io" "-I" "K2" "k2" "-l" "la-" "!M" "2N"
293 "n_" "-O" "O9" "o9" "OI" "oi" "P2" "p2" "'R" "!S"
294 "!s" "Esh" "!esh" "t~" "T2" "t2" "T~" "U9" "u9" "Ups"
295 "V2" "Y2" "y2" "Z/" "z/" "ED" "!ED" "!ed" "ed;" "2/"
296 "5-" "_5-" "ts" "wn" "|_" "||" "|=" "!_" "DZ<" "Dz<"
297 "dz<" "LJ3" "Lj3" "lj3" "NJ3" "Nj3" "nj3" "A<" "a<" "I<"
298 "i<" "O<" "o<" "U<" "u<" "U:-" "u:-" "U:'" "u:'" "U:<"
299 "u:<" "U:!" "u:!" "e1" "A:-" "a:-" "A.-" "a.-" "AE-" "ae-"
300 "G/" "g/" "G<" "g<" "K<" "k<" "O;" "o;" "O1" "o1"
301 "EZ" "ez" "j<" "DZ3" "Dz3" "dz3" "G'" "g'" "Hv" "Wn"
302 "N`" "n`" "AA'" "aa'" "AE'" "ae'" "O/'" "o/'" "A!!" "a!!"
303 "A)" "a)" "E!!" "e!!" "E)" "e)" "I!!" "i!!" "I)" "i)"
304 "O!!" "o!!" "O)" "o)" "R!!" "r!!" "R)" "r)" "U!!" "u!!"
305 "U)" "u)" ",S" ",s" ",T" ",t" "'3" "'3_" "H<" "h<"
306 nil nil "8" "8_" "Z2" "z2" "A." "a." "E," "e,"
307 "O:-" "o:-" "O~-" "o~-" "O." "o." "O.-" "o.-" "Y-" "y-"] ; 0x233
308
309 )
310
311 (mule-unicode-0100-24ff ; charset
312 256 ; base
313 884 1123 ; first, last
314 [ "'" "," nil nil nil nil "j3" nil nil nil ; Greek
315 "?;" nil nil nil nil nil "'*" "'%" "A%" ".*"
316 "E%" "Y%" "I%" nil "O%" nil "U%" "W%" "i3" "A*"
317 "B*" "G*" "D*" "E*" "Z*" "H*" "Th*" "I*" "K*" "L*"
318 "M*" "N*" "C*" "O*" "P*" "R*" nil "S*" "T*" "U*"
319 "F*" "X*" "Q*" "W*" "J*" "V*" "a%" "e%" "y%" "i%"
320 "u3" "a*" "b*" "g*" "d*" "e*" "z*" "h*" "th*" "i*"
321 "k*" "l*" "m*" "n*" "c*" "o*" "p*" "r*" "*s" "s*"
322 "t*" "u*" "f*" "x*" "q*" "w*" "j*" "v*" "o%" "u%"
323 "w%" nil "b3" "th%" "U2*" "'U2*" "U:2*" "ph*" "pi*" "ka*"
324 nil nil "Sti" "sti" "Dig" "dig" "Kop" "kop" "Sam" "sam"
325 "She" "she" "Fei" "fei" "Khe" "khe" "Hor" "hor" "Gan" "gan"
326 "Shi" "shi" "Dei" "dei" "ka*" "rh*" "ls*" "yo*" nil nil
327 nil nil nil nil nil nil nil nil nil nil
328 "IE'" "E:" "D%" "G%" "IE" "DS" "II" "YI" "J%" "LJ" ; Cyrillic
329 "NJ" "Ts" "KJ" "`I=" "V%" "DZ" 65 "B=" 66 "G="
330 68 69 "Z%" 51 85 "J=" 75 "L=" 77 72
331 79 "P=" 80 67 84 89 "F=" 88 "C=" "C%"
332 "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "JU" "JA" 97 "b="
333 98 "g=" 103 101 "z%" "z=" 117 "j=" 107 "l="
334 109 "n=" 111 "p=" 112 99 "t=" 121 "f=" 120
335 "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "ju" "ja"
336 "ie'" "e:" "d%" "g%" "ie" "ds" "ii" "yi" "j%" "lj"
337 "nj" "ts" "kj" "v%" "`i=" "dz" "OM=" "om=" "Y3" "y3"] ; 0x463
338 )
339
340 (mule-unicode-0100-24ff ; charset
341 256 ; base
342 1488 1645 ; first, last
343 [ "A+" "B+" "G+" "D+" "H+" "W+" "Z+" "X+" "Tj" "J+" ; Hebrew
344 "K%" "K+" "L+" "M%" "M+" "N%" "N+" "S+" "E+" "P%"
345 "P+" "Zj" "ZJ" "Q+" "R+" "Sh" "T+" nil nil nil
346 nil nil "WW+" "WJ+" "JJ+" "'+" "\"+" nil nil nil
347 nil nil nil nil nil nil nil nil nil nil
348 nil nil nil nil nil nil nil nil nil nil
349 ",+" nil nil nil nil nil nil nil nil nil ; Arabic
350 nil nil nil nil nil ";+" nil nil nil "?+"
351 nil "H'" "aM" "aH" "wH" "ah" "yH" "a+" "b+" "tm"
352 "t+" "tk" "g+" "hk" "x+" "d+" "dk" "r+" "z+" "s+"
353 "sn" "c+" "dd" "tj" "zH" "e+" "i+" nil nil nil
354 nil nil "++" "f+" "q+" "k+" "l+" "m+" "n+" "h+"
355 "w+" "j+" "y+" ":+" "\"+" "=+" "/+" "'+" "1+" "3+"
356 "0+" nil nil nil nil nil nil nil nil nil
357 nil nil nil nil "0a" "1a" "2a" "3a" "4a" "5a"
358 "6a" "7a" "8a" "9a" "a%" "a." "a," "a*" ]
359 )
360
361 (mule-unicode-0100-24ff ; charset
362 256 ; base
363 7680 9450 ; first, last
364 [ "A-0" "a-0" "B." "b." "B-." "b-." "B_" "b_" "C,'" "c,'" ; Lat Ext Add
365 "D." "d." "D-." "d-." "D_" "d_" "D," "d," "D->" "d->"
366 "E-!" "e-!" "E-'" "e-'" "E->" "e->" "E-?" "e-?" "E,(" "e,("
367 "F." "f." "G-" "g-" "H." "h." "H-." "h-." "H:" "h:"
368 "H," "h," "H-(" "h-(" "I-?" "i-?" "I:'" "i:'" "K'" "k'"
369 "K-." "k-." "K_" "k_" "L-." "l-." "_L-." "_l-." "L_" "l_"
370 "L->" "l->" "M'" "m'" "M." "m." "M-." "m-." "N." "n."
371 "N-." "n-." "N_" "n_" "N->" "n->" "O?'" "o?'" "O?:" "o?:"
372 "O-!" "o-!" "O-'" "o-'" "P'" "p'" "P." "p." "R." "r."
373 "R-." "r-." "_R-." "_r-." "R_" "r_" "S." "s." "S-." "s-."
374 "S'." "s'." "S<." "s<." ".S-." ".s-." "T." "t." "T-." "t-."
375 "T_" "t_" "T->" "t->" "U_:" "u_:" "U-?" "u-?" "U->" "u->"
376 "U?'" "u?'" "U-:" "u-:" "V?" "v?" "V-." "v-." "W!" "w!"
377 "W'" "w'" "W:" "w:" "W." "w." "W-." "w-." "X." "x."
378 "X:" "x:" "Y." "y." "Z>" "z>" "Z-." "z-." "Z_" "z_"
379 "h_" "t:" "w0" "y0" "a))" "s1." nil nil nil nil
380 "A-." "a-." "A2" "a2" "A>'" "a>'" "A>!" "a>!" "A>2" "a>2"
381 "A>~" "a>~" ".A>" ".a>" "A('" "a('" "A(!" "a(!" "A(2" "a(2"
382 "A(~" "a(~" ".A(" ".a(" "E-." "e-." "E2" "e2" "E~" "e~"
383 "E>'" "e>'" "E>!" "e>!" "E>2" "e>2" "E>~" "e>~" ".E>" ".e>"
384 "I2" "i2" "I-." "i-." "O-." "o-." "O2" "o2" "O>'" "o>'"
385 "O>!" "o>!" "O>2" "o>2" "O>~" "o>~" ".O>" ".o>" "O9'" "o9'"
386 "O9!" "o9!" "O92" "o92" "O9~" "o9~" ".O9" ".o9" "U-." "u-."
387 "U2" "u2" "U9'" "u9'" "U9!" "u9!" "U92" "u92" "U9~" "u9~"
388 ".U9" ".u9" "Y!" "y!" "Y-." "y-." "Y2" "y2" "Y~" "y~"
389 nil nil nil nil nil nil "a*," "a*;" nil nil ; Greek Ext (0x1f00)
390 nil nil nil nil "A*," "A*;" nil nil nil nil
391 nil nil "e*," "e*;" nil nil nil nil nil nil
392 "E*," "E*;" nil nil nil nil nil nil "y*," "y*;"
393 nil nil nil nil nil nil "Y*," "Y*;" nil nil
394 nil nil nil nil "i*," "i*;" nil nil nil nil
395 nil nil "I*," "I*;" nil nil nil nil nil nil
396 "o*," "o*;" nil nil nil nil nil nil "O*," "O*;"
397 nil nil nil nil nil nil "u*," "u*;" nil nil
398 nil nil nil nil nil "U*;" nil nil nil nil
399 nil nil "w*," "w*;" nil nil nil nil nil nil
400 "W*," "W*;" nil nil nil nil nil nil "a*!" "a*'"
401 "e*!" "e*'" "y*!" "y*'" "i*!" "i*'" "o*!" "o*'" "u*!" "u*'"
402 "w*!" "w*'" nil nil nil nil nil nil nil nil
403 nil nil nil nil nil nil nil nil nil nil
404 nil nil nil nil nil nil nil nil nil nil
405 nil nil nil nil nil nil nil nil nil nil
406 nil nil nil nil nil nil nil nil nil nil
407 nil nil "a*(" "a*-" nil "a*j" nil nil "a*~" nil
408 "A*(" "A*-" "A*!" "A*'" "A*J" ")*" "J3" ",," "?*" "?:"
409 nil "y*j" nil nil "y*?" nil "E*!" "E*'" "Y*!" "Y*'"
410 "Y*J" ",!" ",'" "?," "i*(" "i*-" nil nil nil nil
411 "i*?" nil "I*(" "I*-" "I*!" "I*'" nil ";!" ";'" "?;"
412 "u*(" "u*-" nil nil "r*," "r*;" "u*?" nil "U*(" "U*-"
413 "U*!" "U*'" "R*;" "!:" ":'" "!*" nil nil nil "w*j"
414 nil nil "w*?" nil "O*!" "O*'" "W*!" "W*'" "W*J" "/*"
415 ";;" nil nil nil "1N" "1M" "3M" "4M" "6M" nil ; Gen Punct
416 nil "1T" "1H" nil nil nil "LRM" "RLM" "-1" nil
417 nil "--" "---" "===" "!2" "=2" "'6" "'9" ".9" "9'"
418 "``" "''" ":9" "9``" "/-" "/=" "sb" "3b" nil ".."
419 "..." ".-" "LSep" "PSep" "LR[" "RL[" "PDF" "LRO" "RLO" 255
420 "%o" "%oo" "'" "''" "\"'" "`" "``" "```" ".^" "<,"
421 ",>" ":X" "!!" "?!" "'-" nil nil nil nil "-b"
422 "/f" nil nil nil nil nil nil nil nil nil
423 nil nil nil nil nil nil nil nil nil nil
424 nil nil nil nil nil nil nil nil nil nil
425 nil nil nil nil nil nil nil nil nil nil
426 nil nil nil nil "^0" nil nil nil "^4" "^5"
427 "^6" "^7" "^8" "^9" "^+" "^-" "^=" "^(" "^)" "^n"
428 "_0" "_1" "_2" "_3" "_4" "_5" "_6" "_7" "_8" "_9"
429 "_+" "_-" "_=" "_(" "_)" nil nil nil nil nil
430 nil nil nil nil nil nil nil nil nil nil
431 nil nil nil nil nil "Ff" "Li" nil nil "Pt"
432 nil "W=" "NIS" nil "E=" nil nil nil nil nil
433 nil nil nil nil nil nil nil nil nil nil
434 nil nil nil nil nil nil nil nil nil nil
435 nil nil nil nil nil nil nil nil nil nil
436 nil nil nil nil nil nil nil nil nil nil
437 nil nil nil nil nil nil nil nil nil nil
438 nil nil nil nil nil nil nil nil nil nil
439 nil nil nil nil nil nil nil nil nil nil
440 nil nil nil nil nil nil nil nil "a/c" "a/s"
441 nil "oC" nil "c/o" "c/u" "=e" nil "oF" nil nil
442 nil nil "-h" "=h" nil nil nil nil nil nil
443 "N0" "PO" nil nil nil nil "Re" nil "Rx" nil
444 "SM" "TEL" "TM" nil nil nil "Om" nil nil nil
445 "oK" "AO" nil nil "Est" nil nil nil nil nil
446 nil "Aleph" "Bet" "Gimel" "Dalet" "=i=" nil nil nil nil
447 nil nil nil nil nil nil nil nil nil nil
448 nil nil nil nil nil nil nil nil nil nil
449 nil "1/3" "2/3" "1/5" "2/5" "3/5" "4/5" "1/6" "5/6" "1/8"
450 "3/8" "5/8" "7/8" "1/" ".I" "II" "III" "IV" ".V" "VI"
451 "VII" "VIII" "IX" "X" "XI" "XII" ".L" ".C" ".D" ".M"
452 ".i" "ii" "iii" "iv" ".v" "vi" "vii" "viii" "ix" ".x"
453 "xi" ".l" ".c" ".d" ".m" "CD" "DD" "CoD" "CI" nil
454 nil nil nil nil nil nil nil nil nil nil
455 nil "<-" "|^" "->" "|v" "<->" "v|^" "^\\" "/^" "\\v"
456 "v/" "<-/" "/->" "<~" "~>" "<<-" "|^^" "->>" "|vv" "<-<"
457 ">->" "<-|" "_|^" "|->" "-|v" "_v|^" "<-?" "?->" "<-o" "o->"
458 "<~>" "<-/>" nil nil nil nil nil nil nil nil
459 nil nil nil nil nil nil nil nil nil nil
460 nil nil nil nil nil nil nil nil nil nil
461 nil nil nil "<=/" "<=/>" "/=>" "<=" "||^" "=>" "||v"
462 "<=>" "v||^" "^\\\\" "//^" "\\\\v" "v//" "<-=" "=->" nil nil
463 nil nil "<.." ":^" "..>" ":v" nil nil "<::" "::^"
464 "::>" "::v" nil nil nil nil nil nil nil nil
465 nil nil nil nil nil nil nil nil nil nil
466 nil nil nil nil "FA" "C." "dP" "TE" "~TE" "/0"
467 "DE" "NB" "(-" "~(-" "e-" "-)" "~-)" "-e" "QED" "*P"
468 nil "+Z" "--" "-+" ".+" "./" ".\\" "*-" "Ob" "Sb"
469 "SQR" "CBR" nil "0(" "00" "-L" "-V" nil nil ".|"
470 "~.|" "||" "/||" "AND" "OR" "(U" ")U" "In" "DI" nil
471 "Io" nil nil nil nil nil ".:" ":." ":R" "::"
472 ".-." "-:" ":-:" ":~:" "?~" "~?" "??" nil nil "/~"
473 "-~" "~-" "/~-" "~=" "~/=" "/~=" "~~" "/~~" nil nil
474 "=?" ")(" "v^" "^_" ".=" "=;" ".=." nil ":=" "=:"
475 nil "=o" "=)" "=^" "=v" "*=" "=<>" "=df" nil "?="
476 "!=" "-=" "!-=" "==" "=<" ">=" nil nil nil nil
477 "<<" ">>" "()" "/)(" "!<" "!>" nil nil nil nil
478 nil nil nil nil nil nil "<'" "`>" "=<'" "`>="
479 "~<'" "`>~" "/<'" "/`>" "(C" ")C" "/(C" "/)C" "(_" ")_"
480 "/(_" "/)_" nil nil nil nil nil nil nil nil
481 nil nil nil "0+" "0-" "0x" "0/" "0." "0o" "0*"
482 "0=" "0_" nil nil nil nil "|T" "T|" "-T" "_T"
483 nil nil nil nil nil nil nil nil nil nil
484 nil nil nil nil nil nil nil nil nil "-,-"
485 nil "XOR" "NAND" "NOR" nil nil nil nil nil nil
486 nil nil nil nil nil nil nil nil nil nil
487 nil nil nil nil nil nil nil nil "<." ".>"
488 "<<<" ">>>" nil nil nil nil nil nil nil nil
489 nil nil nil nil nil nil nil nil nil nil
490 nil nil ":3" "..." nil nil nil nil nil nil
491 nil nil nil nil nil nil nil nil nil nil
492 nil nil "Eh" nil nil nil nil nil "<7" ">7"
493 "7<" "7>" nil nil nil nil "~I" nil "(A" nil
494 nil "TR" nil "=||" "88" nil nil nil nil nil
495 nil nil "Iu" "Il" nil nil "-^-" "-`-" "D->" nil
496 nil "</" "/>" "<-D" nil nil nil nil nil nil
497 nil nil nil nil nil nil nil nil nil nil
498 nil nil nil nil nil nil nil nil nil nil
499 nil nil nil nil nil nil nil nil nil nil
500 nil nil nil nil nil nil nil nil nil nil
501 nil nil nil nil nil nil nil nil nil nil
502 nil nil nil nil nil nil nil nil nil nil
503 nil nil nil nil nil nil nil nil nil nil
504 nil nil nil nil nil nil nil nil nil nil
505 nil nil nil nil nil nil nil nil nil nil
506 nil nil nil nil nil nil nil nil nil nil
507 nil nil nil nil nil nil nil nil nil nil
508 nil nil nil nil nil nil nil nil nil nil
509 nil nil nil nil nil nil nil nil nil nil
510 nil nil nil nil nil nil nil nil nil nil
511 nil nil nil nil nil nil nil nil nil nil
512 nil nil nil nil nil nil nil nil nil nil
513 nil nil nil nil nil nil nil nil nil nil
514 nil nil nil nil nil nil nil nil nil nil
515 nil nil nil nil nil nil nil nil nil nil
516 nil nil nil nil nil nil nil nil nil nil
517 nil nil nil nil nil nil "NUL" "SOH" "STX" "ETX"
518 "EOT" "ENQ" "ACK" "BEL" "BS" "HT" "LF" "VT" "FF" "CR"
519 "SS" "SI" "DLE" "DC1" "DC2" "DC3" "DC4" "NAK" "SYN" "ETB"
520 "CAN" "EM" "SUB" "ESC" "FS" "GS" "RS" "US" "SP" "DEL"
521 "b/" ",_," "NL" nil "?^" nil nil nil nil nil
522 nil nil nil nil nil nil nil nil nil nil
523 nil nil nil nil nil nil nil nil nil nil
524 nil nil nil nil nil nil nil nil nil nil
525 nil nil nil nil nil nil nil nil nil nil
526 nil nil nil nil nil nil nil nil nil nil
527 nil nil "1-o" "2-o" "3-o" "4-o" "5-o" "6-o" "7-o" "8-o"
528 "9-o" "10-o" "11-o" "12-o" "13-o" "14-o" "15-o" "16-o" "17-o" "18-o"
529 "19-o" "20-o" "(1)" "(2)" "(3)" "(4)" "(5)" "(6)" "(7)" "(8)"
530 "(9)" "(10)" "(11)" "(12)" "(13)" "(14)" "(15)" "(16)" "(17)" "(18)"
531 "(19)" "(20)" "1." "2." "3." "4." "5." "6." "7." "8."
532 "9." "10." "11." "12." "13." "14." "15." "16." "17." "18."
533 "19." "20." "(a)" "(b)" "(c)" "(d)" "(e)" "(f)" "(g)" "(h)"
534 "(i)" "(j)" "(k)" "(l)" "(m)" "(n)" "(o)" "(p)" "(q)" "(r)"
535 "(s)" "(t)" "(u)" "(v)" "(w)" "(x)" "(y)" "(z)" "A-o" "B-o"
536 "C-o" "D-o" "E-o" "F-o" "G-o" "H-o" "I-o" "J-o" "K-o" "L-o"
537 "M-o" "N-o" "O-o" "P-o" "Q-o" "R-o" "S-o" "T-o" "U-o" "V-o"
538 "W-o" "X-o" "Y-o" "Z-o" "a-o" "b-o" "c-o" "d-o" "e-o" "f-o"
539 "g-o" "h-o" "i-o" "j-o" "k-o" "l-o" "m-o" "n-o" "o-o" "p-o"
540 "q-o" "r-o" "s-o" "t-o" "u-o" "v-o" "w-o" "x-o" "y-o" "z-o"
541 "0-o" ]
542 )
543 )
544
545 "A list of mule-unicode-* character sets and the strings that
546 should be used to represent the characters from each set on a DOS
547 terminal which does not have corresponding glyphs built into the
548 installed codepage.")
549
550 (defun IT-setup-unicode-display (&optional table)
551 "Set up display table TABLE for displaying mule-unicode-* characters
552 on a DOS terminal. If TABLE is nil or omitted, `standard-display-table'
553 is used."
554 (interactive)
555 (let ((disp-tab (or table standard-display-table))
556 (tail IT-unicode-translations)
557 translation)
558 (while tail
559 (setq translation (car tail) tail (cdr tail))
560 (let* ((chset (car translation))
561 (base (nth 1 translation))
562 (first (nth 2 translation))
563 (last (nth 3 translation))
564 (table (nth 4 translation))
565 (i 0)
566 (this (- first base))
567 glyph)
568 (while (<= i (- last first))
569 (setq glyph (aref table i))
570 (if glyph
571 (aset disp-tab (make-char chset
572 (+ (/ this 96) 32)
573 (+ (% this 96) 32))
574 (vconcat
575 (if (numberp glyph)
576 (char-to-string glyph)
577 (if (> (length glyph) 1) (concat "{" glyph "}")
578 glyph)))))
579 (setq i (1+ i) this (1+ this)))))))
271 580
272 (defun dos-cpNNN-setup (codepage) 581 (defun dos-cpNNN-setup (codepage)
273 "Set up the MULE environment using the DOS codepage CODEPAGE. 582 "Set up the MULE environment using the DOS codepage CODEPAGE.
274 583
275 This function creates the coding system cpNNN (where NNN is the value 584 This function creates the coding system cpNNN (where NNN is the value