[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [PATCH] make menu selection in windowlist and grouplist work aga
From: |
Friedrich Delgado Friedrichs |
Subject: |
[STUMP] [PATCH] make menu selection in windowlist and grouplist work again |
Date: |
Sat, 25 Oct 2008 23:11:01 +0200 |
---
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
- [STUMP] [PATCH] make menu selection in windowlist and grouplist work again,
Friedrich Delgado Friedrichs <=