Trivial? patch to keysyms
Christophe Rhodes <[email protected]> Thu, 17 Apr 2003 15:30:15 +0100
| Newsgroups | gmane.lisp.clx.devel |
|---|---|
| Message-ID | <[email protected]> |
The attached patch comes from Aleksandr Skobelev via cmucl-imp. Since nothing in clx itself uses "cryllic", it looks like it's an interface thing, but I presume it wasn't standardized as such, otherwise someone would have noticed before. Cheers, Christophe -- http://www-jcsu.jesus.cam.ac.uk/~csr21/ +44 1223 510 299/+44 7729 383 757 (set-pprint-dispatch 'number (lambda (s o) (declare (special b)) (format s b))) (defvar b "~&Just another Lisp hacker~%") (pprint #36rJesusCollegeCambridge)
clx.diff
(application/octet-stream, 776 B)
? ChangeLog Index: keysyms.lisp =================================================================== RCS file: /usr/local/src/cvs/clx/keysyms.lisp,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 keysyms.lisp --- keysyms.lisp 2 Jul 2000 19:19:45 -0000 1.1.1.1 +++ keysyms.lisp 17 Apr 2003 14:25:42 -0000 @@ -26,7 +26,7 @@ (define-keysym-set :latin-4 (keysym 3 0) (keysym 3 255)) (define-keysym-set :kana (keysym 4 0) (keysym 4 255)) (define-keysym-set :arabic (keysym 5 0) (keysym 5 255)) -(define-keysym-set :cryllic (keysym 6 0) (keysym 6 255)) +(define-keysym-set :cyrillic (keysym 6 0) (keysym 6 255)) (define-keysym-set :greek (keysym 7 0) (keysym 7 255)) (define-keysym-set :tech (keysym 8 0) (keysym 8 255)) (define-keysym-set :special (keysym 9 0) (keysym 9 255))