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, 2001 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 because we're on a tty or because 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 since 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 ;; Ensure `standard-display-table' is set up:
  51 (require 'disp-table)
  52
  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"
  62   :link '(emacs-commentary-link "latin1-disp")
  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)
  89          (set-default symbol value)
  90          (mapc (if value
  91                    #'latin1-display-setup
  92                  #'latin1-display-reset)
  93                latin1-display-sets)
  94          (redraw-display)))
  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
 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))
 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.
 130 CHARSET is a symbol which is the nickname of a language environment
 131 using an ISO8859 character set."
 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.
 144 LANGUAGE is a symbol naming a language environment using an ISO8859
 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))
 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)
 169         ((display-multi-font-p)
 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
 182                  ;; field pattern and registry field pattern.
 183                  (or (stringp font-pattern)
 184                      (setq font-pattern (concat "-"
 185                                                 (or (car font-pattern) "*")
 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)))))))))
 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))
 212        '((?\82Æ "'C" "C'")
 213          (?\82Ð "'D" "/D")
 214          (?\82¦ "'S" "S'")
 215          (?\82æ "'c" "c'")
 216          (?\82ð "'d" "/d")
 217          (?\82Å "'L" "L'")
 218          (?\82ñ "'n" "n'")
 219          (?\82Ñ "'N" "N'")
 220          (?\82à "'r" "r'")
 221          (?\82À "'R" "R'")
 222          (?\82¶ "'s" "s'")
 223          (?\82¼ "'z" "z'")
 224          (?\82¬ "'Z" "Z'")
 225          (?\82¡ "`A" "A;")
 226          (?\82Ê "`E" "E;")
 227          (?\82£ "`L" "/L")
 228          (?\82ª "`S" ",S")
 229          (?\82Þ "`T" ",T")
 230          (?\82¯ "`Z" "Z^.")
 231          (?\82± "`a" "a;")
 232          (?\82³ "`l" "/l")
 233          (?\82ê "`e" "e;")
 234          (?\82º "`s" ",s")
 235          (?\82þ "`t" ",t")
 236          (?\82¿ "`z" "z^.")
 237          (?\82ÿ "`." "'.")
 238          (?\82Ã "~A" "A(")
 239          (?\82È "~C" "C<")
 240          (?\82Ï "~D" "D<")
 241          (?\82Ì "~E" "E<")
 242          (?\82ì "~e" "e<")
 243          (?\82¥ "~L" "L<")
 244          (?\82Ò "~N" "N<")
 245          (?\82Õ "~O" "O''")
 246          (?\82Ø "~R" "R<")
 247          (?\82© "~S" "S<")
 248          (?\82« "~T" "T<")
 249          (?\82Û "~U" "U''")
 250          (?\82® "~Z" "Z<")
 251          (?\82ã "~a" "a(}")
 252          (?\82è "~c" "c<")
 253          (?\82ï "~d" "d<")
 254          (?\82µ "~l" "l<")
 255          (?\82ò "~n" "n<")
 256          (?\82õ "~o" "o''")
 257          (?\82ø "~r" "r<")
 258          (?\82¹ "~s" "s<")
 259          (?\82» "~t" "t<")
 260          (?\82û "~u" "u''")
 261          (?\82¾ "~z" "z<")
 262          (?\82· "~v" "'<")                      ; ?\82¢ in latin-pre
 263          (?\82¢ "~~" "'(")
 264          (?\82ù "uu" "u^0")
 265          (?\82Ù "UU" "U^0")
 266          (?\82Ä "\"A")
 267          (?\82ä "\"a")
 268          (?\82Ë "\"E" "E:")
 269          (?\82ë "\"e")
 270          (?\82½ "''" "'")
 271          (?\82· "'<")                   ; Lynx's rendering of caron
 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))
 281        '((?\83¡ "/H")
 282          (?\83¢ "~`" "'(")
 283          (?\83¦ "^H" "H^")
 284          (?\83¶ "^h" "h^")
 285          (?\83© ".I" "I^.")
 286          (?\83ª ",S")
 287          (?\83« "~G" "G(")
 288          (?\83¬ "^J" "J^")
 289          (?\83¯ ".Z" "Z^.")
 290          (?\83± "/h")
 291          (?\83¹ ".i" "i^.")
 292          (?\83º ",s")
 293          (?\83» "~g" "g(")
 294          (?\83¼ "^j" "j^")
 295          (?\83¿ ".Z" "z^.")
 296          (?\83Å ".c" "C^.")
 297          (?\83Æ "^C" "C^")
 298          (?\83Õ ".G" "G^.")
 299          (?\83Ø "^G" "G^")
 300          (?\83Ý "~U" "U(")
 301          (?\83Þ "^S" "S^")
 302          (?\83å ".C" "c^.")
 303          (?\83æ "^c" "c^")
 304          (?\83õ ".g" "g^.")
 305          (?\83ø "^g" "g^")
 306          (?\83ý "~u" "u(")
 307          (?\83þ "^s" "s^")
 308          (?\83ÿ "/." "^.")))))
 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))
 317        '((?\84¡ "A," "A;")
 318          (?\84¢ "k/" "kk")
 319          (?\84£ "R," ",R")
 320          (?\84¥ "I~" "?I")
 321          (?\84¦ "L," ",L")
 322          (?\84© "S~" "S<")
 323          (?\84ª "E-")
 324          (?\84« "G," ",G")
 325          (?\84¬ "T/" "/T")
 326          (?\84® "Z~" "Z<")
 327          (?\84± "a," "a;")
 328          (?\84² "';")
 329          (?\84³ "r," ",r")
 330          (?\84µ "i~" "~i")
 331          (?\84¶ "l," ",l")
 332          (?\84· "'<")
 333          (?\84¹ "s~" "s<")
 334          (?\84º "e-")
 335          (?\84» "g," ",g")
 336          (?\84¼ "t/" "/t")
 337          (?\84½ "N/" "NG")
 338          (?\84¾ "z~" "z<")
 339          (?\84¿ "n/" "ng")
 340          (?\84À "A-")
 341          (?\84Ç "I," "I;")
 342          (?\84È "C~" "C<")
 343          (?\84Ê "E," "E;")
 344          (?\84Ì "E." "E^.")
 345          (?\84Ï "I-")
 346          (?\84Ñ "N," ",N")
 347          (?\84Ò "O-")
 348          (?\84Ó "K," ",K")
 349          (?\84Ù "U," "U;")
 350          (?\84Ý "U~" "~U")
 351          (?\84Þ "U-")
 352          (?\84à "a-")
 353          (?\84ç "i," "i;")
 354          (?\84è "c~" "c<")
 355          (?\84ê "e," "e;")
 356          (?\84ì "e." "e^.")
 357          (?\84ï "i-")
 358          (?\84ð "d/" "/d")
 359          (?\84ñ "n," ",n")
 360          (?\84ò "o-")
 361          (?\84ó "k," ",k")
 362          (?\84ù "u," "u;")
 363          (?\84ý "u~" "~u")
 364          (?\84þ "u-")
 365          (?\84ÿ "^.")))))
 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))
 374        '((?\8dð "~g" "g(")
 375          (?\8dÐ "~G" "G(")
 376          (?\8dÝ ".I" "I^.")
 377          (?\8dþ ",s")
 378          (?\8dÞ ",S")
 379          (?\8dê "^e" "e<")                      ; from latin-post
 380          (?\8dì ".e" "e^.")
 381          (?\8dï "\"i" "i-")             ; from latin-post
 382          (?\8dý ".i" "i.")))))
 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))
 391        '((?\8f¡ ".B" "B`")
 392          (?\8f¢ ".b" "b`")
 393          (?\8f¥ ".c" "c`")
 394          (?\8f¤ ".C" "C`")
 395          (?\8f¦ ".D" "D`")
 396          (?\8f« ".d" "d`")
 397          (?\8f¸ "`w")
 398          (?\8f¨ "`W")
 399          (?\8fº "'w" "w'")
 400          (?\8fª "'W" "W'")
 401          (?\8f¼ "`y")
 402          (?\8f¬ "`Y")
 403          (?\8f± ".f" "f`")
 404          (?\8f° ".F" "F`")
 405          (?\8f³ ".g" "g`")
 406          (?\8f² ".G" "G`")
 407          (?\8fµ ".m" "m`")
 408          (?\8f´ ".M" "M`")
 409          (?\8f¹ ".p" "p`")
 410          (?\8f· ".P" "P`")
 411          (?\8f¿ ".s" "s`")
 412          (?\8f» ".S" "S`")
 413          (?\8f¾ "\"w")
 414          (?\8f½ "\"W")
 415          (?\8fð "^w" "w^")
 416          (?\8fÐ "^W" "W^")
 417          (?\8f÷ ".t" "t`")
 418          (?\8f× ".T" "T`")
 419          (?\8fþ "^y" "y^")
 420          (?\8fÞ "^Y" "Y^")
 421          (?\8f¯ "\"Y")))))
 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))
 430        '((?\8e¨ "~s" "s<")
 431          (?\8e¦ "~S" "S<")
 432          (?\8e¤ "Euro" "E=")
 433          (?\8e¸ "~z" "z<")
 434          (?\8e´ "~Z" "Z<")
 435          (?\8e¾ "\"Y")
 436          (?\8e½ "oe")
 437          (?\8e¼ "OE")))))
 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))
 445        '((?\86¡ "9'")
 446          (?\86¢ "'9")
 447          (?\86¯ "-M")
 448          (?\86µ "'%")
 449          (?\86¶ "'A")
 450          (?\86¸ "'E")
 451          (?\86¹ "'H")
 452          (?\86º "'I")
 453          (?\86¼ "'O")
 454          (?\86¾ "'Y")
 455          (?\86¿ "W%")
 456          (?\86À "i3")
 457          (?\86Ã "G*")
 458          (?\86Ä "D*")
 459          (?\86È "TH")
 460          (?\86Ë "L*")
 461          (?\86Î "C*")
 462          (?\86Ð "P*")
 463          (?\86Ó "S*")
 464          (?\86Ö "F*")
 465          (?\86Ø "Q*")
 466          (?\86Ù "W*")
 467          (?\86Ú "\"I")
 468          (?\86Û "\"Y")
 469          (?\86Ü "a%")
 470          (?\86Ý "e%")
 471          (?\86Þ "y%")
 472          (?\86ß "i%")
 473          (?\86à "u3")
 474          (?\86á "a*")
 475          (?\86â "b*")
 476          (?\86ã "g*")
 477          (?\86ä "d*")
 478          (?\86å "e*")
 479          (?\86æ "z*")
 480          (?\86ç "y*")
 481          (?\86è "h*")
 482          (?\86é "i*")
 483          (?\86ê "k")
 484          (?\86ë "l*")
 485          (?\86ì "m*")
 486          (?\86í "n*")
 487          (?\86î "c*")
 488          (?\86ð "p*")
 489          (?\86ñ "r*")
 490          (?\86ò "*s")
 491          (?\86ó "s*")
 492          (?\86ô "t*")
 493          (?\86õ "u")
 494          (?\86ö "f*")
 495          (?\86÷ "x*")
 496          (?\86ø "q*")
 497          (?\86ù "w*")
 498          (?\86ú "\"i")
 499          (?\86û "\"u")
 500          (?\86ü "'o")
 501          (?\86ý "'u")
 502          (?\86þ "'w")))
 503       (mapc
 504        (lambda (l)
 505          (aset standard-display-table (car l) (string-to-vector (cadr l))))
 506        '((?\86Á "A")
 507          (?\86Â "B")
 508          (?\86Å "E")
 509          (?\86Æ "Z")
 510          (?\86Ç "H")
 511          (?\86É "I")
 512          (?\86Ê "J")
 513          (?\86Ì "M")
 514          (?\86Í "N")
 515          (?\86Ï "O")
 516          (?\86Ñ "P")
 517          (?\86Ô "T")
 518          (?\86Õ "Y")
 519          (?\86× "X")
 520          (?\86ï "o")))))
 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))))
 537        '((?\88ß "=2")
 538          (?\88à "A+")
 539          (?\88á "B+")
 540          (?\88â "G+")
 541          (?\88ã "D+")
 542          (?\88ä "H+")
 543          (?\88å "W+")
 544          (?\88æ "Z+")
 545          (?\88ç "X+")
 546          (?\88è "Tj")
 547          (?\88é "J+")
 548          (?\88ê "K%")
 549          (?\88ë "K+")
 550          (?\88ì "L+")
 551          (?\88í "M%")
 552          (?\88î "M+")
 553          (?\88ï "N%")
 554          (?\88ð "N+")
 555          (?\88ñ "S+")
 556          (?\88ò "E+")
 557          (?\88ó "P%")
 558          (?\88ô "P+")
 559          (?\88õ "Zj")
 560          (?\88ö "ZJ")
 561          (?\88÷ "Q+")
 562          (?\88ø "R+")
 563          (?\88ù "Sh")
 564          (?\88ú "T+")))))
 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))
 573        '((?\8c¢ "Dj")
 574          (?\8c£ "Gj")
 575          (?\8c¤ "IE")
 576          (?\8c© "Lj")
 577          (?\8cª "Nj")
 578          (?\8c« "Ts")
 579          (?\8c¬ "Kj")
 580          (?\8c® "V%")
 581          (?\8c¯ "Dzh")
 582          (?\8c± "B=")
 583          (?\8c³ "â")
 584          (?\8c´ "D")
 585          (?\8c¶ "Z%")
 586          (?\8c· "3")
 587          (?\8c¸ "U")
 588          (?\8c¹ "J=")
 589          (?\8c» "L=")
 590          (?\8c¿ "P=")
 591          (?\8cÃ "Y")
 592          (?\8cÄ "è")
 593          (?\8cÆ "C=")
 594          (?\8cÇ "C%")
 595          (?\8cÈ "S%")
 596          (?\8cÉ "Sc")
 597          (?\8cÊ "=\"")
 598          (?\8cË "Y=")
 599          (?\8cÌ "%\"")
 600          (?\8cÍ "Ee")
 601          (?\8cÎ "Yu")
 602          (?\8cÏ "Ya")
 603          (?\8cÑ "b")
 604          (?\8cÒ "v=")
 605          (?\8cÓ "g=")
 606          (?\8cÔ "g")
 607          (?\8cÖ "z%")
 608          (?\8c× "z=")
 609          (?\8cØ "u")
 610          (?\8cÙ "j=")
 611          (?\8cÚ "k")
 612          (?\8cÛ "l=")
 613          (?\8cÜ "m=")
 614          (?\8cÝ "n=")
 615          (?\8cß "n")
 616          (?\8cà "p")
 617          (?\8câ "t=")
 618          (?\8cä "f=")
 619          (?\8cæ "c=")
 620          (?\8cç "c%")
 621          (?\8cè "s%")
 622          (?\8cé "sc")
 623          (?\8cê "='")
 624          (?\8cë "y=")
 625          (?\8cì "%'")
 626          (?\8cí "ee")
 627          (?\8cî "yu")
 628          (?\8cï "ya")
 629          (?\8cð "N0")
 630          (?\8cò "dj")
 631          (?\8có "gj")
 632          (?\8cô "ie")
 633          (?\8cù "lj")
 634          (?\8cú "nj")
 635          (?\8cû "ts")
 636          (?\8cü "kj")
 637          (?\8cþ "v%")
 638          (?\8cÿ "dzh")))
 639       (mapc
 640        (lambda (l)
 641          (aset standard-display-table (car l) (string-to-vector (cadr l))))
 642        '((?\8c¡ "\81Ë")
 643          (?\8c¥ "S")
 644          (?\8c¦ "I")
 645          (?\8c§ "\81Ï")
 646          (?\8c¨ "J")
 647          (?\8cñ "\81ë")
 648          (?\8cý "\81§")
 649          (?\8c "-")
 650          (?\8c° "A")
 651          (?\8c² "B")
 652          (?\8cµ "E")
 653          (?\8cº "K")
 654          (?\8c¼ "M")
 655          (?\8c½ "H")
 656          (?\8c¾ "O")
 657          (?\8cÀ "P")
 658          (?\8cÁ "C")
 659          (?\8cÂ "T")
 660          (?\8cÅ "X")
 661          (?\8cÐ "a")
 662          (?\8cÕ "e")
 663          (?\8cÞ "o")
 664          (?\8cá "c")
 665          (?\8cã "y")
 666          (?\8cå "x")
 667          (?\8cõ "s")
 668          (?\8cö "i")
 669          (?\8c÷ "\81ï")
 670          (?\8cø "j")))))
 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