Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -175,7 +175,7 @@
#+sbcl
(progn
(do ((i 160 (+ i 1)))
((> i 256))
((>= i 256))
(if (or (<= #xc0 i #xd6)
(<= #xd8 i #xde))
(define-keysym (code-char i) i :lowercase (+ i 32))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment