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)