[mcclim-cvs] CVS mcclim/Backends/CLX

[rschlatte]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp:/tmp/cvs-serv30890/Backends/CLX

Modified Files:
	keysymdef.lisp 
Log Message:
Escape constituent characters that are reserved to the programmer or
the implementation, as per clhs 2.1.4.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/keysymdef.lisp	2005/11/28 15:30:59	1.7
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/keysymdef.lisp	2006/02/19 18:08:24	1.8
@@ -373,7 +373,7 @@
 ;; *  Byte 3 = 0
 ;; */
 (define-keysym :| | #x20)
-(define-keysym :! #x21)
+(define-keysym :|!| #x21)
 (define-keysym :|"| #x22)
 (define-keysym :|#| #x23)
 (define-keysym :$ #x24)
@@ -403,7 +403,7 @@
 (define-keysym :< #x3c)
 (define-keysym := #x3d)
 (define-keysym :> #x3e)
-(define-keysym :? #x3f)
+(define-keysym :|?| #x3f)
 (define-keysym :@ #x40)
 (define-keysym :A #x41)
 (define-keysym :B #x42)
@@ -431,9 +431,9 @@
 (define-keysym :X #x58)
 (define-keysym :Y #x59)
 (define-keysym :Z #x5a)
-(define-keysym :[ #x5b)
+(define-keysym :|[| #x5b)
 (define-keysym :\\ #x5c)
-(define-keysym :] #x5d)
+(define-keysym :|]| #x5d)
 (define-keysym :^ #x5e)
 (define-keysym :_ #x5f)
 (define-keysym :|`| #x60)
@@ -463,10 +463,10 @@
 (define-keysym :|x| #x78)
 (define-keysym :|y| #x79)
 (define-keysym :|z| #x7a)
-(define-keysym :{ #x7b)
+(define-keysym :|{| #x7b)
 (define-keysym :\| #x7c)
-(define-keysym :} #x7d)
-(define-keysym :~ #x7e)
+(define-keysym :|}| #x7d)
+(define-keysym :|~| #x7e)
 (define-keysym :NOBREAKSPACE #xa0)
 (define-keysym :EXCLAMDOWN #xa1)
 (define-keysym :CENT #xa2)