[STUMP] [PATCH] correct case when a keysym has more than one keycode

[John Fremlin]

---
 window.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/window.lisp b/window.lisp
index b363f17..ba98626 100644
--- a/window.lisp
+++ b/window.lisp
@@ -711,7 +711,7 @@ than the root window's width and height."
 
 (defun xwin-grab-keys (win)
   (labels ((grabit (w key)
-             (let* ((code (xlib:keysym->keycodes *display* (key-keysym key))))
+             (loop for code in (multiple-value-list (xlib:keysym->keycodes 
*display* (key-keysym key))) do
                ;; some keysyms aren't mapped to keycodes so just ignore them.
                (when code
                  ;; Some keysyms, such as upper case letters, need the
-- 
1.5.6.3