-;;; 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.
;; 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
(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}"
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.
(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)
(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))
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\82Æ "'C" "C'")
- (?\82Ð "'D" "/D")
- (?\82¦ "'S" "S'")
- (?\82æ "'c" "c'")
- (?\82ð "'d" "/d")
- (?\82Å "'L" "L'")
- (?\82ñ "'n" "n'")
- (?\82Ñ "'N" "N'")
- (?\82à "'r" "r'")
- (?\82À "'R" "R'")
- (?\82¶ "'s" "s'")
- (?\82¼ "'z" "z'")
- (?\82¬ "'Z" "Z'")
- (?\82¡ "`A" "A;")
- (?\82Ê "`E" "E;")
- (?\82£ "`L" "/L")
- (?\82ª "`S" ",S")
- (?\82Þ "`T" ",T")
- (?\82¯ "`Z" "Z^.")
- (?\82± "`a" "a;")
- (?\82³ "`l" "/l")
- (?\82ê "`e" "e;")
- (?\82º "`s" ",s")
- (?\82þ "`t" ",t")
- (?\82¿ "`z" "z^.")
- (?\82ÿ "`." "'.")
- (?\82Ã "~A" "A(")
- (?\82È "~C" "C<")
- (?\82Ï "~D" "D<")
- (?\82Ì "~E" "E<")
- (?\82ì "~e" "e<")
- (?\82¥ "~L" "L<")
- (?\82Ò "~N" "N<")
- (?\82Õ "~O" "O''")
- (?\82Ø "~R" "R<")
- (?\82© "~S" "S<")
- (?\82« "~T" "T<")
- (?\82Û "~U" "U''")
- (?\82® "~Z" "Z<")
- (?\82ã "~a" "a(}")
- (?\82è "~c" "c<")
- (?\82ï "~d" "d<")
- (?\82µ "~l" "l<")
- (?\82ò "~n" "n<")
- (?\82õ "~o" "o''")
- (?\82ø "~r" "r<")
- (?\82¹ "~s" "s<")
- (?\82» "~t" "t<")
- (?\82û "~u" "u''")
- (?\82¾ "~z" "z<")
- (?\82· "~v" "'<") ; ?\82¢ in latin-pre
- (?\82¢ "~~" "'(")
- (?\82ù "uu" "u^0")
- (?\82Ù "UU" "U^0")
- (?\82Ä "\"A")
- (?\82ä "\"a")
- (?\82Ë "\"E" "E:")
- (?\82ë "\"e")
- (?\82½ "''" "'")
- (?\82· "'<") ; Lynx's rendering of caron
+ '((?\e,BF\e(B "'C" "C'")
+ (?\e,BP\e(B "'D" "/D")
+ (?\e,B&\e(B "'S" "S'")
+ (?\e,Bf\e(B "'c" "c'")
+ (?\e,Bp\e(B "'d" "/d")
+ (?\e,BE\e(B "'L" "L'")
+ (?\e,Bq\e(B "'n" "n'")
+ (?\e,BQ\e(B "'N" "N'")
+ (?\e,B`\e(B "'r" "r'")
+ (?\e,B@\e(B "'R" "R'")
+ (?\e,B6\e(B "'s" "s'")
+ (?\e,B<\e(B "'z" "z'")
+ (?\e,B,\e(B "'Z" "Z'")
+ (?\e,B!\e(B "`A" "A;")
+ (?\e,BJ\e(B "`E" "E;")
+ (?\e,B#\e(B "`L" "/L")
+ (?\e,B*\e(B "`S" ",S")
+ (?\e,B^\e(B "`T" ",T")
+ (?\e,B/\e(B "`Z" "Z^.")
+ (?\e,B1\e(B "`a" "a;")
+ (?\e,B3\e(B "`l" "/l")
+ (?\e,Bj\e(B "`e" "e;")
+ (?\e,B:\e(B "`s" ",s")
+ (?\e,B~\e(B "`t" ",t")
+ (?\e,B?\e(B "`z" "z^.")
+ (?\e,B\7f\e(B "`." "'.")
+ (?\e,BC\e(B "~A" "A(")
+ (?\e,BH\e(B "~C" "C<")
+ (?\e,BO\e(B "~D" "D<")
+ (?\e,BL\e(B "~E" "E<")
+ (?\e,Bl\e(B "~e" "e<")
+ (?\e,B%\e(B "~L" "L<")
+ (?\e,BR\e(B "~N" "N<")
+ (?\e,BU\e(B "~O" "O''")
+ (?\e,BX\e(B "~R" "R<")
+ (?\e,B)\e(B "~S" "S<")
+ (?\e,B+\e(B "~T" "T<")
+ (?\e,B[\e(B "~U" "U''")
+ (?\e,B.\e(B "~Z" "Z<")
+ (?\e,Bc\e(B "~a" "a(}")
+ (?\e,Bh\e(B "~c" "c<")
+ (?\e,Bo\e(B "~d" "d<")
+ (?\e,B5\e(B "~l" "l<")
+ (?\e,Br\e(B "~n" "n<")
+ (?\e,Bu\e(B "~o" "o''")
+ (?\e,Bx\e(B "~r" "r<")
+ (?\e,B9\e(B "~s" "s<")
+ (?\e,B;\e(B "~t" "t<")
+ (?\e,B{\e(B "~u" "u''")
+ (?\e,B>\e(B "~z" "z<")
+ (?\e,B7\e(B "~v" "'<") ; ?\e,B"\e(B in latin-pre
+ (?\e,B"\e(B "~~" "'(")
+ (?\e,By\e(B "uu" "u^0")
+ (?\e,BY\e(B "UU" "U^0")
+ (?\e,BD\e(B "\"A")
+ (?\e,Bd\e(B "\"a")
+ (?\e,BK\e(B "\"E" "E:")
+ (?\e,Bk\e(B "\"e")
+ (?\e,B=\e(B "''" "'")
+ (?\e,B7\e(B "'<") ; Lynx's rendering of caron
))))
((eq set 'latin-3)
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\83¡ "/H")
- (?\83¢ "~`" "'(")
- (?\83¦ "^H" "H^")
- (?\83¶ "^h" "h^")
- (?\83© ".I" "I^.")
- (?\83ª ",S")
- (?\83« "~G" "G(")
- (?\83¬ "^J" "J^")
- (?\83¯ ".Z" "Z^.")
- (?\83± "/h")
- (?\83¹ ".i" "i^.")
- (?\83º ",s")
- (?\83» "~g" "g(")
- (?\83¼ "^j" "j^")
- (?\83¿ ".Z" "z^.")
- (?\83Å ".c" "C^.")
- (?\83Æ "^C" "C^")
- (?\83Õ ".G" "G^.")
- (?\83Ø "^G" "G^")
- (?\83Ý "~U" "U(")
- (?\83Þ "^S" "S^")
- (?\83å ".C" "c^.")
- (?\83æ "^c" "c^")
- (?\83õ ".g" "g^.")
- (?\83ø "^g" "g^")
- (?\83ý "~u" "u(")
- (?\83þ "^s" "s^")
- (?\83ÿ "/." "^.")))))
+ '((?\e,C!\e(B "/H")
+ (?\e,C"\e(B "~`" "'(")
+ (?\e,C&\e(B "^H" "H^")
+ (?\e,C6\e(B "^h" "h^")
+ (?\e,C)\e(B ".I" "I^.")
+ (?\e,C*\e(B ",S")
+ (?\e,C+\e(B "~G" "G(")
+ (?\e,C,\e(B "^J" "J^")
+ (?\e,C/\e(B ".Z" "Z^.")
+ (?\e,C1\e(B "/h")
+ (?\e,C9\e(B ".i" "i^.")
+ (?\e,C:\e(B ",s")
+ (?\e,C;\e(B "~g" "g(")
+ (?\e,C<\e(B "^j" "j^")
+ (?\e,C?\e(B ".Z" "z^.")
+ (?\e,CE\e(B ".c" "C^.")
+ (?\e,CF\e(B "^C" "C^")
+ (?\e,CU\e(B ".G" "G^.")
+ (?\e,CX\e(B "^G" "G^")
+ (?\e,C]\e(B "~U" "U(")
+ (?\e,C^\e(B "^S" "S^")
+ (?\e,Ce\e(B ".C" "c^.")
+ (?\e,Cf\e(B "^c" "c^")
+ (?\e,Cu\e(B ".g" "g^.")
+ (?\e,Cx\e(B "^g" "g^")
+ (?\e,C}\e(B "~u" "u(")
+ (?\e,C~\e(B "^s" "s^")
+ (?\e,C\7f\e(B "/." "^.")))))
((eq set 'latin-4)
(when (or force
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\84¡ "A," "A;")
- (?\84¢ "k/" "kk")
- (?\84£ "R," ",R")
- (?\84¥ "I~" "?I")
- (?\84¦ "L," ",L")
- (?\84© "S~" "S<")
- (?\84ª "E-")
- (?\84« "G," ",G")
- (?\84¬ "T/" "/T")
- (?\84® "Z~" "Z<")
- (?\84± "a," "a;")
- (?\84² "';")
- (?\84³ "r," ",r")
- (?\84µ "i~" "~i")
- (?\84¶ "l," ",l")
- (?\84· "'<")
- (?\84¹ "s~" "s<")
- (?\84º "e-")
- (?\84» "g," ",g")
- (?\84¼ "t/" "/t")
- (?\84½ "N/" "NG")
- (?\84¾ "z~" "z<")
- (?\84¿ "n/" "ng")
- (?\84À "A-")
- (?\84Ç "I," "I;")
- (?\84È "C~" "C<")
- (?\84Ê "E," "E;")
- (?\84Ì "E." "E^.")
- (?\84Ï "I-")
- (?\84Ñ "N," ",N")
- (?\84Ò "O-")
- (?\84Ó "K," ",K")
- (?\84Ù "U," "U;")
- (?\84Ý "U~" "~U")
- (?\84Þ "U-")
- (?\84à "a-")
- (?\84ç "i," "i;")
- (?\84è "c~" "c<")
- (?\84ê "e," "e;")
- (?\84ì "e." "e^.")
- (?\84ï "i-")
- (?\84ð "d/" "/d")
- (?\84ñ "n," ",n")
- (?\84ò "o-")
- (?\84ó "k," ",k")
- (?\84ù "u," "u;")
- (?\84ý "u~" "~u")
- (?\84þ "u-")
- (?\84ÿ "^.")))))
+ '((?\e,D!\e(B "A," "A;")
+ (?\e,D"\e(B "k/" "kk")
+ (?\e,D#\e(B "R," ",R")
+ (?\e,D%\e(B "I~" "?I")
+ (?\e,D&\e(B "L," ",L")
+ (?\e,D)\e(B "S~" "S<")
+ (?\e,D*\e(B "E-")
+ (?\e,D+\e(B "G," ",G")
+ (?\e,D,\e(B "T/" "/T")
+ (?\e,D.\e(B "Z~" "Z<")
+ (?\e,D1\e(B "a," "a;")
+ (?\e,D2\e(B "';")
+ (?\e,D3\e(B "r," ",r")
+ (?\e,D5\e(B "i~" "~i")
+ (?\e,D6\e(B "l," ",l")
+ (?\e,D7\e(B "'<")
+ (?\e,D9\e(B "s~" "s<")
+ (?\e,D:\e(B "e-")
+ (?\e,D;\e(B "g," ",g")
+ (?\e,D<\e(B "t/" "/t")
+ (?\e,D=\e(B "N/" "NG")
+ (?\e,D>\e(B "z~" "z<")
+ (?\e,D?\e(B "n/" "ng")
+ (?\e,D@\e(B "A-")
+ (?\e,DG\e(B "I," "I;")
+ (?\e,DH\e(B "C~" "C<")
+ (?\e,DJ\e(B "E," "E;")
+ (?\e,DL\e(B "E." "E^.")
+ (?\e,DO\e(B "I-")
+ (?\e,DQ\e(B "N," ",N")
+ (?\e,DR\e(B "O-")
+ (?\e,DS\e(B "K," ",K")
+ (?\e,DY\e(B "U," "U;")
+ (?\e,D]\e(B "U~" "~U")
+ (?\e,D^\e(B "U-")
+ (?\e,D`\e(B "a-")
+ (?\e,Dg\e(B "i," "i;")
+ (?\e,Dh\e(B "c~" "c<")
+ (?\e,Dj\e(B "e," "e;")
+ (?\e,Dl\e(B "e." "e^.")
+ (?\e,Do\e(B "i-")
+ (?\e,Dp\e(B "d/" "/d")
+ (?\e,Dq\e(B "n," ",n")
+ (?\e,Dr\e(B "o-")
+ (?\e,Ds\e(B "k," ",k")
+ (?\e,Dy\e(B "u," "u;")
+ (?\e,D}\e(B "u~" "~u")
+ (?\e,D~\e(B "u-")
+ (?\e,D\7f\e(B "^.")))))
((eq set 'latin-5)
(when (or force
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\8dð "~g" "g(")
- (?\8dÐ "~G" "G(")
- (?\8dÝ ".I" "I^.")
- (?\8dþ ",s")
- (?\8dÞ ",S")
- (?\8dê "^e" "e<") ; from latin-post
- (?\8dì ".e" "e^.")
- (?\8dï "\"i" "i-") ; from latin-post
- (?\8dý ".i" "i.")))))
+ '((?\e,Mp\e(B "~g" "g(")
+ (?\e,MP\e(B "~G" "G(")
+ (?\e,M]\e(B ".I" "I^.")
+ (?\e,M~\e(B ",s")
+ (?\e,M^\e(B ",S")
+ (?\e,Mj\e(B "^e" "e<") ; from latin-post
+ (?\e,Ml\e(B ".e" "e^.")
+ (?\e,Mo\e(B "\"i" "i-") ; from latin-post
+ (?\e,M}\e(B ".i" "i.")))))
((eq set 'latin-8)
(when (or force
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\8f¡ ".B" "B`")
- (?\8f¢ ".b" "b`")
- (?\8f¥ ".c" "c`")
- (?\8f¤ ".C" "C`")
- (?\8f¦ ".D" "D`")
- (?\8f« ".d" "d`")
- (?\8f¸ "`w")
- (?\8f¨ "`W")
- (?\8fº "'w" "w'")
- (?\8fª "'W" "W'")
- (?\8f¼ "`y")
- (?\8f¬ "`Y")
- (?\8f± ".f" "f`")
- (?\8f° ".F" "F`")
- (?\8f³ ".g" "g`")
- (?\8f² ".G" "G`")
- (?\8fµ ".m" "m`")
- (?\8f´ ".M" "M`")
- (?\8f¹ ".p" "p`")
- (?\8f· ".P" "P`")
- (?\8f¿ ".s" "s`")
- (?\8f» ".S" "S`")
- (?\8f¾ "\"w")
- (?\8f½ "\"W")
- (?\8fð "^w" "w^")
- (?\8fÐ "^W" "W^")
- (?\8f÷ ".t" "t`")
- (?\8f× ".T" "T`")
- (?\8fþ "^y" "y^")
- (?\8fÞ "^Y" "Y^")
- (?\8f¯ "\"Y")))))
+ '((?\e,_!\e(B ".B" "B`")
+ (?\e,_"\e(B ".b" "b`")
+ (?\e,_%\e(B ".c" "c`")
+ (?\e,_$\e(B ".C" "C`")
+ (?\e,_&\e(B ".D" "D`")
+ (?\e,_+\e(B ".d" "d`")
+ (?\e,_8\e(B "`w")
+ (?\e,_(\e(B "`W")
+ (?\e,_:\e(B "'w" "w'")
+ (?\e,_*\e(B "'W" "W'")
+ (?\e,_<\e(B "`y")
+ (?\e,_,\e(B "`Y")
+ (?\e,_1\e(B ".f" "f`")
+ (?\e,_0\e(B ".F" "F`")
+ (?\e,_3\e(B ".g" "g`")
+ (?\e,_2\e(B ".G" "G`")
+ (?\e,_5\e(B ".m" "m`")
+ (?\e,_4\e(B ".M" "M`")
+ (?\e,_9\e(B ".p" "p`")
+ (?\e,_7\e(B ".P" "P`")
+ (?\e,_?\e(B ".s" "s`")
+ (?\e,_;\e(B ".S" "S`")
+ (?\e,_>\e(B "\"w")
+ (?\e,_=\e(B "\"W")
+ (?\e,_p\e(B "^w" "w^")
+ (?\e,_P\e(B "^W" "W^")
+ (?\e,_w\e(B ".t" "t`")
+ (?\e,_W\e(B ".T" "T`")
+ (?\e,_~\e(B "^y" "y^")
+ (?\e,_^\e(B "^Y" "Y^")
+ (?\e,_/\e(B "\"Y")))))
((eq set 'latin-9)
(when (or force
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\8e¨ "~s" "s<")
- (?\8e¦ "~S" "S<")
- (?\8e¤ "Euro" "E=")
- (?\8e¸ "~z" "z<")
- (?\8e´ "~Z" "Z<")
- (?\8e¾ "\"Y")
- (?\8e½ "oe")
- (?\8e¼ "OE")))))
+ '((?\e,b(\e(B "~s" "s<")
+ (?\e,b&\e(B "~S" "S<")
+ (?\e,b$\e(B "Euro" "E=")
+ (?\e,b8\e(B "~z" "z<")
+ (?\e,b4\e(B "~Z" "Z<")
+ (?\e,b>\e(B "\"Y")
+ (?\e,b=\e(B "oe")
+ (?\e,b<\e(B "OE")))))
((eq set 'greek)
(when (or force
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\86¡ "9'")
- (?\86¢ "'9")
- (?\86¯ "-M")
- (?\86µ "'%")
- (?\86¶ "'A")
- (?\86¸ "'E")
- (?\86¹ "'H")
- (?\86º "'I")
- (?\86¼ "'O")
- (?\86¾ "'Y")
- (?\86¿ "W%")
- (?\86À "i3")
- (?\86Ã "G*")
- (?\86Ä "D*")
- (?\86È "TH")
- (?\86Ë "L*")
- (?\86Î "C*")
- (?\86Ð "P*")
- (?\86Ó "S*")
- (?\86Ö "F*")
- (?\86Ø "Q*")
- (?\86Ù "W*")
- (?\86Ú "\"I")
- (?\86Û "\"Y")
- (?\86Ü "a%")
- (?\86Ý "e%")
- (?\86Þ "y%")
- (?\86ß "i%")
- (?\86à "u3")
- (?\86á "a*")
- (?\86â "b*")
- (?\86ã "g*")
- (?\86ä "d*")
- (?\86å "e*")
- (?\86æ "z*")
- (?\86ç "y*")
- (?\86è "h*")
- (?\86é "i*")
- (?\86ê "k")
- (?\86ë "l*")
- (?\86ì "m*")
- (?\86í "n*")
- (?\86î "c*")
- (?\86ð "p*")
- (?\86ñ "r*")
- (?\86ò "*s")
- (?\86ó "s*")
- (?\86ô "t*")
- (?\86õ "u")
- (?\86ö "f*")
- (?\86÷ "x*")
- (?\86ø "q*")
- (?\86ù "w*")
- (?\86ú "\"i")
- (?\86û "\"u")
- (?\86ü "'o")
- (?\86ý "'u")
- (?\86þ "'w")))
+ '((?\e,F!\e(B "9'")
+ (?\e,F"\e(B "'9")
+ (?\e,F/\e(B "-M")
+ (?\e,F5\e(B "'%")
+ (?\e,F6\e(B "'A")
+ (?\e,F8\e(B "'E")
+ (?\e,F9\e(B "'H")
+ (?\e,F:\e(B "'I")
+ (?\e,F<\e(B "'O")
+ (?\e,F>\e(B "'Y")
+ (?\e,F?\e(B "W%")
+ (?\e,F@\e(B "i3")
+ (?\e,FC\e(B "G*")
+ (?\e,FD\e(B "D*")
+ (?\e,FH\e(B "TH")
+ (?\e,FK\e(B "L*")
+ (?\e,FN\e(B "C*")
+ (?\e,FP\e(B "P*")
+ (?\e,FS\e(B "S*")
+ (?\e,FV\e(B "F*")
+ (?\e,FX\e(B "Q*")
+ (?\e,FY\e(B "W*")
+ (?\e,FZ\e(B "\"I")
+ (?\e,F[\e(B "\"Y")
+ (?\e,F\\e(B "a%")
+ (?\e,F]\e(B "e%")
+ (?\e,F^\e(B "y%")
+ (?\e,F_\e(B "i%")
+ (?\e,F`\e(B "u3")
+ (?\e,Fa\e(B "a*")
+ (?\e,Fb\e(B "b*")
+ (?\e,Fc\e(B "g*")
+ (?\e,Fd\e(B "d*")
+ (?\e,Fe\e(B "e*")
+ (?\e,Ff\e(B "z*")
+ (?\e,Fg\e(B "y*")
+ (?\e,Fh\e(B "h*")
+ (?\e,Fi\e(B "i*")
+ (?\e,Fj\e(B "k")
+ (?\e,Fk\e(B "l*")
+ (?\e,Fl\e(B "m*")
+ (?\e,Fm\e(B "n*")
+ (?\e,Fn\e(B "c*")
+ (?\e,Fp\e(B "p*")
+ (?\e,Fq\e(B "r*")
+ (?\e,Fr\e(B "*s")
+ (?\e,Fs\e(B "s*")
+ (?\e,Ft\e(B "t*")
+ (?\e,Fu\e(B "u")
+ (?\e,Fv\e(B "f*")
+ (?\e,Fw\e(B "x*")
+ (?\e,Fx\e(B "q*")
+ (?\e,Fy\e(B "w*")
+ (?\e,Fz\e(B "\"i")
+ (?\e,F{\e(B "\"u")
+ (?\e,F|\e(B "'o")
+ (?\e,F}\e(B "'u")
+ (?\e,F~\e(B "'w")))
(mapc
(lambda (l)
(aset standard-display-table (car l) (string-to-vector (cadr l))))
- '((?\86Á "A")
- (?\86Â "B")
- (?\86Å "E")
- (?\86Æ "Z")
- (?\86Ç "H")
- (?\86É "I")
- (?\86Ê "J")
- (?\86Ì "M")
- (?\86Í "N")
- (?\86Ï "O")
- (?\86Ñ "P")
- (?\86Ô "T")
- (?\86Õ "Y")
- (?\86× "X")
- (?\86ï "o")))))
+ '((?\e,FA\e(B "A")
+ (?\e,FB\e(B "B")
+ (?\e,FE\e(B "E")
+ (?\e,FF\e(B "Z")
+ (?\e,FG\e(B "H")
+ (?\e,FI\e(B "I")
+ (?\e,FJ\e(B "J")
+ (?\e,FL\e(B "M")
+ (?\e,FM\e(B "N")
+ (?\e,FO\e(B "O")
+ (?\e,FQ\e(B "P")
+ (?\e,FT\e(B "T")
+ (?\e,FU\e(B "Y")
+ (?\e,FW\e(B "X")
+ (?\e,Fo\e(B "o")))))
((eq set 'hebrew)
(when (or force
(mapc
(lambda (l)
(aset standard-display-table (car l) (string-to-vector (cadr l))))
- '((?\88ß "=2")
- (?\88à "A+")
- (?\88á "B+")
- (?\88â "G+")
- (?\88ã "D+")
- (?\88ä "H+")
- (?\88å "W+")
- (?\88æ "Z+")
- (?\88ç "X+")
- (?\88è "Tj")
- (?\88é "J+")
- (?\88ê "K%")
- (?\88ë "K+")
- (?\88ì "L+")
- (?\88í "M%")
- (?\88î "M+")
- (?\88ï "N%")
- (?\88ð "N+")
- (?\88ñ "S+")
- (?\88ò "E+")
- (?\88ó "P%")
- (?\88ô "P+")
- (?\88õ "Zj")
- (?\88ö "ZJ")
- (?\88÷ "Q+")
- (?\88ø "R+")
- (?\88ù "Sh")
- (?\88ú "T+")))))
+ '((?\e,H_\e(B "=2")
+ (?\e,H`\e(B "A+")
+ (?\e,Ha\e(B "B+")
+ (?\e,Hb\e(B "G+")
+ (?\e,Hc\e(B "D+")
+ (?\e,Hd\e(B "H+")
+ (?\e,He\e(B "W+")
+ (?\e,Hf\e(B "Z+")
+ (?\e,Hg\e(B "X+")
+ (?\e,Hh\e(B "Tj")
+ (?\e,Hi\e(B "J+")
+ (?\e,Hj\e(B "K%")
+ (?\e,Hk\e(B "K+")
+ (?\e,Hl\e(B "L+")
+ (?\e,Hm\e(B "M%")
+ (?\e,Hn\e(B "M+")
+ (?\e,Ho\e(B "N%")
+ (?\e,Hp\e(B "N+")
+ (?\e,Hq\e(B "S+")
+ (?\e,Hr\e(B "E+")
+ (?\e,Hs\e(B "P%")
+ (?\e,Ht\e(B "P+")
+ (?\e,Hu\e(B "Zj")
+ (?\e,Hv\e(B "ZJ")
+ (?\e,Hw\e(B "Q+")
+ (?\e,Hx\e(B "R+")
+ (?\e,Hy\e(B "Sh")
+ (?\e,Hz\e(B "T+")))))
((eq set 'cyrillic)
(setq set 'cyrillic-iso)
(mapc
(lambda (l)
(apply 'latin1-display-char l))
- '((?\8c¢ "Dj")
- (?\8c£ "Gj")
- (?\8c¤ "IE")
- (?\8c© "Lj")
- (?\8cª "Nj")
- (?\8c« "Ts")
- (?\8c¬ "Kj")
- (?\8c® "V%")
- (?\8c¯ "Dzh")
- (?\8c± "B=")
- (?\8c³ "â")
- (?\8c´ "D")
- (?\8c¶ "Z%")
- (?\8c· "3")
- (?\8c¸ "U")
- (?\8c¹ "J=")
- (?\8c» "L=")
- (?\8c¿ "P=")
- (?\8cà "Y")
- (?\8cÄ "è")
- (?\8cÆ "C=")
- (?\8cÇ "C%")
- (?\8cÈ "S%")
- (?\8cÉ "Sc")
- (?\8cÊ "=\"")
- (?\8cË "Y=")
- (?\8cÌ "%\"")
- (?\8cÍ "Ee")
- (?\8cÎ "Yu")
- (?\8cÏ "Ya")
- (?\8cÑ "b")
- (?\8cÒ "v=")
- (?\8cÓ "g=")
- (?\8cÔ "g")
- (?\8cÖ "z%")
- (?\8c× "z=")
- (?\8cØ "u")
- (?\8cÙ "j=")
- (?\8cÚ "k")
- (?\8cÛ "l=")
- (?\8cÜ "m=")
- (?\8cÝ "n=")
- (?\8cß "n")
- (?\8cà "p")
- (?\8câ "t=")
- (?\8cä "f=")
- (?\8cæ "c=")
- (?\8cç "c%")
- (?\8cè "s%")
- (?\8cé "sc")
- (?\8cê "='")
- (?\8cë "y=")
- (?\8cì "%'")
- (?\8cí "ee")
- (?\8cî "yu")
- (?\8cï "ya")
- (?\8cð "N0")
- (?\8cò "dj")
- (?\8có "gj")
- (?\8cô "ie")
- (?\8cù "lj")
- (?\8cú "nj")
- (?\8cû "ts")
- (?\8cü "kj")
- (?\8cþ "v%")
- (?\8cÿ "dzh")))
+ '((?\e,L"\e(B "Dj")
+ (?\e,L#\e(B "Gj")
+ (?\e,L$\e(B "IE")
+ (?\e,L)\e(B "Lj")
+ (?\e,L*\e(B "Nj")
+ (?\e,L+\e(B "Ts")
+ (?\e,L,\e(B "Kj")
+ (?\e,L.\e(B "V%")
+ (?\e,L/\e(B "Dzh")
+ (?\e,L1\e(B "B=")
+ (?\e,L3\e(B "â")
+ (?\e,L4\e(B "D")
+ (?\e,L6\e(B "Z%")
+ (?\e,L7\e(B "3")
+ (?\e,L8\e(B "U")
+ (?\e,L9\e(B "J=")
+ (?\e,L;\e(B "L=")
+ (?\e,L?\e(B "P=")
+ (?\e,LC\e(B "Y")
+ (?\e,LD\e(B "è")
+ (?\e,LF\e(B "C=")
+ (?\e,LG\e(B "C%")
+ (?\e,LH\e(B "S%")
+ (?\e,LI\e(B "Sc")
+ (?\e,LJ\e(B "=\"")
+ (?\e,LK\e(B "Y=")
+ (?\e,LL\e(B "%\"")
+ (?\e,LM\e(B "Ee")
+ (?\e,LN\e(B "Yu")
+ (?\e,LO\e(B "Ya")
+ (?\e,LQ\e(B "b")
+ (?\e,LR\e(B "v=")
+ (?\e,LS\e(B "g=")
+ (?\e,LT\e(B "g")
+ (?\e,LV\e(B "z%")
+ (?\e,LW\e(B "z=")
+ (?\e,LX\e(B "u")
+ (?\e,LY\e(B "j=")
+ (?\e,LZ\e(B "k")
+ (?\e,L[\e(B "l=")
+ (?\e,L\\e(B "m=")
+ (?\e,L]\e(B "n=")
+ (?\e,L_\e(B "n")
+ (?\e,L`\e(B "p")
+ (?\e,Lb\e(B "t=")
+ (?\e,Ld\e(B "f=")
+ (?\e,Lf\e(B "c=")
+ (?\e,Lg\e(B "c%")
+ (?\e,Lh\e(B "s%")
+ (?\e,Li\e(B "sc")
+ (?\e,Lj\e(B "='")
+ (?\e,Lk\e(B "y=")
+ (?\e,Ll\e(B "%'")
+ (?\e,Lm\e(B "ee")
+ (?\e,Ln\e(B "yu")
+ (?\e,Lo\e(B "ya")
+ (?\e,Lp\e(B "N0")
+ (?\e,Lr\e(B "dj")
+ (?\e,Ls\e(B "gj")
+ (?\e,Lt\e(B "ie")
+ (?\e,Ly\e(B "lj")
+ (?\e,Lz\e(B "nj")
+ (?\e,L{\e(B "ts")
+ (?\e,L|\e(B "kj")
+ (?\e,L~\e(B "v%")
+ (?\e,L\7f\e(B "dzh")))
(mapc
(lambda (l)
(aset standard-display-table (car l) (string-to-vector (cadr l))))
- '((?\8c¡ "\81Ë")
- (?\8c¥ "S")
- (?\8c¦ "I")
- (?\8c§ "\81Ï")
- (?\8c¨ "J")
- (?\8cñ "\81ë")
- (?\8cý "\81§")
- (?\8c "-")
- (?\8c° "A")
- (?\8c² "B")
- (?\8cµ "E")
- (?\8cº "K")
- (?\8c¼ "M")
- (?\8c½ "H")
- (?\8c¾ "O")
- (?\8cÀ "P")
- (?\8cÁ "C")
- (?\8c "T")
- (?\8cÅ "X")
- (?\8cÐ "a")
- (?\8cÕ "e")
- (?\8cÞ "o")
- (?\8cá "c")
- (?\8cã "y")
- (?\8cå "x")
- (?\8cõ "s")
- (?\8cö "i")
- (?\8c÷ "\81ï")
- (?\8cø "j")))))
+ '((?\e,L!\e(B "\e,AK\e(B")
+ (?\e,L%\e(B "S")
+ (?\e,L&\e(B "I")
+ (?\e,L'\e(B "\e,AO\e(B")
+ (?\e,L(\e(B "J")
+ (?\e,Lq\e(B "\e,Ak\e(B")
+ (?\e,L}\e(B "\e,A'\e(B")
+ (?\e,L-\e(B "-")
+ (?\e,L0\e(B "A")
+ (?\e,L2\e(B "B")
+ (?\e,L5\e(B "E")
+ (?\e,L:\e(B "K")
+ (?\e,L<\e(B "M")
+ (?\e,L=\e(B "H")
+ (?\e,L>\e(B "O")
+ (?\e,L@\e(B "P")
+ (?\e,LA\e(B "C")
+ (?\e,LB\e(B "T")
+ (?\e,LE\e(B "X")
+ (?\e,LP\e(B "a")
+ (?\e,LU\e(B "e")
+ (?\e,L^\e(B "o")
+ (?\e,La\e(B "c")
+ (?\e,Lc\e(B "y")
+ (?\e,Le\e(B "x")
+ (?\e,Lu\e(B "s")
+ (?\e,Lv\e(B "i")
+ (?\e,Lw\e(B "\e,Ao\e(B")
+ (?\e,Lx\e(B "j")))))
(t (error "Unsupported character set: %S" set)))
HCoop / bpt / emacs.git / commitdiff