Doc fixes. Change coding to

iso-2022-7bit.
(latin1-display) <defgroup>: Add :link.
(latin1-display) <function>: Set variable latin1-display.

1 files changed, 394 insertions, 390 deletions

diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 511ff03e816..0bcf85cd01c 100644
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -1,4 +1,4 @@
-;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*-
+;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: iso-2022-7bit -*-
 
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 
@@ -34,12 +34,12 @@
 
 ;; For the Latin charsets the ASCII sequences are mostly consistent
 ;; with the Quail prefix input sequences.  Latin-4 uses the Quail
-;; postfix sequences as a prefix method isn't defined for Latin-4.
+;; postfix sequences since a prefix method isn't defined for Latin-4.
 
-;; A different approach is taken in the DOS display tables in
+;; [A different approach is taken in the DOS display tables in
 ;; term/internal.el, and the relevant ASCII sequences from there are
 ;; available as an alternative; see `latin1-display-mnemonic'.  Only
-;; these sequences are used for Cyrillic, Greek and Hebrew.
+;; these sequences are used for Cyrillic, Greek and Hebrew.]
 
 ;; If you don't even have Latin-1, see iso-ascii.el and use the
 ;; complete tables from internal.el.  The ASCII sequences used here
@@ -59,6 +59,7 @@ environments.")
 (defgroup latin1-display ()
   "Set up display tables for ISO8859 characters using Latin-1."
   :version "21.1"
+  :link '(emacs-commentary-link "latin1-disp")
   :group 'i18n)
 
 (defcustom latin1-display-format "{%s}"
@@ -99,8 +100,11 @@ See option `latin1-display' for the method.  The members of the list
 must be in `latin1-display-sets'.  With no arguments, reset the
 display for all of `latin1-display-sets'. See also `latin1-display-setup'."
   (if sets
-      (mapc #'latin1-display-setup sets)
-    (mapc #'latin1-display-reset latin1-display-sets)))
+      (progn (mapc #'latin1-display-setup sets)
+             (setq latin1-display t))
+    (mapc #'latin1-display-reset latin1-display-sets)
+    (setq latin1-display nil))
+  (redraw-display))
 
 (defcustom latin1-display-mnemonic nil
   "Non-nil means to display potentially more mnemonic sequences.
@@ -123,8 +127,8 @@ formatted using `latin1-display-format'."
 
 (defun latin1-display-identities (charset)
   "Display each character in CHARSET as the corresponding Latin-1 character.
-CHARSET is a symbol naming a language environment using an ISO8859
-character set."
+CHARSET is a symbol which is the nickname of a language environment
+using an ISO8859 character set."
   (if (eq charset 'cyrillic)
       (setq charset 'cyrillic-iso))
   (let ((i 32)
@@ -137,7 +141,7 @@ character set."
 
 (defun latin1-display-reset (language)
   "Set up the default display for each character of LANGUAGE's charset.
-CHARSET is a symbol naming a language environment using an ISO8859
+LANGUAGE is a symbol naming a language environment using an ISO8859
 character set."
   (if (eq language 'cyrillic)
       (setq language 'cyrillic-iso))
@@ -204,66 +208,66 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?‚Æ "'C" "C'")
-         (?‚Ð "'D" "/D")
-         (?‚¦ "'S" "S'")
-         (?‚æ "'c" "c'")
-         (?‚ð "'d" "/d")
-         (?‚Å "'L" "L'")
-         (?‚ñ "'n" "n'")
-         (?‚Ñ "'N" "N'")
-         (?‚à "'r" "r'")
-         (?‚À "'R" "R'")
-         (?⦠"'s" "s'")
-         (?‚¼ "'z" "z'")
-         (?‚¬ "'Z" "Z'")
-         (?‚¡ "`A" "A;")
-         (?‚Ê "`E" "E;")
-         (?‚£ "`L" "/L")
-         (?⻠"`S" ",S")
-         (?‚Þ "`T" ",T")
-         (?‚¯ "`Z" "Z^.")
-         (?‚± "`a" "a;")
-         (?‚³ "`l" "/l")
-         (?‚ê "`e" "e;")
-         (?⼠"`s" ",s")
-         (?‚þ "`t" ",t")
-         (?‚¿ "`z" "z^.")
-         (?‚ÿ "`." "'.")
-         (?‚Ã "~A" "A(")
-         (?‚È "~C" "C<")
-         (?‚Ï "~D" "D<")
-         (?‚Ì "~E" "E<")
-         (?‚ì "~e" "e<")
-         (?‚¥ "~L" "L<")
-         (?‚Ò "~N" "N<")
-         (?‚Õ "~O" "O''")
-         (?‚Ø "~R" "R<")
-         (?‚© "~S" "S<")
-         (?‚« "~T" "T<")
-         (?‚Û "~U" "U''")
-         (?‚® "~Z" "Z<")
-         (?‚ã "~a" "a(}")
-         (?‚è "~c" "c<")
-         (?‚ï "~d" "d<")
-         (?‚µ "~l" "l<")
-         (?‚ò "~n" "n<")
-         (?‚õ "~o" "o''")
-         (?‚ø "~r" "r<")
-         (?‚¹ "~s" "s<")
-         (?‚» "~t" "t<")
-         (?‚û "~u" "u''")
-         (?‚¾ "~z" "z<")
-         (?‚· "~v" "'<")                        ; ?‚¢ in latin-pre
-         (?‚¢ "~~" "'(")
-         (?‚ù "uu" "u^0")
-         (?‚Ù "UU" "U^0")
-         (?‚Ä "\"A")
-         (?‚ä "\"a")
-         (?‚Ë "\"E" "E:")
-         (?‚ë "\"e")
-         (?‚½ "''" "'")
-         (?‚· "'<")                     ; Lynx's rendering of caron
+       '((?,BF(B "'C" "C'")
+         (?,BP(B "'D" "/D")
+         (?,B&(B "'S" "S'")
+         (?,Bf(B "'c" "c'")
+         (?,Bp(B "'d" "/d")
+         (?,BE(B "'L" "L'")
+         (?,Bq(B "'n" "n'")
+         (?,BQ(B "'N" "N'")
+         (?,B`(B "'r" "r'")
+         (?,B@(B "'R" "R'")
+         (?,B6(B "'s" "s'")
+         (?,B<(B "'z" "z'")
+         (?,B,(B "'Z" "Z'")
+         (?,B!(B "`A" "A;")
+         (?,BJ(B "`E" "E;")
+         (?,B#(B "`L" "/L")
+         (?,B*(B "`S" ",S")
+         (?,B^(B "`T" ",T")
+         (?,B/(B "`Z" "Z^.")
+         (?,B1(B "`a" "a;")
+         (?,B3(B "`l" "/l")
+         (?,Bj(B "`e" "e;")
+         (?,B:(B "`s" ",s")
+         (?,B~(B "`t" ",t")
+         (?,B?(B "`z" "z^.")
+         (?,B(B "`." "'.")
+         (?,BC(B "~A" "A(")
+         (?,BH(B "~C" "C<")
+         (?,BO(B "~D" "D<")
+         (?,BL(B "~E" "E<")
+         (?,Bl(B "~e" "e<")
+         (?,B%(B "~L" "L<")
+         (?,BR(B "~N" "N<")
+         (?,BU(B "~O" "O''")
+         (?,BX(B "~R" "R<")
+         (?,B)(B "~S" "S<")
+         (?,B+(B "~T" "T<")
+         (?,B[(B "~U" "U''")
+         (?,B.(B "~Z" "Z<")
+         (?,Bc(B "~a" "a(}")
+         (?,Bh(B "~c" "c<")
+         (?,Bo(B "~d" "d<")
+         (?,B5(B "~l" "l<")
+         (?,Br(B "~n" "n<")
+         (?,Bu(B "~o" "o''")
+         (?,Bx(B "~r" "r<")
+         (?,B9(B "~s" "s<")
+         (?,B;(B "~t" "t<")
+         (?,B{(B "~u" "u''")
+         (?,B>(B "~z" "z<")
+         (?,B7(B "~v" "'<")                   ; ?,B"(B in latin-pre
+         (?,B"(B "~~" "'(")
+         (?,By(B "uu" "u^0")
+         (?,BY(B "UU" "U^0")
+         (?,BD(B "\"A")
+         (?,Bd(B "\"a")
+         (?,BK(B "\"E" "E:")
+         (?,Bk(B "\"e")
+         (?,B=(B "''" "'")
+         (?,B7(B "'<")                        ; Lynx's rendering of caron
          ))))
 
    ((eq set 'latin-3)
@@ -273,34 +277,34 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?ƒ¡ "/H")
-         (?Ģ "~`" "'(")
-         (?ƒ¦ "^H" "H^")
-         (?Ħ "^h" "h^")
-         (?ĩ ".I" "I^.")
-         (?Ļ ",S")
-         (?ƒ« "~G" "G(")
-         (?ƒ¬ "^J" "J^")
-         (?ƒ¯ ".Z" "Z^.")
-         (?ı "/h")
-         (?ƒ¹ ".i" "i^.")
-         (?ļ ",s")
-         (?ƒ» "~g" "g(")
-         (?ƒ¼ "^j" "j^")
-         (?ƒ¿ ".Z" "z^.")
-         (?ā ".c" "C^.")
-         (?Į "^C" "C^")
-         (?ƒÕ ".G" "G^.")
-         (?į "^G" "G^")
-         (?ƒÝ "~U" "U(")
-         (?ƒÞ "^S" "S^")
-         (?Č ".C" "c^.")
-         (?ľ "^c" "c^")
-         (?ƒõ ".g" "g^.")
-         (?ƒø "^g" "g^")
-         (?ƒý "~u" "u(")
-         (?ƒþ "^s" "s^")
-         (?ƒÿ "/." "^.")))))
+       '((?,C!(B "/H")
+         (?,C"(B "~`" "'(")
+         (?,C&(B "^H" "H^")
+         (?,C6(B "^h" "h^")
+         (?,C)(B ".I" "I^.")
+         (?,C*(B ",S")
+         (?,C+(B "~G" "G(")
+         (?,C,(B "^J" "J^")
+         (?,C/(B ".Z" "Z^.")
+         (?,C1(B "/h")
+         (?,C9(B ".i" "i^.")
+         (?,C:(B ",s")
+         (?,C;(B "~g" "g(")
+         (?,C<(B "^j" "j^")
+         (?,C?(B ".Z" "z^.")
+         (?,CE(B ".c" "C^.")
+         (?,CF(B "^C" "C^")
+         (?,CU(B ".G" "G^.")
+         (?,CX(B "^G" "G^")
+         (?,C](B "~U" "U(")
+         (?,C^(B "^S" "S^")
+         (?,Ce(B ".C" "c^.")
+         (?,Cf(B "^c" "c^")
+         (?,Cu(B ".g" "g^.")
+         (?,Cx(B "^g" "g^")
+         (?,C}(B "~u" "u(")
+         (?,C~(B "^s" "s^")
+         (?,C(B "/." "^.")))))
 
    ((eq set 'latin-4)
     (when (or force
@@ -309,55 +313,55 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?„¡ "A," "A;")
-         (?„¢ "k/" "kk")
-         (?„£ "R," ",R")
-         (?„¥ "I~" "?I")
-         (?„¦ "L," ",L")
-         (?„© "S~" "S<")
-         (?㻠"E-")
-         (?„« "G," ",G")
-         (?„¬ "T/" "/T")
-         (?„® "Z~" "Z<")
-         (?„± "a," "a;")
-         (?„² "';")
-         (?„³ "r," ",r")
-         (?„µ "i~" "~i")
-         (?㦠"l," ",l")
-         (?„· "'<")
-         (?„¹ "s~" "s<")
-         (?㼠"e-")
-         (?„» "g," ",g")
-         (?„¼ "t/" "/t")
-         (?„½ "N/" "NG")
-         (?„¾ "z~" "z<")
-         (?„¿ "n/" "ng")
-         (?„À "A-")
-         (?„Ç "I," "I;")
-         (?„È "C~" "C<")
-         (?„Ê "E," "E;")
-         (?„Ì "E." "E^.")
-         (?„Ï "I-")
-         (?„Ñ "N," ",N")
-         (?„Ò "O-")
-         (?„Ó "K," ",K")
-         (?„Ù "U," "U;")
-         (?„Ý "U~" "~U")
-         (?„Þ "U-")
-         (?„à "a-")
-         (?„ç "i," "i;")
-         (?„è "c~" "c<")
-         (?„ê "e," "e;")
-         (?„ì "e." "e^.")
-         (?„ï "i-")
-         (?„ð "d/" "/d")
-         (?„ñ "n," ",n")
-         (?„ò "o-")
-         (?„ó "k," ",k")
-         (?„ù "u," "u;")
-         (?„ý "u~" "~u")
-         (?„þ "u-")
-         (?„ÿ "^.")))))
+       '((?,D!(B "A," "A;")
+         (?,D"(B "k/" "kk")
+         (?,D#(B "R," ",R")
+         (?,D%(B "I~" "?I")
+         (?,D&(B "L," ",L")
+         (?,D)(B "S~" "S<")
+         (?,D*(B "E-")
+         (?,D+(B "G," ",G")
+         (?,D,(B "T/" "/T")
+         (?,D.(B "Z~" "Z<")
+         (?,D1(B "a," "a;")
+         (?,D2(B "';")
+         (?,D3(B "r," ",r")
+         (?,D5(B "i~" "~i")
+         (?,D6(B "l," ",l")
+         (?,D7(B "'<")
+         (?,D9(B "s~" "s<")
+         (?,D:(B "e-")
+         (?,D;(B "g," ",g")
+         (?,D<(B "t/" "/t")
+         (?,D=(B "N/" "NG")
+         (?,D>(B "z~" "z<")
+         (?,D?(B "n/" "ng")
+         (?,D@(B "A-")
+         (?,DG(B "I," "I;")
+         (?,DH(B "C~" "C<")
+         (?,DJ(B "E," "E;")
+         (?,DL(B "E." "E^.")
+         (?,DO(B "I-")
+         (?,DQ(B "N," ",N")
+         (?,DR(B "O-")
+         (?,DS(B "K," ",K")
+         (?,DY(B "U," "U;")
+         (?,D](B "U~" "~U")
+         (?,D^(B "U-")
+         (?,D`(B "a-")
+         (?,Dg(B "i," "i;")
+         (?,Dh(B "c~" "c<")
+         (?,Dj(B "e," "e;")
+         (?,Dl(B "e." "e^.")
+         (?,Do(B "i-")
+         (?,Dp(B "d/" "/d")
+         (?,Dq(B "n," ",n")
+         (?,Dr(B "o-")
+         (?,Ds(B "k," ",k")
+         (?,Dy(B "u," "u;")
+         (?,D}(B "u~" "~u")
+         (?,D~(B "u-")
+         (?,D(B "^.")))))
 
    ((eq set 'latin-5)
     (when (or force
@@ -366,15 +370,15 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?�ð "~g" "g(")
-         (?�Р"~G" "G(")
-         (?�Ý ".I" "I^.")
-         (?�þ ",s")
-         (?�Þ ",S")
-         (?�ê "^e" "e<")                        ; from latin-post
-         (?�ì ".e" "e^.")
-         (?�ï "\"i" "i-")               ; from latin-post
-         (?�ý ".i" "i.")))))
+       '((?,Mp(B "~g" "g(")
+         (?,MP(B "~G" "G(")
+         (?,M](B ".I" "I^.")
+         (?,M~(B ",s")
+         (?,M^(B ",S")
+         (?,Mj(B "^e" "e<")                   ; from latin-post
+         (?,Ml(B ".e" "e^.")
+         (?,Mo(B "\"i" "i-")          ; from latin-post
+         (?,M}(B ".i" "i.")))))
 
    ((eq set 'latin-8)
     (when (or force
@@ -383,37 +387,37 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?�¡ ".B" "B`")
-         (?�¢ ".b" "b`")
-         (?�¥ ".c" "c`")
-         (?�¤ ".C" "C`")
-         (?�¦ ".D" "D`")
-         (?�« ".d" "d`")
-         (?�¸ "`w")
-         (?�¨ "`W")
-         (?�º "'w" "w'")
-         (?�ª "'W" "W'")
-         (?�¼ "`y")
-         (?�¬ "`Y")
-         (?�± ".f" "f`")
-         (?�° ".F" "F`")
-         (?�³ ".g" "g`")
-         (?�² ".G" "G`")
-         (?�µ ".m" "m`")
-         (?�´ ".M" "M`")
-         (?�¹ ".p" "p`")
-         (?�· ".P" "P`")
-         (?�¿ ".s" "s`")
-         (?�» ".S" "S`")
-         (?�¾ "\"w")
-         (?�½ "\"W")
-         (?�ð "^w" "w^")
-         (?�Р"^W" "W^")
-         (?�÷ ".t" "t`")
-         (?�× ".T" "T`")
-         (?�þ "^y" "y^")
-         (?�Þ "^Y" "Y^")
-         (?�¯ "\"Y")))))
+       '((?,_!(B ".B" "B`")
+         (?,_"(B ".b" "b`")
+         (?,_%(B ".c" "c`")
+         (?,_$(B ".C" "C`")
+         (?,_&(B ".D" "D`")
+         (?,_+(B ".d" "d`")
+         (?,_8(B "`w")
+         (?,_((B "`W")
+         (?,_:(B "'w" "w'")
+         (?,_*(B "'W" "W'")
+         (?,_<(B "`y")
+         (?,_,(B "`Y")
+         (?,_1(B ".f" "f`")
+         (?,_0(B ".F" "F`")
+         (?,_3(B ".g" "g`")
+         (?,_2(B ".G" "G`")
+         (?,_5(B ".m" "m`")
+         (?,_4(B ".M" "M`")
+         (?,_9(B ".p" "p`")
+         (?,_7(B ".P" "P`")
+         (?,_?(B ".s" "s`")
+         (?,_;(B ".S" "S`")
+         (?,_>(B "\"w")
+         (?,_=(B "\"W")
+         (?,_p(B "^w" "w^")
+         (?,_P(B "^W" "W^")
+         (?,_w(B ".t" "t`")
+         (?,_W(B ".T" "T`")
+         (?,_~(B "^y" "y^")
+         (?,_^(B "^Y" "Y^")
+         (?,_/(B "\"Y")))))
 
    ((eq set 'latin-9)
     (when (or force
@@ -422,14 +426,14 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?Ž¨ "~s" "s<")
-         (?Ž¦ "~S" "S<")
-         (?Ž¤ "Euro" "E=")
-         (?Ž¸ "~z" "z<")
-         (?Ž´ "~Z" "Z<")
-         (?Ž¾ "\"Y")
-         (?Ž½ "oe")
-         (?Ž¼ "OE")))))
+       '((?,b((B "~s" "s<")
+         (?,b&(B "~S" "S<")
+         (?,b$(B "Euro" "E=")
+         (?,b8(B "~z" "z<")
+         (?,b4(B "~Z" "Z<")
+         (?,b>(B "\"Y")
+         (?,b=(B "oe")
+         (?,b<(B "OE")))))
 
    ((eq set 'greek)
     (when (or force
@@ -437,82 +441,82 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?†¡ "9'")
-         (?†¢ "'9")
-         (?†¯ "-M")
-         (?†µ "'%")
-         (?†¶ "'A")
-         (?†¸ "'E")
-         (?†¹ "'H")
-         (?†º "'I")
-         (?†¼ "'O")
-         (?†¾ "'Y")
-         (?†¿ "W%")
-         (?†À "i3")
-         (?†Ã "G*")
-         (?†Ä "D*")
-         (?†È "TH")
-         (?†Ë "L*")
-         (?†Î "C*")
-         (?†Ð "P*")
-         (?†Ó "S*")
-         (?†Ö "F*")
-         (?†Ø "Q*")
-         (?†Ù "W*")
-         (?†Ú "\"I")
-         (?†Û "\"Y")
-         (?†Ü "a%")
-         (?†Ý "e%")
-         (?†Þ "y%")
-         (?†ß "i%")
-         (?†à "u3")
-         (?†á "a*")
-         (?†â "b*")
-         (?†ã "g*")
-         (?†ä "d*")
-         (?†å "e*")
-         (?†æ "z*")
-         (?†ç "y*")
-         (?†è "h*")
-         (?†é "i*")
-         (?†ê "k")
-         (?†ë "l*")
-         (?†ì "m*")
-         (?†í "n*")
-         (?†î "c*")
-         (?†ð "p*")
-         (?†ñ "r*")
-         (?†ò "*s")
-         (?†ó "s*")
-         (?†ô "t*")
-         (?†õ "u")
-         (?†ö "f*")
-         (?†÷ "x*")
-         (?†ø "q*")
-         (?†ù "w*")
-         (?†ú "\"i")
-         (?†û "\"u")
-         (?†ü "'o")
-         (?†ý "'u")
-         (?†þ "'w")))
+       '((?,F!(B "9'")
+         (?,F"(B "'9")
+         (?,F/(B "-M")
+         (?,F5(B "'%")
+         (?,F6(B "'A")
+         (?,F8(B "'E")
+         (?,F9(B "'H")
+         (?,F:(B "'I")
+         (?,F<(B "'O")
+         (?,F>(B "'Y")
+         (?,F?(B "W%")
+         (?,F@(B "i3")
+         (?,FC(B "G*")
+         (?,FD(B "D*")
+         (?,FH(B "TH")
+         (?,FK(B "L*")
+         (?,FN(B "C*")
+         (?,FP(B "P*")
+         (?,FS(B "S*")
+         (?,FV(B "F*")
+         (?,FX(B "Q*")
+         (?,FY(B "W*")
+         (?,FZ(B "\"I")
+         (?,F[(B "\"Y")
+         (?,F\(B "a%")
+         (?,F](B "e%")
+         (?,F^(B "y%")
+         (?,F_(B "i%")
+         (?,F`(B "u3")
+         (?,Fa(B "a*")
+         (?,Fb(B "b*")
+         (?,Fc(B "g*")
+         (?,Fd(B "d*")
+         (?,Fe(B "e*")
+         (?,Ff(B "z*")
+         (?,Fg(B "y*")
+         (?,Fh(B "h*")
+         (?,Fi(B "i*")
+         (?,Fj(B "k")
+         (?,Fk(B "l*")
+         (?,Fl(B "m*")
+         (?,Fm(B "n*")
+         (?,Fn(B "c*")
+         (?,Fp(B "p*")
+         (?,Fq(B "r*")
+         (?,Fr(B "*s")
+         (?,Fs(B "s*")
+         (?,Ft(B "t*")
+         (?,Fu(B "u")
+         (?,Fv(B "f*")
+         (?,Fw(B "x*")
+         (?,Fx(B "q*")
+         (?,Fy(B "w*")
+         (?,Fz(B "\"i")
+         (?,F{(B "\"u")
+         (?,F|(B "'o")
+         (?,F}(B "'u")
+         (?,F~(B "'w")))
       (mapc
        (lambda (l)
          (aset standard-display-table (car l) (string-to-vector (cadr l))))
-       '((?†Á "A")
-         (?†Â "B")
-         (?†Å "E")
-         (?†Æ "Z")
-         (?†Ç "H")
-         (?†É "I")
-         (?†Ê "J")
-         (?†Ì "M")
-         (?†Í "N")
-         (?†Ï "O")
-         (?†Ñ "P")
-         (?†Ô "T")
-         (?†Õ "Y")
-         (?†× "X")
-         (?†ï "o")))))
+       '((?,FA(B "A")
+         (?,FB(B "B")
+         (?,FE(B "E")
+         (?,FF(B "Z")
+         (?,FG(B "H")
+         (?,FI(B "I")
+         (?,FJ(B "J")
+         (?,FL(B "M")
+         (?,FM(B "N")
+         (?,FO(B "O")
+         (?,FQ(B "P")
+         (?,FT(B "T")
+         (?,FU(B "Y")
+         (?,FW(B "X")
+         (?,Fo(B "o")))))
 
    ((eq set 'hebrew)
     (when (or force
@@ -529,34 +533,34 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (aset standard-display-table (car l) (string-to-vector (cadr l))))
-       '((?ˆß "=2")
-         (?ˆà "A+")
-         (?ˆá "B+")
-         (?ˆâ "G+")
-         (?ˆã "D+")
-         (?ˆä "H+")
-         (?ˆå "W+")
-         (?ˆæ "Z+")
-         (?ˆç "X+")
-         (?ˆè "Tj")
-         (?ˆé "J+")
-         (?ˆê "K%")
-         (?ˆë "K+")
-         (?ˆì "L+")
-         (?ˆí "M%")
-         (?ˆî "M+")
-         (?ˆï "N%")
-         (?ˆð "N+")
-         (?ˆñ "S+")
-         (?ˆò "E+")
-         (?ˆó "P%")
-         (?ˆô "P+")
-         (?ˆõ "Zj")
-         (?ˆö "ZJ")
-         (?ˆ÷ "Q+")
-         (?ˆø "R+")
-         (?ˆù "Sh")
-         (?ˆú "T+")))))
+       '((?,H_(B "=2")
+         (?,H`(B "A+")
+         (?,Ha(B "B+")
+         (?,Hb(B "G+")
+         (?,Hc(B "D+")
+         (?,Hd(B "H+")
+         (?,He(B "W+")
+         (?,Hf(B "Z+")
+         (?,Hg(B "X+")
+         (?,Hh(B "Tj")
+         (?,Hi(B "J+")
+         (?,Hj(B "K%")
+         (?,Hk(B "K+")
+         (?,Hl(B "L+")
+         (?,Hm(B "M%")
+         (?,Hn(B "M+")
+         (?,Ho(B "N%")
+         (?,Hp(B "N+")
+         (?,Hq(B "S+")
+         (?,Hr(B "E+")
+         (?,Hs(B "P%")
+         (?,Ht(B "P+")
+         (?,Hu(B "Zj")
+         (?,Hv(B "ZJ")
+         (?,Hw(B "Q+")
+         (?,Hx(B "R+")
+         (?,Hy(B "Sh")
+         (?,Hz(B "T+")))))
 
    ((eq set 'cyrillic)
     (setq set 'cyrillic-iso)
@@ -565,104 +569,104 @@ is.  If FORCE is non-nil, set up the display regardless."
       (mapc
        (lambda (l)
          (apply 'latin1-display-char l))
-       '((?΢ "Dj")
-         (?Σ "Gj")
-         (?Œ¤ "IE")
-         (?Ω "Lj")
-         (?λ "Nj")
-         (?Œ« "Ts")
-         (?Œ¬ "Kj")
-         (?Ψ "V%")
-         (?Œ¯ "Dzh")
-         (?α "B=")
-         (?Œ³ "â")
-         (?Ϋ "D")
-         (?Φ "Z%")
-         (?Œ· "3")
-         (?Œ¸ "U")
-         (?Œ¹ "J=")
-         (?Œ» "L=")
-         (?Œ¿ "P=")
-         (?ŒÃ "Y")
-         (?ŒÄ "è")
-         (?ή "C=")
-         (?΂ "C%")
-         (?ŒÈ "S%")
-         (?΃ "Sc")
-         (?ŒÊ "=\"")
-         (?ŒË "Y=")
-         (?ŒÌ "%\"")
-         (?ŒÍ "Ee")
-         (?ŒÎ "Yu")
-         (?ŒÏ "Ya")
-         (?΄ "b")
-         (?ŒÒ "v=")
-         (?ŒÓ "g=")
-         (?ŒÔ "g")
-         (?΅ "z%")
-         (?Œ× "z=")
-         (?ί "u")
-         (?ŒÙ "j=")
-         (?ŒÚ "k")
-         (?ŒÛ "l=")
-         (?Ά "m=")
-         (?ŒÝ "n=")
-         (?Χ "n")
-         (?Έ "p")
-         (?Ή "t=")
-         (?Ί "f=")
-         (?ξ "c=")
-         (?΍ "c%")
-         (?Ώ "s%")
-         (?Ύ "sc")
-         (?ΐ "='")
-         (?Α "y=")
-         (?Γ "%'")
-         (?Β "ee")
-         (?Δ "yu")
-         (?Ε "ya")
-         (?Œð "N0")
-         (?Θ "dj")
-         (?Η "gj")
-         (?Ι "ie")
-         (?Ν "lj")
-         (?Μ "nj")
-         (?Ξ "ts")
-         (?Ο "kj")
-         (?Œþ "v%")
-         (?Œÿ "dzh")))
+       '((?,L"(B "Dj")
+         (?,L#(B "Gj")
+         (?,L$(B "IE")
+         (?,L)(B "Lj")
+         (?,L*(B "Nj")
+         (?,L+(B "Ts")
+         (?,L,(B "Kj")
+         (?,L.(B "V%")
+         (?,L/(B "Dzh")
+         (?,L1(B "B=")
+         (?,L3(B "â")
+         (?,L4(B "D")
+         (?,L6(B "Z%")
+         (?,L7(B "3")
+         (?,L8(B "U")
+         (?,L9(B "J=")
+         (?,L;(B "L=")
+         (?,L?(B "P=")
+         (?,LC(B "Y")
+         (?,LD(B "è")
+         (?,LF(B "C=")
+         (?,LG(B "C%")
+         (?,LH(B "S%")
+         (?,LI(B "Sc")
+         (?,LJ(B "=\"")
+         (?,LK(B "Y=")
+         (?,LL(B "%\"")
+         (?,LM(B "Ee")
+         (?,LN(B "Yu")
+         (?,LO(B "Ya")
+         (?,LQ(B "b")
+         (?,LR(B "v=")
+         (?,LS(B "g=")
+         (?,LT(B "g")
+         (?,LV(B "z%")
+         (?,LW(B "z=")
+         (?,LX(B "u")
+         (?,LY(B "j=")
+         (?,LZ(B "k")
+         (?,L[(B "l=")
+         (?,L\(B "m=")
+         (?,L](B "n=")
+         (?,L_(B "n")
+         (?,L`(B "p")
+         (?,Lb(B "t=")
+         (?,Ld(B "f=")
+         (?,Lf(B "c=")
+         (?,Lg(B "c%")
+         (?,Lh(B "s%")
+         (?,Li(B "sc")
+         (?,Lj(B "='")
+         (?,Lk(B "y=")
+         (?,Ll(B "%'")
+         (?,Lm(B "ee")
+         (?,Ln(B "yu")
+         (?,Lo(B "ya")
+         (?,Lp(B "N0")
+         (?,Lr(B "dj")
+         (?,Ls(B "gj")
+         (?,Lt(B "ie")
+         (?,Ly(B "lj")
+         (?,Lz(B "nj")
+         (?,L{(B "ts")
+         (?,L|(B "kj")
+         (?,L~(B "v%")
+         (?,L(B "dzh")))
       (mapc
        (lambda (l)
          (aset standard-display-table (car l) (string-to-vector (cadr l))))
-       '((?Œ¡ "�Ë")
-         (?δ "S")
-         (?Œ¦ "I")
-         (?Œ§ "�Ï")
-         (?ά "J")
-         (?Œñ "�ë")
-         (?Œý "�§")
-         (?Œ­ "-")
-         (?Ρ "A")
-         (?Œ² "B")
-         (?ε "E")
-         (?μ "K")
-         (?Œ¼ "M")
-         (?Œ½ "H")
-         (?Œ¾ "O")
-         (?ŒÀ "P")
-         (?ŒÁ "C")
-         (?ŒÂ "T")
-         (?΁ "X")
-         (?ŒÐ "a")
-         (?ŒÕ "e")
-         (?ŒÞ "o")
-         (?· "c")
-         (?΋ "y")
-         (?Ό "x")
-         (?Λ "s")
-         (?Κ "i")
-         (?Œ÷ "�ï")
-         (?ο "j")))))
+       '((?,L!(B ",AK(B")
+         (?,L%(B "S")
+         (?,L&(B "I")
+         (?,L'(B ",AO(B")
+         (?,L((B "J")
+         (?,Lq(B ",Ak(B")
+         (?,L}(B ",A'(B")
+         (?,L-(B "-")
+         (?,L0(B "A")
+         (?,L2(B "B")
+         (?,L5(B "E")
+         (?,L:(B "K")
+         (?,L<(B "M")
+         (?,L=(B "H")
+         (?,L>(B "O")
+         (?,L@(B "P")
+         (?,LA(B "C")
+         (?,LB(B "T")
+         (?,LE(B "X")
+         (?,LP(B "a")
+         (?,LU(B "e")
+         (?,L^(B "o")
+         (?,La(B "c")
+         (?,Lc(B "y")
+         (?,Le(B "x")
+         (?,Lu(B "s")
+         (?,Lv(B "i")
+         (?,Lw(B ",Ao(B")
+         (?,Lx(B "j")))))
 
    (t (error "Unsupported character set: %S" set)))