lisp/international/latin1-disp.el

   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))
 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)
 161         ((display-multi-font-p)
 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
 174                  ;; field pattern and registry field pattern.
 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)))))))))
 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        '((?\82Æ "'C" "C'")
 204          (?\82Ð "'D" "/D")
 205          (?\82¦ "'S" "S'")
 206          (?\82æ "'c" "c'")
 207          (?\82ð "'d" "/d")
 208          (?\82Å "'L" "L'")
 209          (?\82ñ "'n" "n'")
 210          (?\82Ñ "'N" "N'")
 211          (?\82à "'r" "r'")
 212          (?\82À "'R" "R'")
 213          (?\82¶ "'s" "s'")
 214          (?\82¼ "'z" "z'")
 215          (?\82¬ "'Z" "Z'")
 216          (?\82¡ "`A" "A;")
 217          (?\82Ê "`E" "E;")
 218          (?\82£ "`L" "/L")
 219          (?\82ª "`S" ",S")
 220          (?\82Þ "`T" ",T")
 221          (?\82¯ "`Z" "Z^.")
 222          (?\82± "`a" "a;")
 223          (?\82³ "`l" "/l")
 224          (?\82ê "`e" "e;")
 225          (?\82º "`s" ",s")
 226          (?\82þ "`t" ",t")
 227          (?\82¿ "`z" "z^.")
 228          (?\82ÿ "`." "'.")
 229          (?\82Ã "~A" "A(")
 230          (?\82È "~C" "C<")
 231          (?\82Ï "~D" "D<")
 232          (?\82Ì "~E" "E<")
 233          (?\82ì "~e" "e<")
 234          (?\82¥ "~L" "L<")
 235          (?\82Ò "~N" "N<")
 236          (?\82Õ "~O" "O''")
 237          (?\82Ø "~R" "R<")
 238          (?\82© "~S" "S<")
 239          (?\82« "~T" "T<")
 240          (?\82Û "~U" "U''")
 241          (?\82® "~Z" "Z<")
 242          (?\82ã "~a" "a(}")
 243          (?\82è "~c" "c<")
 244          (?\82ï "~d" "d<")
 245          (?\82µ "~l" "l<")
 246          (?\82ò "~n" "n<")
 247          (?\82õ "~o" "o''")
 248          (?\82ø "~r" "r<")
 249          (?\82¹ "~s" "s<")
 250          (?\82» "~t" "t<")
 251          (?\82û "~u" "u''")
 252          (?\82¾ "~z" "z<")
 253          (?\82· "~v" "'<")                      ; ?\82¢ in latin-pre
 254          (?\82¢ "~~" "'(")
 255          (?\82ù "uu" "u^0")
 256          (?\82Ù "UU" "U^0")
 257          (?\82Ä "\"A")
 258          (?\82ä "\"a")
 259          (?\82Ë "\"E" "E:")
 260          (?\82ë "\"e")
 261          (?\82½ "''" "'")
 262          (?\82· "'<")                   ; 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        '((?\83¡ "/H")
 273          (?\83¢ "~`" "'(")
 274          (?\83¦ "^H" "H^")
 275          (?\83¶ "^h" "h^")
 276          (?\83© ".I" "I^.")
 277          (?\83ª ",S")
 278          (?\83« "~G" "G(")
 279          (?\83¬ "^J" "J^")
 280          (?\83¯ ".Z" "Z^.")
 281          (?\83± "/h")
 282          (?\83¹ ".i" "i^.")
 283          (?\83º ",s")
 284          (?\83» "~g" "g(")
 285          (?\83¼ "^j" "j^")
 286          (?\83¿ ".Z" "z^.")
 287          (?\83Å ".c" "C^.")
 288          (?\83Æ "^C" "C^")
 289          (?\83Õ ".G" "G^.")
 290          (?\83Ø "^G" "G^")
 291          (?\83Ý "~U" "U(")
 292          (?\83Þ "^S" "S^")
 293          (?\83å ".C" "c^.")
 294          (?\83æ "^c" "c^")
 295          (?\83õ ".g" "g^.")
 296          (?\83ø "^g" "g^")
 297          (?\83ý "~u" "u(")
 298          (?\83þ "^s" "s^")
 299          (?\83ÿ "/." "^.")))))
 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        '((?\84¡ "A," "A;")
 309          (?\84¢ "k/" "kk")
 310          (?\84£ "R," ",R")
 311          (?\84¥ "I~" "?I")
 312          (?\84¦ "L," ",L")
 313          (?\84© "S~" "S<")
 314          (?\84ª "E-")
 315          (?\84« "G," ",G")
 316          (?\84¬ "T/" "/T")
 317          (?\84® "Z~" "Z<")
 318          (?\84± "a," "a;")
 319          (?\84² "';")
 320          (?\84³ "r," ",r")
 321          (?\84µ "i~" "~i")
 322          (?\84¶ "l," ",l")
 323          (?\84· "'<")
 324          (?\84¹ "s~" "s<")
 325          (?\84º "e-")
 326          (?\84» "g," ",g")
 327          (?\84¼ "t/" "/t")
 328          (?\84½ "N/" "NG")
 329          (?\84¾ "z~" "z<")
 330          (?\84¿ "n/" "ng")
 331          (?\84À "A-")
 332          (?\84Ç "I," "I;")
 333          (?\84È "C~" "C<")
 334          (?\84Ê "E," "E;")
 335          (?\84Ì "E." "E^.")
 336          (?\84Ï "I-")
 337          (?\84Ñ "N," ",N")
 338          (?\84Ò "O-")
 339          (?\84Ó "K," ",K")
 340          (?\84Ù "U," "U;")
 341          (?\84Ý "U~" "~U")
 342          (?\84Þ "U-")
 343          (?\84à "a-")
 344          (?\84ç "i," "i;")
 345          (?\84è "c~" "c<")
 346          (?\84ê "e," "e;")
 347          (?\84ì "e." "e^.")
 348          (?\84ï "i-")
 349          (?\84ð "d/" "/d")
 350          (?\84ñ "n," ",n")
 351          (?\84ò "o-")
 352          (?\84ó "k," ",k")
 353          (?\84ù "u," "u;")
 354          (?\84ý "u~" "~u")
 355          (?\84þ "u-")
 356          (?\84ÿ "^.")))))
 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        '((?\8dð "~g" "g(")
 366          (?\8dÐ "~G" "G(")
 367          (?\8dÝ ".I" "I^.")
 368          (?\8dþ ",s")
 369          (?\8dÞ ",S")
 370          (?\8dê "^e" "e<")                      ; from latin-post
 371          (?\8dì ".e" "e^.")
 372          (?\8dï "\"i" "i-")             ; from latin-post
 373          (?\8dý ".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        '((?\8f¡ ".B" "B`")
 383          (?\8f¢ ".b" "b`")
 384          (?\8f¥ ".c" "c`")
 385          (?\8f¤ ".C" "C`")
 386          (?\8f¦ ".D" "D`")
 387          (?\8f« ".d" "d`")
 388          (?\8f¸ "`w")
 389          (?\8f¨ "`W")
 390          (?\8fº "'w" "w'")
 391          (?\8fª "'W" "W'")
 392          (?\8f¼ "`y")
 393          (?\8f¬ "`Y")
 394          (?\8f± ".f" "f`")
 395          (?\8f° ".F" "F`")
 396          (?\8f³ ".g" "g`")
 397          (?\8f² ".G" "G`")
 398          (?\8fµ ".m" "m`")
 399          (?\8f´ ".M" "M`")
 400          (?\8f¹ ".p" "p`")
 401          (?\8f· ".P" "P`")
 402          (?\8f¿ ".s" "s`")
 403          (?\8f» ".S" "S`")
 404          (?\8f¾ "\"w")
 405          (?\8f½ "\"W")
 406          (?\8fð "^w" "w^")
 407          (?\8fÐ "^W" "W^")
 408          (?\8f÷ ".t" "t`")
 409          (?\8f× ".T" "T`")
 410          (?\8fþ "^y" "y^")
 411          (?\8fÞ "^Y" "Y^")
 412          (?\8f¯ "\"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        '((?\8e¨ "~s" "s<")
 422          (?\8e¦ "~S" "S<")
 423          (?\8e¤ "Euro" "E=")
 424          (?\8e¸ "~z" "z<")
 425          (?\8e´ "~Z" "Z<")
 426          (?\8e¾ "\"Y")
 427          (?\8e½ "oe")
 428          (?\8e¼ "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        '((?\86¡ "9'")
 437          (?\86¢ "'9")
 438          (?\86¯ "-M")
 439          (?\86µ "'%")
 440          (?\86¶ "'A")
 441          (?\86¸ "'E")
 442          (?\86¹ "'H")
 443          (?\86º "'I")
 444          (?\86¼ "'O")
 445          (?\86¾ "'Y")
 446          (?\86¿ "W%")
 447          (?\86À "i3")
 448          (?\86Ã "G*")
 449          (?\86Ä "D*")
 450          (?\86È "TH")
 451          (?\86Ë "L*")
 452          (?\86Î "C*")
 453          (?\86Ð "P*")
 454          (?\86Ó "S*")
 455          (?\86Ö "F*")
 456          (?\86Ø "Q*")
 457          (?\86Ù "W*")
 458          (?\86Ú "\"I")
 459          (?\86Û "\"Y")
 460          (?\86Ü "a%")
 461          (?\86Ý "e%")
 462          (?\86Þ "y%")
 463          (?\86ß "i%")
 464          (?\86à "u3")
 465          (?\86á "a*")
 466          (?\86â "b*")
 467          (?\86ã "g*")
 468          (?\86ä "d*")
 469          (?\86å "e*")
 470          (?\86æ "z*")
 471          (?\86ç "y*")
 472          (?\86è "h*")
 473          (?\86é "i*")
 474          (?\86ê "k")
 475          (?\86ë "l*")
 476          (?\86ì "m*")
 477          (?\86í "n*")
 478          (?\86î "c*")
 479          (?\86ð "p*")
 480          (?\86ñ "r*")
 481          (?\86ò "*s")
 482          (?\86ó "s*")
 483          (?\86ô "t*")
 484          (?\86õ "u")
 485          (?\86ö "f*")
 486          (?\86÷ "x*")
 487          (?\86ø "q*")
 488          (?\86ù "w*")
 489          (?\86ú "\"i")
 490          (?\86û "\"u")
 491          (?\86ü "'o")
 492          (?\86ý "'u")
 493          (?\86þ "'w")))
 494       (mapc
 495        (lambda (l)
 496          (aset standard-display-table (car l) (string-to-vector (cadr l))))
 497        '((?\86Á "A")
 498          (?\86Â "B")
 499          (?\86Å "E")
 500          (?\86Æ "Z")
 501          (?\86Ç "H")
 502          (?\86É "I")
 503          (?\86Ê "J")
 504          (?\86Ì "M")
 505          (?\86Í "N")
 506          (?\86Ï "O")
 507          (?\86Ñ "P")
 508          (?\86Ô "T")
 509          (?\86Õ "Y")
 510          (?\86× "X")
 511          (?\86ï "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        '((?\88ß "=2")
 529          (?\88à "A+")
 530          (?\88á "B+")
 531          (?\88â "G+")
 532          (?\88ã "D+")
 533          (?\88ä "H+")
 534          (?\88å "W+")
 535          (?\88æ "Z+")
 536          (?\88ç "X+")
 537          (?\88è "Tj")
 538          (?\88é "J+")
 539          (?\88ê "K%")
 540          (?\88ë "K+")
 541          (?\88ì "L+")
 542          (?\88í "M%")
 543          (?\88î "M+")
 544          (?\88ï "N%")
 545          (?\88ð "N+")
 546          (?\88ñ "S+")
 547          (?\88ò "E+")
 548          (?\88ó "P%")
 549          (?\88ô "P+")
 550          (?\88õ "Zj")
 551          (?\88ö "ZJ")
 552          (?\88÷ "Q+")
 553          (?\88ø "R+")
 554          (?\88ù "Sh")
 555          (?\88ú "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        '((?\8c¢ "Dj")
 565          (?\8c£ "Gj")
 566          (?\8c¤ "IE")
 567          (?\8c© "Lj")
 568          (?\8cª "Nj")
 569          (?\8c« "Ts")
 570          (?\8c¬ "Kj")
 571          (?\8c® "V%")
 572          (?\8c¯ "Dzh")
 573          (?\8c± "B=")
 574          (?\8c³ "â")
 575          (?\8c´ "D")
 576          (?\8c¶ "Z%")
 577          (?\8c· "3")
 578          (?\8c¸ "U")
 579          (?\8c¹ "J=")
 580          (?\8c» "L=")
 581          (?\8c¿ "P=")
 582          (?\8cÃ "Y")
 583          (?\8cÄ "è")
 584          (?\8cÆ "C=")
 585          (?\8cÇ "C%")
 586          (?\8cÈ "S%")
 587          (?\8cÉ "Sc")
 588          (?\8cÊ "=\"")
 589          (?\8cË "Y=")
 590          (?\8cÌ "%\"")
 591          (?\8cÍ "Ee")
 592          (?\8cÎ "Yu")
 593          (?\8cÏ "Ya")
 594          (?\8cÑ "b")
 595          (?\8cÒ "v=")
 596          (?\8cÓ "g=")
 597          (?\8cÔ "g")
 598          (?\8cÖ "z%")
 599          (?\8c× "z=")
 600          (?\8cØ "u")
 601          (?\8cÙ "j=")
 602          (?\8cÚ "k")
 603          (?\8cÛ "l=")
 604          (?\8cÜ "m=")
 605          (?\8cÝ "n=")
 606          (?\8cß "n")
 607          (?\8cà "p")
 608          (?\8câ "t=")
 609          (?\8cä "f=")
 610          (?\8cæ "c=")
 611          (?\8cç "c%")
 612          (?\8cè "s%")
 613          (?\8cé "sc")
 614          (?\8cê "='")
 615          (?\8cë "y=")
 616          (?\8cì "%'")
 617          (?\8cí "ee")
 618          (?\8cî "yu")
 619          (?\8cï "ya")
 620          (?\8cð "N0")
 621          (?\8cò "dj")
 622          (?\8có "gj")
 623          (?\8cô "ie")
 624          (?\8cù "lj")
 625          (?\8cú "nj")
 626          (?\8cû "ts")
 627          (?\8cü "kj")
 628          (?\8cþ "v%")
 629          (?\8cÿ "dzh")))
 630       (mapc
 631        (lambda (l)
 632          (aset standard-display-table (car l) (string-to-vector (cadr l))))
 633        '((?\8c¡ "\81Ë")
 634          (?\8c¥ "S")
 635          (?\8c¦ "I")
 636          (?\8c§ "\81Ï")
 637          (?\8c¨ "J")
 638          (?\8cñ "\81ë")
 639          (?\8cý "\81§")
 640          (?\8c "-")
 641          (?\8c° "A")
 642          (?\8c² "B")
 643          (?\8cµ "E")
 644          (?\8cº "K")
 645          (?\8c¼ "M")
 646          (?\8c½ "H")
 647          (?\8c¾ "O")
 648          (?\8cÀ "P")
 649          (?\8cÁ "C")
 650          (?\8cÂ "T")
 651          (?\8cÅ "X")
 652          (?\8cÐ "a")
 653          (?\8cÕ "e")
 654          (?\8cÞ "o")
 655          (?\8cá "c")
 656          (?\8cã "y")
 657          (?\8cå "x")
 658          (?\8cõ "s")
 659          (?\8cö "i")
 660          (?\8c÷ "\81ï")
 661          (?\8cø "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