annotate lisp/international/latin1-disp.el @ 41404:b5a7e0bdf5bf

Add an item for emacs-lisp-intro.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 23 Nov 2001 12:19:13 +0000
parents 1d714221177a
children 8c0b69283972
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
1 ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*-
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
2
36990
1d714221177a (latin1-char-displayable-p): Add leading "-" for X font pattern.
Miles Bader <miles@gnu.org>
parents: 36050
diff changeset
3 ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
4
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
5 ;; Author: Dave Love <fx@gnu.org>
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
6 ;; Keywords: i18n
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
7
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
9
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
13 ;; any later version.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
14
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
19
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
24
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
26
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
27 ;; This package sets up display of ISO 8859-n for n>1 by substituting
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
28 ;; Latin-1 characters and sequences of them for characters which can't
36016
bd020356c644 Fix a typo in a comment.
Eli Zaretskii <eliz@gnu.org>
parents: 35365
diff changeset
29 ;; be displayed, either because we're on a tty or because we don't
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
30 ;; have the relevant window system fonts available. For instance,
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
31 ;; Latin-9 is very similar to Latin-1, so we can display most Latin-9
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
32 ;; characters using the Latin-1 characters at the same code point and
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
33 ;; fall back on more-or-less mnemonic ASCII sequences for the rest.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
34
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
35 ;; For the Latin charsets the ASCII sequences are mostly consistent
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
36 ;; with the Quail prefix input sequences. Latin-4 uses the Quail
36049
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
37 ;; postfix sequences since a prefix method isn't defined for Latin-4.
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
38
36049
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
39 ;; [A different approach is taken in the DOS display tables in
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
40 ;; term/internal.el, and the relevant ASCII sequences from there are
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
41 ;; available as an alternative; see `latin1-display-mnemonic'. Only
36049
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
42 ;; these sequences are used for Cyrillic, Greek and Hebrew.]
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
43
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
44 ;; If you don't even have Latin-1, see iso-ascii.el and use the
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
45 ;; complete tables from internal.el. The ASCII sequences used here
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
46 ;; are mostly in the same style as iso-ascii.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
47
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
48 ;;; Code:
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
49
35365
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
50 ;; Ensure `standard-display-table' is set up:
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
51 (require 'disp-table)
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
52
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
53 (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
54 latin-9 cyrillic greek hebrew)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
55 "The ISO8859 character sets with defined Latin-1 display sequences.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
56 These are the nicknames for the sets and correspond to Emacs language
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
57 environments.")
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
58
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
59 (defgroup latin1-display ()
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
60 "Set up display tables for ISO8859 characters using Latin-1."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
61 :version "21.1"
36049
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
62 :link '(emacs-commentary-link "latin1-disp")
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
63 :group 'i18n)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
64
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
65 (defcustom latin1-display-format "{%s}"
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
66 "A format string used to display the ASCII sequences.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
67 The default encloses the sequence in braces, but you could just use
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
68 \"%s\" to avoid the braces."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
69 :group 'latin1-display
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
70 :type 'string)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
71
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
72 ;;;###autoload
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
73 (defcustom latin1-display nil
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
74 "Set up Latin-1/ASCII display for ISO8859 character sets.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
75 This is done for each character set in the list `latin1-display-sets',
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
76 if no font is available to display it. Characters are displayed using
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
77 the corresponding Latin-1 characters where they match. Otherwise
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
78 ASCII sequences are used, mostly following the Latin prefix input
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
79 methods. Some different ASCII sequences are used if
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
80 `latin1-display-mnemonic' is non-nil.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
81
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
82 Setting this variable directly does not take effect;
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
83 use either M-x customize of the function `latin1-display'."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
84 :group 'latin1-display
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
85 :type 'boolean
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
86 :require 'latin1-disp
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
87 :initialize 'custom-initialize-default
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
88 :set (lambda (symbol value)
35365
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
89 (set-default symbol value)
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
90 (mapc (if value
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
91 #'latin1-display-setup
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
92 #'latin1-display-reset)
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
93 latin1-display-sets)
84a59a4308f6 Require disp-table.
Dave Love <fx@gnu.org>
parents: 33412
diff changeset
94 (redraw-display)))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
95
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
96 ;;;###autoload
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
97 (defun latin1-display (&rest sets)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
98 "Set up Latin-1/ASCII display for the arguments character SETS.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
99 See option `latin1-display' for the method. The members of the list
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
100 must be in `latin1-display-sets'. With no arguments, reset the
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
101 display for all of `latin1-display-sets'. See also `latin1-display-setup'."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
102 (if sets
36049
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
103 (progn (mapc #'latin1-display-setup sets)
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
104 (setq latin1-display t))
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
105 (mapc #'latin1-display-reset latin1-display-sets)
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
106 (setq latin1-display nil))
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
107 (redraw-display))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
108
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
109 (defcustom latin1-display-mnemonic nil
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
110 "Non-nil means to display potentially more mnemonic sequences.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
111 These are taken from the tables in `internal.el' rather than the Quail
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
112 input sequences."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
113 :type 'boolean
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
114 :group 'latin1-display)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
115
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
116 (defun latin1-display-char (char display &optional alt-display)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
117 "Make an entry in `standard-display-table' for CHAR using string DISPLAY.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
118 If ALT-DISPLAY is provided, use that instead if
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
119 `latin1-display-mnemonic' is non-nil. The actual string displayed is
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
120 formatted using `latin1-display-format'."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
121 (if (and (stringp alt-display)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
122 latin1-display-mnemonic)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
123 (setq display alt-display))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
124 (if (stringp display)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
125 (standard-display-ascii char (format latin1-display-format display))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
126 (aset standard-display-table char display)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
127
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
128 (defun latin1-display-identities (charset)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
129 "Display each character in CHARSET as the corresponding Latin-1 character.
36049
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
130 CHARSET is a symbol which is the nickname of a language environment
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
131 using an ISO8859 character set."
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
132 (if (eq charset 'cyrillic)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
133 (setq charset 'cyrillic-iso))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
134 (let ((i 32)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
135 (set (car (remq 'ascii (get-language-info charset 'charset)))))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
136 (while (<= i 127)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
137 (aset standard-display-table
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
138 (make-char set i)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
139 (vector (make-char 'latin-iso8859-1 i)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
140 (setq i (1+ i)))))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
141
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
142 (defun latin1-display-reset (language)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
143 "Set up the default display for each character of LANGUAGE's charset.
36049
385e4217573c Doc fixes. Change coding to
Dave Love <fx@gnu.org>
parents: 36016
diff changeset
144 LANGUAGE is a symbol naming a language environment using an ISO8859
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
145 character set."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
146 (if (eq language 'cyrillic)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
147 (setq language 'cyrillic-iso))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
148 (let ((charset (car (remq 'ascii (get-language-info language
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
149 'charset)))))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
150 (standard-display-default (make-char charset 32)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
151 (make-char charset 127)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
152 (sit-for 0))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
153
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
154 (defun latin1-display-check-font (language)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
155 "Return non-nil if we have a font with an encoding for LANGUAGE.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
156 LANGUAGE is a symbol naming a language environment using an ISO8859
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
157 character set: `latin-2', `hebrew' etc."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
158 (if (eq language 'cyrillic)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
159 (setq language 'cyrillic-iso))
32785
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
160 (let* ((info (get-language-info language 'charset))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
161 (char (make-char (car (remq 'ascii info)) ?\ )))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
162 (latin1-char-displayable-p char)))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
163
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
164 ;; This should be moved into mule-utils or somewhere after 21.1.
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
165 (defun latin1-char-displayable-p (char)
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
166 (cond ((< char 256)
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
167 ;; Single byte characters are always displayable.
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
168 t)
32997
00c403ac9e5e (latin1-char-displayable-p): Don't
Dave Love <fx@gnu.org>
parents: 32785
diff changeset
169 ((display-multi-font-p)
32785
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
170 ;; On a window system, a character is displayable if we have
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
171 ;; a font for that character in the default face of the
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
172 ;; currently selected frame.
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
173 (let ((fontset (frame-parameter (selected-frame) 'font))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
174 font-pattern)
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
175 (if (query-fontset fontset)
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
176 (setq font-pattern (fontset-font fontset char)))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
177 (or font-pattern
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
178 (setq font-pattern (fontset-font "fontset-default" char)))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
179 (if font-pattern
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
180 (progn
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
181 ;; Now FONT-PATTERN is a string or a cons of family
33412
d85712cf7ea3 formatting only
Dave Love <fx@gnu.org>
parents: 32997
diff changeset
182 ;; field pattern and registry field pattern.
32785
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
183 (or (stringp font-pattern)
36990
1d714221177a (latin1-char-displayable-p): Add leading "-" for X font pattern.
Miles Bader <miles@gnu.org>
parents: 36050
diff changeset
184 (setq font-pattern (concat "-"
1d714221177a (latin1-char-displayable-p): Add leading "-" for X font pattern.
Miles Bader <miles@gnu.org>
parents: 36050
diff changeset
185 (or (car font-pattern) "*")
32785
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
186 "-*-"
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
187 (cdr font-pattern))))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
188 (x-list-fonts font-pattern 'default (selected-frame) 1)))))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
189 (t
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
190 (let ((coding (terminal-coding-system)))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
191 (if coding
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
192 (let ((safe-chars (coding-system-get coding 'safe-chars))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
193 (safe-charsets (coding-system-get coding 'safe-charsets)))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
194 (or (and safe-chars
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
195 (aref safe-chars char))
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
196 (and safe-charsets
fc837c2f746a (latin1-char-displayable-p): New
Dave Love <fx@gnu.org>
parents: 31673
diff changeset
197 (memq (char-charset char) safe-charsets)))))))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
198
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
199 (defun latin1-display-setup (set &optional force)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
200 "Set up Latin-1 display for characters in the given SET.
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
201 SET must be a member of `latin1-display-sets'. Normally, check
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
202 whether a font for SET is available and don't set the display if it
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
203 is. If FORCE is non-nil, set up the display regardless."
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
204 (cond
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
205 ((eq set 'latin-2)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
206 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
207 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
208 (latin1-display-identities set)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
209 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
210 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
211 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
212 '((? "'C" "C'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
213 (? "'D" "/D")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
214 (? "'S" "S'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
215 (? "'c" "c'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
216 (? "'d" "/d")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
217 (? "'L" "L'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
218 (? "'n" "n'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
219 (? "'N" "N'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
220 (? "'r" "r'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
221 (? "'R" "R'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
222 (? "'s" "s'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
223 (? "'z" "z'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
224 (? "'Z" "Z'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
225 (? "`A" "A;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
226 (? "`E" "E;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
227 (? "`L" "/L")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
228 (? "`S" ",S")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
229 (? "`T" ",T")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
230 (? "`Z" "Z^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
231 (? "`a" "a;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
232 (? "`l" "/l")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
233 (? "`e" "e;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
234 (? "`s" ",s")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
235 (? "`t" ",t")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
236 (? "`z" "z^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
237 (? "`." "'.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
238 (? "~A" "A(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
239 (? "~C" "C<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
240 (? "~D" "D<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
241 (? "~E" "E<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
242 (? "~e" "e<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
243 (? "~L" "L<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
244 (? "~N" "N<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
245 (? "~O" "O''")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
246 (? "~R" "R<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
247 (? "~S" "S<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
248 (? "~T" "T<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
249 (? "~U" "U''")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
250 (? "~Z" "Z<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
251 (? "~a" "a(}")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
252 (? "~c" "c<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
253 (? "~d" "d<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
254 (? "~l" "l<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
255 (? "~n" "n<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
256 (? "~o" "o''")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
257 (? "~r" "r<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
258 (? "~s" "s<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
259 (? "~t" "t<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
260 (? "~u" "u''")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
261 (? "~z" "z<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
262 (? "~v" "'<") ; ? in latin-pre
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
263 (? "~~" "'(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
264 (? "uu" "u^0")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
265 (? "UU" "U^0")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
266 (? "\"A")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
267 (? "\"a")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
268 (? "\"E" "E:")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
269 (? "\"e")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
270 (? "''" "'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
271 (? "'<") ; Lynx's rendering of caron
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
272 ))))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
273
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
274 ((eq set 'latin-3)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
275 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
276 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
277 (latin1-display-identities set)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
278 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
279 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
280 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
281 '((? "/H")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
282 (? "~`" "'(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
283 (? "^H" "H^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
284 (? "^h" "h^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
285 (? ".I" "I^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
286 (? ",S")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
287 (? "~G" "G(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
288 (? "^J" "J^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
289 (? ".Z" "Z^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
290 (? "/h")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
291 (? ".i" "i^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
292 (? ",s")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
293 (? "~g" "g(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
294 (? "^j" "j^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
295 (? ".Z" "z^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
296 (? ".c" "C^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
297 (? "^C" "C^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
298 (? ".G" "G^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
299 (? "^G" "G^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
300 (? "~U" "U(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
301 (? "^S" "S^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
302 (? ".C" "c^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
303 (? "^c" "c^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
304 (? ".g" "g^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
305 (? "^g" "g^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
306 (? "~u" "u(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
307 (? "^s" "s^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
308 (? "/." "^.")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
309
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
310 ((eq set 'latin-4)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
311 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
312 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
313 (latin1-display-identities set)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
314 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
315 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
316 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
317 '((? "A," "A;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
318 (? "k/" "kk")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
319 (? "R," ",R")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
320 (? "I~" "?I")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
321 (? "L," ",L")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
322 (? "S~" "S<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
323 (? "E-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
324 (? "G," ",G")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
325 (? "T/" "/T")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
326 (? "Z~" "Z<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
327 (? "a," "a;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
328 (? "';")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
329 (? "r," ",r")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
330 (? "i~" "~i")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
331 (? "l," ",l")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
332 (? "'<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
333 (? "s~" "s<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
334 (? "e-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
335 (? "g," ",g")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
336 (? "t/" "/t")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
337 (? "N/" "NG")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
338 (? "z~" "z<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
339 (? "n/" "ng")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
340 (? "A-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
341 (? "I," "I;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
342 (? "C~" "C<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
343 (? "E," "E;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
344 (? "E." "E^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
345 (? "I-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
346 (? "N," ",N")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
347 (? "O-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
348 (? "K," ",K")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
349 (? "U," "U;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
350 (? "U~" "~U")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
351 (? "U-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
352 (? "a-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
353 (? "i," "i;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
354 (? "c~" "c<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
355 (? "e," "e;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
356 (? "e." "e^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
357 (? "i-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
358 (? "d/" "/d")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
359 (? "n," ",n")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
360 (? "o-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
361 (? "k," ",k")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
362 (? "u," "u;")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
363 (? "u~" "~u")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
364 (? "u-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
365 (? "^.")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
366
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
367 ((eq set 'latin-5)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
368 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
369 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
370 (latin1-display-identities set)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
371 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
372 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
373 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
374 '((? "~g" "g(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
375 (? "~G" "G(")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
376 (? ".I" "I^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
377 (? ",s")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
378 (? ",S")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
379 (? "^e" "e<") ; from latin-post
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
380 (? ".e" "e^.")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
381 (? "\"i" "i-") ; from latin-post
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
382 (? ".i" "i.")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
383
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
384 ((eq set 'latin-8)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
385 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
386 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
387 (latin1-display-identities set)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
388 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
389 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
390 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
391 '((? ".B" "B`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
392 (? ".b" "b`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
393 (? ".c" "c`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
394 (? ".C" "C`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
395 (? ".D" "D`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
396 (? ".d" "d`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
397 (? "`w")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
398 (? "`W")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
399 (? "'w" "w'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
400 (? "'W" "W'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
401 (? "`y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
402 (? "`Y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
403 (? ".f" "f`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
404 (? ".F" "F`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
405 (? ".g" "g`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
406 (? ".G" "G`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
407 (? ".m" "m`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
408 (? ".M" "M`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
409 (? ".p" "p`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
410 (? ".P" "P`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
411 (? ".s" "s`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
412 (? ".S" "S`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
413 (? "\"w")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
414 (? "\"W")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
415 (? "^w" "w^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
416 (? "^W" "W^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
417 (? ".t" "t`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
418 (? ".T" "T`")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
419 (? "^y" "y^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
420 (? "^Y" "Y^")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
421 (? "\"Y")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
422
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
423 ((eq set 'latin-9)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
424 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
425 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
426 (latin1-display-identities set)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
427 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
428 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
429 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
430 '((? "~s" "s<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
431 (? "~S" "S<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
432 (? "Euro" "E=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
433 (? "~z" "z<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
434 (? "~Z" "Z<")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
435 (? "\"Y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
436 (? "oe")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
437 (? "OE")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
438
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
439 ((eq set 'greek)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
440 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
441 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
442 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
443 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
444 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
445 '((? "9'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
446 (? "'9")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
447 (? "-M")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
448 (? "'%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
449 (? "'A")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
450 (? "'E")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
451 (? "'H")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
452 (? "'I")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
453 (? "'O")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
454 (? "'Y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
455 (? "W%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
456 (? "i3")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
457 (? "G*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
458 (? "D*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
459 (? "TH")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
460 (? "L*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
461 (? "C*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
462 (? "P*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
463 (? "S*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
464 (? "F*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
465 (? "Q*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
466 (? "W*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
467 (? "\"I")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
468 (? "\"Y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
469 (? "a%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
470 (? "e%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
471 (? "y%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
472 (? "i%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
473 (? "u3")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
474 (? "a*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
475 (? "b*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
476 (? "g*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
477 (? "d*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
478 (? "e*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
479 (? "z*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
480 (? "y*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
481 (? "h*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
482 (? "i*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
483 (? "k")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
484 (? "l*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
485 (? "m*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
486 (? "n*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
487 (? "c*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
488 (? "p*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
489 (? "r*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
490 (? "*s")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
491 (? "s*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
492 (? "t*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
493 (? "u")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
494 (? "f*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
495 (? "x*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
496 (? "q*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
497 (? "w*")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
498 (? "\"i")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
499 (? "\"u")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
500 (? "'o")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
501 (? "'u")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
502 (? "'w")))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
503 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
504 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
505 (aset standard-display-table (car l) (string-to-vector (cadr l))))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
506 '((? "A")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
507 (? "B")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
508 (? "E")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
509 (? "Z")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
510 (? "H")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
511 (? "I")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
512 (? "J")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
513 (? "M")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
514 (? "N")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
515 (? "O")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
516 (? "P")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
517 (? "T")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
518 (? "Y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
519 (? "X")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
520 (? "o")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
521
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
522 ((eq set 'hebrew)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
523 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
524 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
525 ;; Don't start with identities, since we don't have definitions
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
526 ;; for a lot of Hebrew in internal.el. (Intlfonts is also
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
527 ;; missing some glyphs.)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
528 (let ((i 34))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
529 (while (<= i 62)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
530 (aset standard-display-table
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
531 (make-char 'hebrew-iso8859-8 i)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
532 (vector (make-char 'latin-iso8859-1 i)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
533 (setq i (1+ i))))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
534 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
535 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
536 (aset standard-display-table (car l) (string-to-vector (cadr l))))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
537 '((? "=2")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
538 (? "A+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
539 (? "B+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
540 (? "G+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
541 (? "D+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
542 (? "H+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
543 (? "W+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
544 (? "Z+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
545 (? "X+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
546 (? "Tj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
547 (? "J+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
548 (? "K%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
549 (? "K+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
550 (? "L+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
551 (? "M%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
552 (? "M+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
553 (? "N%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
554 (? "N+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
555 (? "S+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
556 (? "E+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
557 (? "P%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
558 (? "P+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
559 (? "Zj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
560 (? "ZJ")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
561 (? "Q+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
562 (? "R+")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
563 (? "Sh")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
564 (? "T+")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
565
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
566 ((eq set 'cyrillic)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
567 (setq set 'cyrillic-iso)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
568 (when (or force
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
569 (not (latin1-display-check-font set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
570 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
571 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
572 (apply 'latin1-display-char l))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
573 '((? "Dj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
574 (? "Gj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
575 (? "IE")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
576 (? "Lj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
577 (? "Nj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
578 (? "Ts")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
579 (? "Kj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
580 (? "V%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
581 (? "Dzh")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
582 (? "B=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
583 (? "")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
584 (? "D")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
585 (? "Z%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
586 (? "3")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
587 (? "U")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
588 (? "J=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
589 (? "L=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
590 (? "P=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
591 (? "Y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
592 (? "")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
593 (? "C=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
594 (? "C%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
595 (? "S%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
596 (? "Sc")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
597 (? "=\"")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
598 (? "Y=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
599 (? "%\"")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
600 (? "Ee")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
601 (? "Yu")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
602 (? "Ya")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
603 (? "b")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
604 (? "v=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
605 (? "g=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
606 (? "g")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
607 (? "z%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
608 (? "z=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
609 (? "u")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
610 (? "j=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
611 (? "k")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
612 (? "l=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
613 (? "m=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
614 (? "n=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
615 (? "n")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
616 (? "p")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
617 (? "t=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
618 (? "f=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
619 (? "c=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
620 (? "c%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
621 (? "s%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
622 (? "sc")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
623 (? "='")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
624 (? "y=")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
625 (? "%'")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
626 (? "ee")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
627 (? "yu")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
628 (? "ya")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
629 (? "N0")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
630 (? "dj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
631 (? "gj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
632 (? "ie")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
633 (? "lj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
634 (? "nj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
635 (? "ts")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
636 (? "kj")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
637 (? "v%")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
638 (? "dzh")))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
639 (mapc
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
640 (lambda (l)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
641 (aset standard-display-table (car l) (string-to-vector (cadr l))))
36050
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
642 '((? "")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
643 (? "S")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
644 (? "I")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
645 (? "")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
646 (? "J")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
647 (? "")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
648 (? "")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
649 (? "-")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
650 (? "A")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
651 (? "B")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
652 (? "E")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
653 (? "K")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
654 (? "M")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
655 (? "H")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
656 (? "O")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
657 (? "P")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
658 (? "C")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
659 (? "T")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
660 (? "X")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
661 (? "a")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
662 (? "e")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
663 (? "o")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
664 (? "c")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
665 (? "y")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
666 (? "x")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
667 (? "s")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
668 (? "i")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
669 (? "")
8bc87faaa40f Undo coding change, which screwed up somehow.
Dave Love <fx@gnu.org>
parents: 36049
diff changeset
670 (? "j")))))
31673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
671
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
672 (t (error "Unsupported character set: %S" set)))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
673
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
674 (sit-for 0))
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
675
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
676 (provide 'latin1-disp)
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
677
6d39ec089c7b *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
678 ;;; latin1-disp.el ends here