1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
;; Mapping between X keysym names and ISO 8859-1 (aka Latin1) character codes.
;; Copyright (C) 1992, 1993 Free Software Foundation, Inc.
;; This file is part of XEmacs.
;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; XEmacs is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with XEmacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; created by jwz, 13-jun-92.
;; changed by Heiko Muenkel, 12-jun-1997: Added a grave keysym.
;; Under X, when the user types a character that is ISO-8859/1 but not ASCII,
;; it comes in as a symbol instead of as a character code. This keeps things
;; nice and character-set independent. This file takes all of those symbols
;; (the symbols that are the X names for the 8859/1 characters) and puts a
;; property on them which holds the character code that should be inserted in
;; the buffer when they are typed. The self-insert-command function will look
;; at this. It also binds them all to self-insert-command.
;; It puts the same property on the keypad keys, so that (read-char) will
;; think that they are the same as the digit characters. However, those
;; keys are bound to one-character keyboard macros, so that `kp-9' will, by
;; default, do the same thing that `9' does, in whatever the current mode is.
;; The standard case and syntax tables are set in prim/iso8859-1.el, since
;; that is not X-specific.
(require 'iso8859-1)
(defconst iso8859/1-code-to-x-keysym-table nil
"Maps iso8859/1 to an X keysym name which corresponds to it.
There may be more than one X name for this keycode; this returns the first one.
Note that this is X specific; one should avoid using this table whenever
possible, in the interest of portability.")
;; (This esoteric little construct is how you do MACROLET in elisp. It
;; generates the most efficient code for the .elc file by unwinding the
;; loop at compile-time.)
((macro
. (lambda (&rest syms-and-iso8859/1-codes)
(cons
'progn
(nconc
;;
;; First emit code that puts the `x-iso8859/1' property on all of
;; the keysym symbols.
;;
(mapcar '(lambda (sym-and-code)
(list 'put (list 'quote (car sym-and-code))
''x-iso8859/1 (car (cdr sym-and-code))))
syms-and-iso8859/1-codes)
;;
;; Then emit code that binds all of those keysym symbols to
;; `self-insert-command'.
;;
(mapcar '(lambda (sym-and-code)
(list 'global-set-key (list 'quote (car sym-and-code))
''self-insert-command))
syms-and-iso8859/1-codes)
;;
;; Then emit the value of iso8859/1-code-to-x-keysym-table.
;;
(let ((v (make-vector 256 nil)))
;; the printing ASCII chars have 1-char names.
(let ((i 33))
(while (< i 127)
(aset v i (intern (make-string 1 i)))
(setq i (1+ i))))
;; these are from the keyboard character set.
(mapcar '(lambda (x) (aset v (car x) (car (cdr x))))
'((8 backspace) (9 tab) (10 linefeed) (13 return)
(27 escape) (32 space) (127 delete)))
(mapcar '(lambda (sym-and-code)
(or (aref v (car (cdr sym-and-code)))
(aset v (car (cdr sym-and-code)) (car sym-and-code))))
syms-and-iso8859/1-codes)
(list (list 'setq 'iso8859/1-code-to-x-keysym-table v)))
))))
;; The names and capitalization here are as per the MIT X11R4 and X11R5
;; distributions. If a vendor varies from this, adjustments will need
;; to be made...
(grave ?\140)
(nobreakspace ?\240)
(exclamdown ?\241)
(cent ?\242)
(sterling ?\243)
(currency ?\244)
(yen ?\245)
(brokenbar ?\246)
(section ?\247)
(diaeresis ?\250)
(copyright ?\251)
(ordfeminine ?\252)
(guillemotleft ?\253)
(notsign ?\254)
(hyphen ?\255)
(registered ?\256)
(macron ?\257)
(degree ?\260)
(plusminus ?\261)
(twosuperior ?\262)
(threesuperior ?\263)
(acute ?\264) ; Why is there an acute keysym that is
(mu ?\265) ; distinct from apostrophe/quote, but
(paragraph ?\266) ; no grave keysym that is distinct from
(periodcentered ?\267) ; backquote?
(cedilla ?\270) ; I've added the grave keysym, because it's
(onesuperior ?\271) ; used in x-compose (Heiko Muenkel).
(masculine ?\272)
(guillemotright ?\273)
(onequarter ?\274)
(onehalf ?\275)
(threequarters ?\276)
(questiondown ?\277)
(Agrave ?\300)
(Aacute ?\301)
(Acircumflex ?\302)
(Atilde ?\303)
(Adiaeresis ?\304)
(Aring ?\305)
(AE ?\306)
(Ccedilla ?\307)
(Egrave ?\310)
(Eacute ?\311)
(Ecircumflex ?\312)
(Ediaeresis ?\313)
(Igrave ?\314)
(Iacute ?\315)
(Icircumflex ?\316)
(Idiaeresis ?\317)
(ETH ?\320)
(Ntilde ?\321)
(Ograve ?\322)
(Oacute ?\323)
(Ocircumflex ?\324)
(Otilde ?\325)
(Odiaeresis ?\326)
(multiply ?\327)
(Ooblique ?\330)
(Ugrave ?\331)
(Uacute ?\332)
(Ucircumflex ?\333)
(Udiaeresis ?\334)
(Yacute ?\335)
(THORN ?\336)
(ssharp ?\337)
(agrave ?\340)
(aacute ?\341)
(acircumflex ?\342)
(atilde ?\343)
(adiaeresis ?\344)
(aring ?\345)
(ae ?\346)
(ccedilla ?\347)
(egrave ?\350)
(eacute ?\351)
(ecircumflex ?\352)
(ediaeresis ?\353)
(igrave ?\354)
(iacute ?\355)
(icircumflex ?\356)
(idiaeresis ?\357)
(eth ?\360)
(ntilde ?\361)
(ograve ?\362)
(oacute ?\363)
(ocircumflex ?\364)
(otilde ?\365)
(odiaeresis ?\366)
(division ?\367)
(oslash ?\370)
(ugrave ?\371)
(uacute ?\372)
(ucircumflex ?\373)
(udiaeresis ?\374)
(yacute ?\375)
(thorn ?\376)
(ydiaeresis ?\377)
)
((macro . (lambda (&rest syms-and-iso8859/1-codes)
(cons 'progn
(mapcar '(lambda (sym-and-code)
(list 'put (list 'quote (car sym-and-code))
''x-iso8859/1 (car (cdr sym-and-code))))
syms-and-iso8859/1-codes))))
;;
;; Let's do the appropriate thing for some vendor-specific keysyms too...
;; Apparently nobody agrees on what the names of these keysyms are.
;;
(SunFA_Acute ?\264)
(SunXK_FA_Acute ?\264)
(Dacute_accent ?\264)
(DXK_acute_accent ?\264)
(hpmute_acute ?\264)
(hpXK_mute_acute ?\264)
(XK_mute_acute ?\264)
(SunFA_Grave ?`)
(Dead_Grave ?`)
(SunXK_FA_Grave ?`)
(Dgrave_accent ?`)
(DXK_grave_accent ?`)
(hpmute_grave ?`)
(hpXK_mute_grave ?`)
(XK_mute_grave ?`)
(SunFA_Cedilla ?\270)
(SunXK_FA_Cedilla ?\270)
(Dcedilla_accent ?\270)
(DXK_cedilla_accent ?\270)
(SunFA_Diaeresis ?\250)
(SunXK_FA_Diaeresis ?\250)
(hpmute_diaeresis ?\250)
(hpXK_mute_diaeresis ?\250)
(XK_mute_diaeresis ?\250)
(SunFA_Circum ?^)
(Dead_Circum ?^)
(SunXK_FA_Circum ?^)
(Dcircumflex_accent ?^)
(DXK_circumflex_accent ?^)
(hpmute_asciicircum ?^)
(hpXK_mute_asciicircum ?^)
(XK_mute_asciicircum ?^)
(SunFA_Tilde ?~)
(Dead_Tilde ?~)
(SunXK_FA_Tilde ?~)
(Dtilde ?~)
(DXK_tilde ?~)
(hpmute_asciitilde ?~)
(hpXK_mute_asciitilde ?~)
(XK_mute_asciitilde ?~)
(Dring_accent ?\260)
(DXK_ring_accent ?\260)
)
(provide 'x-iso8859-1)
;;; x-iso8859-1.el ends here
|
