[STUMP] [PATCH] make menu selection in windowlist and grouplist work again

[Friedrich Delgado Friedrichs]

---
 menu.lisp |   22 ++++++++++++----------
 1 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/menu.lisp b/menu.lisp
index 18f8a24..76b6a6b 100644
--- a/menu.lisp
+++ b/menu.lisp
@@ -136,19 +136,21 @@ See *menu-map* for menu bindings."
                                table))
          (menu-text (if prompt
                         (cons prompt menu-options)
-                        menu-options))
+                      menu-options))
          (*record-last-msg-override* t)
          (*suppress-echo-timeout* t)
-        (*current-menu-input* ""))
+         (*current-menu-input* ""))
     (bound-check-menu menu)
     (catch :menu-quit
       (unwind-protect
-           (with-focus (screen-key-window screen)
-             (loop
-                (echo-string-list screen menu-text
-                                  (+ (menu-state-selected menu) (if prompt 1 
0)))
-                (multiple-value-bind (action key-seq) (read-from-keymap 
*menu-map*)
-                 (if action
-                     (funcall action menu)
-                     (check-menu-complete menu (first key-seq))))))
+          (with-focus (screen-key-window screen)
+                      (loop
+                       (echo-string-list screen menu-text
+                                         (+ (menu-state-selected menu) (if 
prompt 1 0)))
+                       (multiple-value-bind
+                           (action key-seq)
+                           (read-from-keymap (list *menu-map*))
+                         (if action
+                             (funcall action menu)
+                           (check-menu-complete menu (first key-seq))))))
         (unmap-all-message-windows)))))
-- 
1.5.6.5