Commit 499b6030 authored by csr21's avatar csr21
Browse files

only 256 characters

Whoops.  Stop adding latin1 characters at char-code 255.

darcs-hash:20060317213650-30503-1eb18e69049e72a279832284157acc3ceb62df53.gz
parent 15b9f170
...@@ -175,7 +175,7 @@ ...@@ -175,7 +175,7 @@
#+sbcl #+sbcl
(progn (progn
(do ((i 160 (+ i 1))) (do ((i 160 (+ i 1)))
((> i 256)) ((>= i 256))
(if (or (<= #xc0 i #xd6) (if (or (<= #xc0 i #xd6)
(<= #xd8 i #xde)) (<= #xd8 i #xde))
(define-keysym (code-char i) i :lowercase (+ i 32)) (define-keysym (code-char i) i :lowercase (+ i 32))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment