/[cmucl]/src/clx/keysyms.lisp
ViewVC logotype

Contents of /src/clx/keysyms.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (hide annotations)
Tue Aug 21 15:49:28 2007 UTC (6 years, 8 months ago) by fgilham
Branch: MAIN
CVS Tags: merged-unicode-utf16-extfmt-2009-06-11, unicode-utf16-extfmt-2009-03-27, snapshot-2007-09, snapshot-2008-08, snapshot-2008-09, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, sse2-base, sse2-packed-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, release-19e, unicode-utf16-sync-2008-12, label-2009-03-16, release-19f-base, merge-sse2-packed, merge-with-19f, unicode-snapshot-2009-05, unicode-snapshot-2009-06, unicode-utf16-sync-2008-07, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, snapshot-2008-04, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, unicode-utf16-sync-2008-11, release-19e-pre1, release-19e-pre2, label-2009-03-25, sse2-checkpoint-2008-10-01, sse2-merge-with-2008-11, sse2-merge-with-2008-10, unicode-utf16-extfmt-2009-06-11, unicode-utf16-string-support, release-19e-base, unicode-utf16-base, portable-clx-base, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-05, snapshot-2009-04
Branch point for: RELEASE-19F-BRANCH, portable-clx-branch, sse2-packed-branch, unicode-utf16-branch, release-19e-branch, sse2-branch, unicode-utf16-extfmt-branch
Changes since 1.4: +276 -2 lines
Telent CLX import
1 ram 1.1 ;;; -*- Mode:Lisp; Package:XLIB; Syntax:COMMON-LISP; Base:10; Lowercase:YES -*-
2    
3     ;;; Define lisp character to keysym mappings
4    
5     ;;;
6     ;;; TEXAS INSTRUMENTS INCORPORATED
7     ;;; P.O. BOX 2909
8     ;;; AUSTIN, TEXAS 78769
9     ;;;
10     ;;; Copyright (C) 1987 Texas Instruments Incorporated.
11     ;;;
12     ;;; Permission is granted to any individual or institution to use, copy, modify,
13     ;;; and distribute this software, provided that this complete copyright and
14     ;;; permission notice is maintained, intact, in all copies and supporting
15     ;;; documentation.
16     ;;;
17     ;;; Texas Instruments Incorporated provides this software "as is" without
18     ;;; express or implied warranty.
19     ;;;
20 fgilham 1.5
21 dtc 1.2 #+cmu
22 fgilham 1.5 (ext:file-comment "$Id: keysyms.lisp,v 1.5 2007/08/21 15:49:28 fgilham Exp $")
23 ram 1.1
24     (in-package :xlib)
25    
26     (define-keysym-set :latin-1 (keysym 0 0) (keysym 0 255))
27     (define-keysym-set :latin-2 (keysym 1 0) (keysym 1 255))
28     (define-keysym-set :latin-3 (keysym 2 0) (keysym 2 255))
29     (define-keysym-set :latin-4 (keysym 3 0) (keysym 3 255))
30     (define-keysym-set :kana (keysym 4 0) (keysym 4 255))
31     (define-keysym-set :arabic (keysym 5 0) (keysym 5 255))
32 pmai 1.4 (define-keysym-set :cyrillic (keysym 6 0) (keysym 6 255))
33 ram 1.1 (define-keysym-set :greek (keysym 7 0) (keysym 7 255))
34     (define-keysym-set :tech (keysym 8 0) (keysym 8 255))
35     (define-keysym-set :special (keysym 9 0) (keysym 9 255))
36     (define-keysym-set :publish (keysym 10 0) (keysym 10 255))
37     (define-keysym-set :apl (keysym 11 0) (keysym 11 255))
38     (define-keysym-set :hebrew (keysym 12 0) (keysym 12 255))
39 fgilham 1.5 (define-keysym-set :thai (keysym 13 0) (keysym 13 255))
40     (define-keysym-set :korean (keysym 14 0) (keysym 14 255))
41     (define-keysym-set :latin-5 (keysym 15 0) (keysym 15 255))
42     (define-keysym-set :latin-6 (keysym 16 0) (keysym 16 255))
43     (define-keysym-set :latin-7 (keysym 17 0) (keysym 17 255))
44     (define-keysym-set :latin-8 (keysym 18 0) (keysym 18 255))
45     (define-keysym-set :latin-9 (keysym 19 0) (keysym 19 255))
46     (define-keysym-set :currency (keysym 32 0) (keysym 32 255))
47     (define-keysym-set :|3270| (keysym 253 0) (keysym 253 255))
48     (define-keysym-set :xkb (keysym 254 0) (keysym 254 255))
49 ram 1.1 (define-keysym-set :keyboard (keysym 255 0) (keysym 255 255))
50    
51     (define-keysym :character-set-switch character-set-switch-keysym)
52     (define-keysym :left-shift left-shift-keysym)
53     (define-keysym :right-shift right-shift-keysym)
54     (define-keysym :left-control left-control-keysym)
55     (define-keysym :right-control right-control-keysym)
56     (define-keysym :caps-lock caps-lock-keysym)
57     (define-keysym :shift-lock shift-lock-keysym)
58     (define-keysym :left-meta left-meta-keysym)
59     (define-keysym :right-meta right-meta-keysym)
60     (define-keysym :left-alt left-alt-keysym)
61     (define-keysym :right-alt right-alt-keysym)
62     (define-keysym :left-super left-super-keysym)
63     (define-keysym :right-super right-super-keysym)
64     (define-keysym :left-hyper left-hyper-keysym)
65     (define-keysym :right-hyper right-hyper-keysym)
66    
67     (define-keysym #\space 032)
68     (define-keysym #\! 033)
69     (define-keysym #\" 034)
70     (define-keysym #\# 035)
71     (define-keysym #\$ 036)
72     (define-keysym #\% 037)
73     (define-keysym #\& 038)
74     (define-keysym #\' 039)
75     (define-keysym #\( 040)
76     (define-keysym #\) 041)
77     (define-keysym #\* 042)
78     (define-keysym #\+ 043)
79     (define-keysym #\, 044)
80     (define-keysym #\- 045)
81     (define-keysym #\. 046)
82     (define-keysym #\/ 047)
83     (define-keysym #\0 048)
84     (define-keysym #\1 049)
85     (define-keysym #\2 050)
86     (define-keysym #\3 051)
87     (define-keysym #\4 052)
88     (define-keysym #\5 053)
89     (define-keysym #\6 054)
90     (define-keysym #\7 055)
91     (define-keysym #\8 056)
92     (define-keysym #\9 057)
93     (define-keysym #\: 058)
94     (define-keysym #\; 059)
95     (define-keysym #\< 060)
96     (define-keysym #\= 061)
97     (define-keysym #\> 062)
98     (define-keysym #\? 063)
99     (define-keysym #\@ 064)
100     (define-keysym #\A 065 :lowercase 097)
101     (define-keysym #\B 066 :lowercase 098)
102     (define-keysym #\C 067 :lowercase 099)
103     (define-keysym #\D 068 :lowercase 100)
104     (define-keysym #\E 069 :lowercase 101)
105     (define-keysym #\F 070 :lowercase 102)
106     (define-keysym #\G 071 :lowercase 103)
107     (define-keysym #\H 072 :lowercase 104)
108     (define-keysym #\I 073 :lowercase 105)
109     (define-keysym #\J 074 :lowercase 106)
110     (define-keysym #\K 075 :lowercase 107)
111     (define-keysym #\L 076 :lowercase 108)
112     (define-keysym #\M 077 :lowercase 109)
113     (define-keysym #\N 078 :lowercase 110)
114     (define-keysym #\O 079 :lowercase 111)
115     (define-keysym #\P 080 :lowercase 112)
116     (define-keysym #\Q 081 :lowercase 113)
117     (define-keysym #\R 082 :lowercase 114)
118     (define-keysym #\S 083 :lowercase 115)
119     (define-keysym #\T 084 :lowercase 116)
120     (define-keysym #\U 085 :lowercase 117)
121     (define-keysym #\V 086 :lowercase 118)
122     (define-keysym #\W 087 :lowercase 119)
123     (define-keysym #\X 088 :lowercase 120)
124     (define-keysym #\Y 089 :lowercase 121)
125     (define-keysym #\Z 090 :lowercase 122)
126     (define-keysym #\[ 091)
127     (define-keysym #\\ 092)
128     (define-keysym #\] 093)
129     (define-keysym #\^ 094)
130     (define-keysym #\_ 095)
131     (define-keysym #\` 096)
132     (define-keysym #\a 097)
133     (define-keysym #\b 098)
134     (define-keysym #\c 099)
135     (define-keysym #\d 100)
136     (define-keysym #\e 101)
137     (define-keysym #\f 102)
138     (define-keysym #\g 103)
139     (define-keysym #\h 104)
140     (define-keysym #\i 105)
141     (define-keysym #\j 106)
142     (define-keysym #\k 107)
143     (define-keysym #\l 108)
144     (define-keysym #\m 109)
145     (define-keysym #\n 110)
146     (define-keysym #\o 111)
147     (define-keysym #\p 112)
148     (define-keysym #\q 113)
149     (define-keysym #\r 114)
150     (define-keysym #\s 115)
151     (define-keysym #\t 116)
152     (define-keysym #\u 117)
153     (define-keysym #\v 118)
154     (define-keysym #\w 119)
155     (define-keysym #\x 120)
156     (define-keysym #\y 121)
157     (define-keysym #\z 122)
158     (define-keysym #\{ 123)
159     (define-keysym #\| 124)
160     (define-keysym #\} 125)
161     (define-keysym #\~ 126)
162    
163     (progn ;; Semi-standard characters
164     (define-keysym #\rubout (keysym 255 255)) ; :tty
165     (define-keysym #\tab (keysym 255 009)) ; :tty
166     (define-keysym #\linefeed (keysym 255 010)) ; :tty
167     (define-keysym #\page (keysym 009 227)) ; :special
168     (define-keysym #\return (keysym 255 013)) ; :tty
169     (define-keysym #\backspace (keysym 255 008)) ; :tty
170     )
171    
172 fgilham 1.5 ;;; these keysym definitions are only correct if the underlying lisp's
173     ;;; definition of characters between 160 and 255 match latin1 exactly.
174     ;;; If the characters are in some way locale-dependent (as, I believe,
175     ;;; in Allegro8) or are treated as opaque without any notions of
176     ;;; graphicness or case (as in cmucl and openmcl) then defining these
177     ;;; keysyms is either not useful or wrong. -- CSR, 2006-03-14
178     #+sbcl
179     (progn
180     (do ((i 160 (+ i 1)))
181     ((>= i 256))
182     (if (or (<= #xc0 i #xd6)
183     (<= #xd8 i #xde))
184     (define-keysym (code-char i) i :lowercase (+ i 32))
185     (define-keysym (code-char i) i))))
186    
187     #+(or lispm excl)
188     (progn ;; Nonstandard characters
189     (define-keysym #\escape (keysym 255 027)) ; :tty
190     )
191    
192     #+ti
193     (progn
194     (define-keysym #\Inverted-exclamation-mark 161)
195     (define-keysym #\american-cent-sign 162)
196     (define-keysym #\british-pound-sign 163)
197     (define-keysym #\Currency-sign 164)
198     (define-keysym #\Japanese-yen-sign 165)
199     (define-keysym #\Yen 165)
200     (define-keysym #\Broken-bar 166)
201     (define-keysym #\Section-symbol 167)
202     (define-keysym #\Section 167)
203     (define-keysym #\Diaresis 168)
204     (define-keysym #\Umlaut 168)
205     (define-keysym #\Copyright-sign 169)
206     (define-keysym #\Copyright 169)
207     (define-keysym #\Feminine-ordinal-indicator 170)
208     (define-keysym #\Angle-quotation-left 171)
209     (define-keysym #\Soft-hyphen 173)
210     (define-keysym #\Shy 173)
211     (define-keysym #\Registered-trademark 174)
212     (define-keysym #\Macron 175)
213     (define-keysym #\Degree-sign 176)
214     (define-keysym #\Ring 176)
215     (define-keysym #\Plus-minus-sign 177)
216     (define-keysym #\Superscript-2 178)
217     (define-keysym #\Superscript-3 179)
218     (define-keysym #\Acute-accent 180)
219     (define-keysym #\Greek-mu 181)
220     (define-keysym #\Paragraph-symbol 182)
221     (define-keysym #\Paragraph 182)
222     (define-keysym #\Pilcrow-sign 182)
223     (define-keysym #\Middle-dot 183)
224     (define-keysym #\Cedilla 184)
225     (define-keysym #\Superscript-1 185)
226     (define-keysym #\Masculine-ordinal-indicator 186)
227     (define-keysym #\Angle-quotation-right 187)
228     (define-keysym #\Fraction-1/4 188)
229     (define-keysym #\One-quarter 188)
230     (define-keysym #\Fraction-1/2 189)
231     (define-keysym #\One-half 189)
232     (define-keysym #\Fraction-3/4 190)
233     (define-keysym #\Three-quarters 190)
234     (define-keysym #\Inverted-question-mark 191)
235     (define-keysym #\Multiplication-sign 215)
236     (define-keysym #\Eszet 223)
237     (define-keysym #\Division-sign 247)
238     )
239    
240     #+ti
241     (progn ;; There are no 7-bit ascii representations for the following
242     ;; European characters, so use int-char to create them to ensure
243     ;; nothing is lost while sending files through the mail.
244     (define-keysym (int-char 192) 192 :lowercase 224)
245     (define-keysym (int-char 193) 193 :lowercase 225)
246     (define-keysym (int-char 194) 194 :lowercase 226)
247     (define-keysym (int-char 195) 195 :lowercase 227)
248     (define-keysym (int-char 196) 196 :lowercase 228)
249     (define-keysym (int-char 197) 197 :lowercase 229)
250     (define-keysym (int-char 198) 198 :lowercase 230)
251     (define-keysym (int-char 199) 199 :lowercase 231)
252     (define-keysym (int-char 200) 200 :lowercase 232)
253     (define-keysym (int-char 201) 201 :lowercase 233)
254     (define-keysym (int-char 202) 202 :lowercase 234)
255     (define-keysym (int-char 203) 203 :lowercase 235)
256     (define-keysym (int-char 204) 204 :lowercase 236)
257     (define-keysym (int-char 205) 205 :lowercase 237)
258     (define-keysym (int-char 206) 206 :lowercase 238)
259     (define-keysym (int-char 207) 207 :lowercase 239)
260     (define-keysym (int-char 208) 208 :lowercase 240)
261     (define-keysym (int-char 209) 209 :lowercase 241)
262     (define-keysym (int-char 210) 210 :lowercase 242)
263     (define-keysym (int-char 211) 211 :lowercase 243)
264     (define-keysym (int-char 212) 212 :lowercase 244)
265     (define-keysym (int-char 213) 213 :lowercase 245)
266     (define-keysym (int-char 214) 214 :lowercase 246)
267     (define-keysym (int-char 215) 215)
268     (define-keysym (int-char 216) 216 :lowercase 248)
269     (define-keysym (int-char 217) 217 :lowercase 249)
270     (define-keysym (int-char 218) 218 :lowercase 250)
271     (define-keysym (int-char 219) 219 :lowercase 251)
272     (define-keysym (int-char 220) 220 :lowercase 252)
273     (define-keysym (int-char 221) 221 :lowercase 253)
274     (define-keysym (int-char 222) 222 :lowercase 254)
275     (define-keysym (int-char 223) 223)
276     (define-keysym (int-char 224) 224)
277     (define-keysym (int-char 225) 225)
278     (define-keysym (int-char 226) 226)
279     (define-keysym (int-char 227) 227)
280     (define-keysym (int-char 228) 228)
281     (define-keysym (int-char 229) 229)
282     (define-keysym (int-char 230) 230)
283     (define-keysym (int-char 231) 231)
284     (define-keysym (int-char 232) 232)
285     (define-keysym (int-char 233) 233)
286     (define-keysym (int-char 234) 234)
287     (define-keysym (int-char 235) 235)
288     (define-keysym (int-char 236) 236)
289     (define-keysym (int-char 237) 237)
290     (define-keysym (int-char 238) 238)
291     (define-keysym (int-char 239) 239)
292     (define-keysym (int-char 240) 240)
293     (define-keysym (int-char 241) 241)
294     (define-keysym (int-char 242) 242)
295     (define-keysym (int-char 243) 243)
296     (define-keysym (int-char 244) 244)
297     (define-keysym (int-char 245) 245)
298     (define-keysym (int-char 246) 246)
299     (define-keysym (int-char 247) 247)
300     (define-keysym (int-char 248) 248)
301     (define-keysym (int-char 249) 249)
302     (define-keysym (int-char 250) 250)
303     (define-keysym (int-char 251) 251)
304     (define-keysym (int-char 252) 252)
305     (define-keysym (int-char 253) 253)
306     (define-keysym (int-char 254) 254)
307     (define-keysym (int-char 255) 255)
308     )
309    
310     #+lispm ;; Nonstandard characters
311     (progn
312     (define-keysym #\center-dot (keysym 183)) ; :latin-1
313     (define-keysym #\down-arrow (keysym 008 254)) ; :technical
314     (define-keysym #\alpha (keysym 007 225)) ; :greek
315     (define-keysym #\beta (keysym 007 226)) ; :greek
316     (define-keysym #\and-sign (keysym 008 222)) ; :technical
317     (define-keysym #\not-sign (keysym 172)) ; :latin-1
318     (define-keysym #\epsilon (keysym 007 229)) ; :greek
319     (define-keysym #\pi (keysym 007 240)) ; :greek
320     (define-keysym #\lambda (keysym 007 235)) ; :greek
321     (define-keysym #\gamma (keysym 007 227)) ; :greek
322     (define-keysym #\delta (keysym 007 228)) ; :greek
323     (define-keysym #\up-arrow (keysym 008 252)) ; :technical
324     (define-keysym #\plus-minus (keysym 177)) ; :latin-1
325     (define-keysym #\infinity (keysym 008 194)) ; :technical
326     (define-keysym #\partial-delta (keysym 008 239)) ; :technical
327     (define-keysym #\left-horseshoe (keysym 011 218)) ; :apl
328     (define-keysym #\right-horseshoe (keysym 011 216)) ; :apl
329     (define-keysym #\up-horseshoe (keysym 011 195)) ; :apl
330     (define-keysym #\down-horseshoe (keysym 011 214)) ; :apl
331     (define-keysym #\double-arrow (keysym 008 205)) ; :technical
332     (define-keysym #\left-arrow (keysym 008 251)) ; :technical
333     (define-keysym #\right-arrow (keysym 008 253)) ; :technical
334     (define-keysym #\not-equals (keysym 008 189)) ; :technical
335     (define-keysym #\less-or-equal (keysym 008 188)) ; :technical
336     (define-keysym #\greater-or-equal (keysym 008 190)) ; :technical
337     (define-keysym #\equivalence (keysym 008 207)) ; :technical
338     (define-keysym #\or-sign (keysym 008 223)) ; :technical
339     (define-keysym #\integral (keysym 008 191)) ; :technical
340     ;; break isn't null
341     ;; (define-keysym #\null (keysym 255 107)) ; :function
342     (define-keysym #\clear-input (keysym 255 011)) ; :tty
343     (define-keysym #\help (keysym 255 106)) ; :function
344     (define-keysym #\refresh (keysym 255 097)) ; :function
345     (define-keysym #\abort (keysym 255 105)) ; :function
346     (define-keysym #\resume (keysym 255 098)) ; :function
347     (define-keysym #\end (keysym 255 087)) ; :cursor
348     ;;#\universal-quantifier
349     ;;#\existential-quantifier
350     ;;#\circle-plus
351     ;;#\circle-cross same as #\circle-x
352     )
353    
354     #+genera
355     (progn
356     ;;#\network
357     ;;#\symbol-help
358     (define-keysym #\lozenge (keysym 009 224)) ; :special
359     (define-keysym #\suspend (keysym 255 019)) ; :tty
360     (define-keysym #\function (keysym 255 032)) ; :function
361     (define-keysym #\square (keysym 010 231)) ; :publishing
362     (define-keysym #\circle (keysym 010 230)) ; :publishing
363     (define-keysym #\triangle (keysym 010 232)) ; :publishing
364     (define-keysym #\scroll (keysym 255 086)) ; :cursor
365     (define-keysym #\select (keysym 255 096)) ; :function
366     (define-keysym #\complete (keysym 255 104)) ; :function
367     )
368    
369     #+ti
370     (progn
371     (define-keysym #\terminal (keysym 255 032)) ; :function
372     (define-keysym #\system (keysym 255 096)) ; :function
373     (define-keysym #\center-arrow (keysym 255 80))
374     (define-keysym #\left-arrow (keysym 255 081)) ; :cursor
375     (define-keysym #\up-arrow (keysym 255 082)) ; :cursor
376     (define-keysym #\right-arrow (keysym 255 083)) ; :cursor
377     (define-keysym #\down-arrow (keysym 255 084)) ; :cursor
378     (define-keysym #\end (keysym 255 087)) ; :cursor
379     (define-keysym #\undo (keysym 255 101)) ; :function
380     (define-keysym #\break (keysym 255 107))
381     (define-keysym #\keypad-space (keysym 255 128)) ; :keypad
382     (define-keysym #\keypad-tab (keysym 255 137)) ; :keypad
383     (define-keysym #\keypad-enter (keysym 255 141)) ; :keypad
384     (define-keysym #\f1 (keysym 255 145)) ; :keypad
385     (define-keysym #\f2 (keysym 255 146)) ; :keypad
386     (define-keysym #\f3 (keysym 255 147)) ; :keypad
387     (define-keysym #\f4 (keysym 255 148)) ; :keypad
388     (define-keysym #\f1 (keysym 255 190)) ; :keypad
389     (define-keysym #\f2 (keysym 255 191)) ; :keypad
390     (define-keysym #\f3 (keysym 255 192)) ; :keypad
391     (define-keysym #\f4 (keysym 255 193)) ; :keypad
392     (define-keysym #\keypad-plus (keysym 255 171)) ; :keypad
393     (define-keysym #\keypad-comma (keysym 255 172)) ; :keypad
394     (define-keysym #\keypad-minus (keysym 255 173)) ; :keypad
395     (define-keysym #\keypad-period (keysym 255 174)) ; :keypad
396     (define-keysym #\keypad-0 (keysym 255 176)) ; :keypad
397     (define-keysym #\keypad-1 (keysym 255 177)) ; :keypad
398     (define-keysym #\keypad-2 (keysym 255 178)) ; :keypad
399     (define-keysym #\keypad-3 (keysym 255 179)) ; :keypad
400     (define-keysym #\keypad-4 (keysym 255 180)) ; :keypad
401     (define-keysym #\keypad-5 (keysym 255 181)) ; :keypad
402     (define-keysym #\keypad-6 (keysym 255 182)) ; :keypad
403     (define-keysym #\keypad-7 (keysym 255 183)) ; :keypad
404     (define-keysym #\keypad-8 (keysym 255 184)) ; :keypad
405     (define-keysym #\keypad-9 (keysym 255 185)) ; :keypad
406     (define-keysym #\keypad-equal (keysym 255 189)) ; :keypad
407     (define-keysym #\f1 (keysym 255 192)) ; :function
408     (define-keysym #\f2 (keysym 255 193)) ; :function
409     (define-keysym #\f3 (keysym 255 194)) ; :function
410     (define-keysym #\f4 (keysym 255 195)) ; :function
411     (define-keysym #\network (keysym 255 214))
412     (define-keysym #\status (keysym 255 215))
413     (define-keysym #\clear-screen (keysym 255 217))
414     (define-keysym #\left (keysym 255 218))
415     (define-keysym #\middle (keysym 255 219))
416     (define-keysym #\right (keysym 255 220))
417     (define-keysym #\resume (keysym 255 221))
418     (define-keysym #\vt (keysym 009 233)) ; :special ;; same as #\delete
419     )
420    
421     #+ti
422     (progn ;; Explorer specific characters
423     (define-keysym #\Call (keysym 131)) ; :latin-1
424     (define-keysym #\Macro (keysym 133)) ; :latin-1
425     (define-keysym #\Quote (keysym 142)) ; :latin-1
426     (define-keysym #\Hold-output (keysym 143)) ; :latin-1
427     (define-keysym #\Stop-output (keysym 144)) ; :latin-1
428     (define-keysym #\Center (keysym 156)) ; :latin-1
429     (define-keysym #\no-break-space (keysym 160)) ; :latin-1
430    
431     (define-keysym #\circle-plus (keysym 13)) ; :latin-1
432     (define-keysym #\universal-quantifier (keysym 20)) ; :latin-1
433     (define-keysym #\existential-quantifier (keysym 21)) ; :latin-1
434     (define-keysym #\circle-cross (keysym 22)) ; :latin-1
435     )
436 ram 1.1

  ViewVC Help
Powered by ViewVC 1.1.5